mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-17 01:34:21 +00:00
Gnus: Add explanations for recent changes to the code itself.
These are already documented in ChangeLog.
This commit is contained in:
parent
bd71014979
commit
9b2bac7163
2 changed files with 4 additions and 0 deletions
|
|
@ -620,6 +620,7 @@ If EXAMINE is non-nil the group is selected read-only."
|
|||
;; 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 @@ function is generally only called when Gnus is shutting down."
|
|||
(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))
|
||||
|
|
|
|||
|
|
@ -2493,6 +2493,8 @@ Return nil if no complete line has arrived."
|
|||
(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))))
|
||||
|
|
|
|||
Loading…
Reference in a new issue