Sync non-standard flags from the server in symbolic form.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 91dd028..956c4cd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-23  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 2010-09-23  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

+       * nnimap.el (nnimap-update-info): Sync non-standard flags from the
+       server in symbolic form.
+

        * gnus-html.el (gnus-max-image-proportion): Increase proportion to
        0.9.
 
        * gnus-html.el (gnus-max-image-proportion): Increase proportion to
        0.9.
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 7846aa2..74deaf3 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -825,6 +825,7 @@ not done by default on servers that doesn't support that command.")
                  (new-marks
                   (gnus-compress-sequence
                    (cdr (or (assoc (caddr type) flags)     ; %Flagged
                  (new-marks
                   (gnus-compress-sequence
                    (cdr (or (assoc (caddr type) flags)     ; %Flagged

+                            (assoc (intern (cadr type) obarray) flags)

                             (assoc (cadr type) flags)))))) ; "\Flagged"
              (setq marks (delq old-marks marks))
              (pop old-marks)
                             (assoc (cadr type) flags)))))) ; "\Flagged"
              (setq marks (delq old-marks marks))
              (pop old-marks)