[gnus git] branch no-gnus updated: m0-1-48-g9f31054 =1= nnimap QRESYNC/FETCH parsing fix

       via  9f31054a05d4c7d038408fa5fc9aec9f1c2bcd88 (commit)
      from  d9dfa9384e316caeea28a44d55f8e7421a4a6065 (commit)


- Log -----------------------------------------------------------------
commit 9f31054a05d4c7d038408fa5fc9aec9f1c2bcd88
Author: Lars Ingebrigtsen <[email protected]>
Date:   Sun Feb 12 20:29:29 2012 +0100

    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
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-02-12  Lars Ingebrigtsen  <[email protected]>
+
+	* nnimap.el (nnimap-parse-flags): Parse correctly when we have mixed
+	QRESYNC/FETCH output.
+
 2012-02-11  Glenn Morris  <[email protected]>
 
 	* sieve-manage.el (sieve-manage-default-stream):
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index de4d248..73f9b91 100644
--- 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)
+	  (if (eq flag-sequence 'qresync)
 	  (goto-char end)
+	    (setq end (point)))
 	  (setq articles nil))))
     groups))
 

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    5 +++++
 lisp/nnimap.el |    7 +++++--
 2 files changed, 10 insertions(+), 2 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, no-gnus has been updated


hooks/post-receive
-- 
Gnus Project