Deleted -> Seen, Deleted.

svn path=/trunk/; revision=2444

diff --git a/NEWS b/NEWS
index 248afd3de99372511d61ac411c143914ad73292a..bb107e9e8c1a556d4df2ed24129f0b25de0d6f29 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -8,6 +8,12 @@
 
                                Release Notes:
 
+fetchmail-5.0.1 (Sun Apr 18 14:59:56 EDT 1999):
+* The IMAP driver now sets SEEN just before deleting, in case the server
+  ships DSNs when that bit is set.
+
+There are 254 people on fetchmail-friends and 372 on fetchmail-announce.
+
 fetchmail-5.0.1 (Sun Apr 18 14:59:56 EDT 1999):
 * Try to discover user/home via getpwuid(getuid()) before using LOGNAME/HOME.
 * Mike Pearce's fix for buggy DEFAULT handling in .netrc.

diff --git a/imap.c b/imap.c
index 09561ea5772c8284c68ed8ee6c29f0eadb8ae4b4..1e33d7a29f1fb213838ef2c23e11f1cdff23e5fc 100644 (file)
--- a/imap.c
+++ b/imap.c
@@ -972,11 +972,16 @@ static int imap_delete(int sock, struct query *ctl, int number)
     /*
      * Use SILENT if possible as a minor throughput optimization.
      * Note: this has been dropped from IMAP4rev1.
+     *
+     * We set Seen because there are some IMAP servers that do
+     * message-receipt DSNs, but only when the seen bit is set.
+     * This is the appropriate time -- we get here right after
+     * the local SMTP response that says delivery was successful.
      */
     if ((ok = gen_transact(sock,
                        imap_version == IMAP4 
-                               ? "STORE %d +FLAGS.SILENT (\\Deleted)"
-                               : "STORE %d +FLAGS (\\Deleted)", 
+                               ? "STORE %d +FLAGS.SILENT (\\Seen \\Deleted)"
+                               : "STORE %d +FLAGS (\\Seen \\Deleted)", 
                        number)))
        return(ok);
     else