2001-12-31 Simon Josefsson <jas@extundo.com>

	* imap.el (imap-parse-fetch): Notice empty flags responses.  From
	Nic Ferrier <nferrier@tf1.tapsellferrier.co.uk>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 98b4e1c..c3de4fe 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-31  Simon Josefsson  <jas@extundo.com>
+
+       * imap.el (imap-parse-fetch): Notice empty flags responses.  From
+       Nic Ferrier <nferrier@tf1.tapsellferrier.co.uk>.
+
 2001-12-30  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-picon.el (gnus-treat-from-picon): Autoload.

diff --git a/lisp/imap.el b/lisp/imap.el
index 3f29cc9..642ff4d 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -2199,7 +2199,7 @@ Return nil if no complete line has arrived."
 (defun imap-parse-fetch (response)
   (when (eq (char-after) ?\()
     (let (uid flags envelope internaldate rfc822 rfc822header rfc822text
-             rfc822size body bodydetail bodystructure)
+             rfc822size body bodydetail bodystructure flags-empty)
       (while (not (eq (char-after) ?\)))
        (imap-forward)
        (let ((token (read (current-buffer))))
@@ -2207,7 +2207,9 @@ Return nil if no complete line has arrived."
          (cond ((eq token 'UID)
                 (setq uid (ignore-errors (read (current-buffer)))))
                ((eq token 'FLAGS)
-                (setq flags (imap-parse-flag-list)))
+                (setq flags (imap-parse-flag-list))
+                (if (not flags)
+                    (setq flags-empty 't)))
                ((eq token 'ENVELOPE)
                 (setq envelope (imap-parse-envelope)))
                ((eq token 'INTERNALDATE)
@@ -2236,7 +2238,7 @@ Return nil if no complete line has arrived."
       (when uid
        (setq imap-current-message uid)
        (imap-message-put uid 'UID uid)
-       (and flags (imap-message-put uid 'FLAGS flags))
+       (and (or flags flags-empty) (imap-message-put uid 'FLAGS flags))
        (and envelope (imap-message-put uid 'ENVELOPE envelope))
        (and internaldate (imap-message-put uid 'INTERNALDATE internaldate))
        (and rfc822 (imap-message-put uid 'RFC822 rfc822))