sqpack won't purge when rescanned from uplink

[scorpio1441]

I re-scanned all messages from my uplink, now sqpack won't purge because it's using date_arrived instead of date_written.

Suggested fix from FIDOSOFT.HUSKY:

=== Cut ===
484c484
< DosDate_to_TmDate((SCOMBO *)&(xmsg.date_arrived), &tmTime);
-+-

        DosDate_to_TmDate((SCOMBO *)&(xmsg.date_written), &tmTime);

=== Cut ===