Allow 'ticked and other flags to be set on groups that don't have \* permanentflags.

From Knut Anders Hatlen  <kahatlen@gmail.com>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 13e7dcb..058edb0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-30  Knut Anders Hatlen  <kahatlen@gmail.com>
+
+       * nnimap.el (nnimap-update-info): Allow 'ticked and other flags to be
+       set on groups that don't have \* permanentflags.
+

 2010-10-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * shr.el (shr-tag-span): Drop colorisation of regions since we don't
 2010-10-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * shr.el (shr-tag-span): Drop colorisation of regions since we don't

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 3795605..98839e2 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1203,7 +1203,8 @@ textual parts.")
              (setq marks (gnus-info-marks info))
              (dolist (type (cdr nnimap-mark-alist))
                (when (or (not (listp permanent-flags))
              (setq marks (gnus-info-marks info))
              (dolist (type (cdr nnimap-mark-alist))
                (when (or (not (listp permanent-flags))

-                         (memq (assoc (caddr type) flags) permanent-flags)
+                         (memq (car (assoc (caddr type) flags))
+                               permanent-flags)

                          (memq '%* permanent-flags))
                  (let ((old-marks (assoc (car type) marks))
                        (new-marks
                          (memq '%* permanent-flags))
                  (let ((old-marks (assoc (car type) marks))
                        (new-marks