(nnimap-update-qresync-info): \Flagged messages are read for Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 888df80..15693a8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-10-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * nnimap.el (nnimap-update-qresync-info): \Flagged messages are read
+       for Gnus.
+
        * 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 775b1bc..703b258 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1157,8 +1157,10 @@ textual parts.")
   ;; Add all the vanished articles to the list of read articles.
   (gnus-info-set-read
    info
-   (gnus-range-add (gnus-info-read info)
-                  vanished))
+   (gnus-add-to-range
+    (gnus-range-add (gnus-info-read info)
+                   vanished)
+    (cdr (assq '%Flagged flags))))
   (let ((marks (gnus-info-marks info)))
     (dolist (type (cdr nnimap-mark-alist))
       (let ((ticks (assoc (car type) marks))