Commit 9b2bac71 authored by Michael Olson's avatar Michael Olson
Browse files

Gnus: Add explanations for recent changes to the code itself.

These are already documented in ChangeLog.
parent bd710149
...@@ -620,6 +620,7 @@ If EXAMINE is non-nil the group is selected read-only." ...@@ -620,6 +620,7 @@ If EXAMINE is non-nil the group is selected read-only."
;; to make it more clear. ;; to make it more clear.
(mm-with-unibyte-buffer (mm-with-unibyte-buffer
(buffer-disable-undo) (buffer-disable-undo)
;; headers can be nil if article is write-only
(when headers (insert headers)) (when headers (insert headers))
(let ((head (nnheader-parse-naked-head uid))) (let ((head (nnheader-parse-naked-head uid)))
(mail-header-set-number head uid) (mail-header-set-number head uid)
...@@ -950,6 +951,7 @@ function is generally only called when Gnus is shutting down." ...@@ -950,6 +951,7 @@ function is generally only called when Gnus is shutting down."
(erase-buffer) (erase-buffer)
(let ((data (imap-fetch article part prop nil (let ((data (imap-fetch article part prop nil
nnimap-server-buffer))) nnimap-server-buffer)))
;; data can be nil if article is write-only
(when data (when data
(insert (nnimap-demule (if detail (insert (nnimap-demule (if detail
(nth 2 (car data)) (nth 2 (car data))
......
...@@ -2493,6 +2493,8 @@ Return nil if no complete line has arrived." ...@@ -2493,6 +2493,8 @@ Return nil if no complete line has arrived."
(when (eq (char-after) ?\() (when (eq (char-after) ?\()
(let (uid flags envelope internaldate rfc822 rfc822header rfc822text (let (uid flags envelope internaldate rfc822 rfc822header rfc822text
rfc822size body bodydetail bodystructure flags-empty) 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"))) (while (let ((moved (skip-chars-forward " \t")))
(prog1 (not (eq (char-after) ?\))) (prog1 (not (eq (char-after) ?\)))
(unless (= moved 0) (backward-char)))) (unless (= moved 0) (backward-char))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment