[Top][All Lists]
[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))))