(nnimap-parse-flags): Fix typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f920d67..3aac516 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,6 +6,7 @@
        hand-parsing.
        (nnimap-flags-to-marks): Pass on permanent-flags.
        (nnimap-make-process-buffer): Record the server name.
+       (nnimap-parse-flags): Fix typo.
 
        * nnmail.el (nnmail-split-incoming): Take an optional junk-func
        parameter, and propagate this downwards.

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index cef88fe..e432046 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -844,7 +844,7 @@ not done by default on servers that doesn't support that command.")
       (push (list group info active) nnimap-current-infos))))
 
 (defun nnimap-flags-to-marks (groups)
-  (let (data group totalp uidnext articles start-article mark)
+  (let (data group totalp uidnext articles start-article mark permanent-flags)
     (dolist (elem groups)
       (setq group (car elem)
            uidnext (nth 1 elem)
@@ -881,7 +881,7 @@ not done by default on servers that doesn't support that command.")
                     (forward-line 1)
                     (setq end (point))
                     (goto-char start)
-                    (setq permanent-forward
+                    (setq permanent-flags
                           (and (search-forward "PERMANENTFLAGS "
                                                 (or end (point-min)) t)
                                (read (current-buffer))))