Mercurial > emacs

diff lisp/net/imap.el @ 100874:8698a8bb7d0e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Gnus: Add explanations for recent changes to the code itself. These are already documented in ChangeLog.
author Michael Olson <mwolson@gnu.org>
date Sun, 04 Jan 2009 00:03:05 +0000
parents 1d5b4a08955f
children a9dc0e7c3f2b
line wrap: on
line diff
--- a/lisp/net/imap.el	Sat Jan 03 23:11:06 2009 +0000
+++ b/lisp/net/imap.el	Sun Jan 04 00:03:05 2009 +0000
@@ -2493,6 +2493,8 @@
   (when (eq (char-after) ?\()
     (let (uid flags envelope internaldate rfc822 rfc822header rfc822text
 	      rfc822size body bodydetail bodystructure flags-empty)
+      ;; Courier can insert spurious blank characters which will
+      ;; confuse `read', so skip past them.
       (while (let ((moved (skip-chars-forward " \t")))
 	       (prog1 (not (eq (char-after) ?\)))
 		 (unless (= moved 0) (backward-char))))