nnimap QRESYNC/FETCH parsing fix

* nnimap.el (nnimap-parse-flags): Parse correctly when we have mixed
QRESYNC/FETCH output.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1395d7a..3bf2c84 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-02-12  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * nnimap.el (nnimap-parse-flags): Parse correctly when we have mixed
+       QRESYNC/FETCH output.
+
 2012-02-11  Glenn Morris  <rgm@gnu.org>
 
        * sieve-manage.el (sieve-manage-default-stream):

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index de4d248..73f9b91 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1539,7 +1539,8 @@ textual parts.")
 
 (defun nnimap-parse-flags (sequences)
   (goto-char (point-min))
-  ;; Change \Delete etc to %Delete, so that the reader can read it.
+  ;; Change \Delete etc to %Delete, so that the Emacs Lisp reader can
+  ;; read it.
   (subst-char-in-region (point-min) (point-max)
                        ?\\ ?% t)
   ;; Remove any MODSEQ entries in the buffer, because they may contain
@@ -1610,7 +1611,9 @@ textual parts.")
                             vanished highestmodseq)
                       articles)
                groups)
-         (goto-char end)
+         (if (eq flag-sequence 'qresync)
+             (goto-char end)
+           (setq end (point)))
          (setq articles nil))))
     groups))