emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs/lisp gnus/nnimap.el net/imap.el


From: Michael W. Olson
Subject: [Emacs-diffs] emacs/lisp gnus/nnimap.el net/imap.el
Date: Sun, 04 Jan 2009 00:03:06 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael W. Olson <mwolson>      09/01/04 00:03:06

Modified files:
        lisp/gnus      : nnimap.el 
        lisp/net       : imap.el 

Log message:
        Gnus: Add explanations for recent changes to the code itself.
        
        These are already documented in ChangeLog.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/nnimap.el?cvsroot=emacs&r1=1.52&r2=1.53
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/imap.el?cvsroot=emacs&r1=1.14&r2=1.15

Patches:
Index: gnus/nnimap.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/nnimap.el,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -b -r1.52 -r1.53
--- gnus/nnimap.el      3 Jan 2009 23:05:42 -0000       1.52
+++ gnus/nnimap.el      4 Jan 2009 00:03:05 -0000       1.53
@@ -620,6 +620,7 @@
        ;; to make it more clear.
        (mm-with-unibyte-buffer
         (buffer-disable-undo)
+        ;; headers can be nil if article is write-only
         (when headers (insert headers))
         (let ((head (nnheader-parse-naked-head uid)))
           (mail-header-set-number head uid)
@@ -950,6 +951,7 @@
              (erase-buffer)
              (let ((data (imap-fetch article part prop nil
                                      nnimap-server-buffer)))
+               ;; data can be nil if article is write-only
                (when data
                  (insert (nnimap-demule (if detail
                                             (nth 2 (car data))

Index: net/imap.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/imap.el,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- net/imap.el 3 Jan 2009 23:05:42 -0000       1.14
+++ net/imap.el 4 Jan 2009 00:03:05 -0000       1.15
@@ -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))))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]