(nnimap-update-qresync-info): Mark \Seen articles as read.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ee89362..7897172 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
        * nnimap.el (nnimap-update-qresync-info): \Flagged messages are read
        for Gnus.
        (nnimap-retrieve-group-data-early): utf7-encode the group parameters.
+       (nnimap-update-qresync-info): Mark \Seen articles as read.
 
        * gnus-sum.el (gnus-summary-set-local-parameters): Ignore the `active'
        non-variable, too.

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 3c8bcf0..73b7fbd 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1160,9 +1160,11 @@ textual parts.")
   (gnus-info-set-read
    info
    (gnus-add-to-range
-    (gnus-range-add (gnus-info-read info)
-                   vanished)
-    (cdr (assq '%Flagged flags))))
+    (gnus-add-to-range
+     (gnus-range-add (gnus-info-read info)
+                    vanished)
+     (cdr (assq '%Flagged flags)))
+    (cdr (assq '%Seen flags))))
   (let ((marks (gnus-info-marks info)))
     (dolist (type (cdr nnimap-mark-alist))
       (let ((ticks (assoc (car type) marks))