diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2020-09-06 15:56:32 +0100 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2020-09-06 16:06:57 +0100 |
| commit | d7197f9d99ca6aa326d38e64ca9eb1d13e18d664 (patch) | |
| tree | c5832ed55e6325ac07b3a54f1085a54071803546 /lisp/gnus/nnheader.el | |
| parent | 7d927fa8dd5b557e77a0b3dbafc252ede1211c52 (diff) | |
| download | emacs-d7197f9d99ca6aa326d38e64ca9eb1d13e18d664.tar.gz emacs-d7197f9d99ca6aa326d38e64ca9eb1d13e18d664.tar.bz2 emacs-d7197f9d99ca6aa326d38e64ca9eb1d13e18d664.zip | |
Fix formatting of recent Gnus nnselect changes
* doc/misc/gnus.texi (Finding the Parent, Selection Groups)
(Searching, Basic Usage): Heed sentence-end-double-space. Fix
formatting of prose and examples.
* etc/NEWS: Fix typo.
* lisp/gnus/gnus-srvr.el: Remove disabled autoload.
* lisp/gnus/gnus-cloud.el (gnus-cloud-available-chunks):
* lisp/gnus/gnus-group.el (gnus-group-read-ephemeral-search-group):
* lisp/gnus/gnus-sum.el (gnus-refer-thread-use-search)
(gnus-summary-refer-thread):
* lisp/gnus/gnus.el (gnus-kill-ephemeral-group):
* lisp/gnus/nnheader.el (nnheader-head-make-header)
(nnheader-parse-head):
* lisp/gnus/nnir.el:
(nnir-hyrex-remove-prefix, nnir-run-notmuch):
* lisp/gnus/nnselect.el: Fix formatting/indentation of commentary,
docstring, and/or code.
Diffstat (limited to 'lisp/gnus/nnheader.el')
| -rw-r--r-- | lisp/gnus/nnheader.el | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/lisp/gnus/nnheader.el b/lisp/gnus/nnheader.el index 1a50697bf5d..67dc379ef81 100644 --- a/lisp/gnus/nnheader.el +++ b/lisp/gnus/nnheader.el @@ -195,8 +195,8 @@ on your system, you could say something like: (defsubst nnheader-head-make-header (number) - "Using data of type 'head in the current buffer - return a full mail header with article NUMBER." + "Return a full mail header with article NUMBER. +Do this using data of type `head' in the current buffer." (let ((p (point-min)) (cur (current-buffer)) in-reply-to chars lines end ref) @@ -306,14 +306,13 @@ on your system, you could say something like: out))))) (defun nnheader-parse-head (&optional naked temp) - "Parse data of type 'header in the current buffer and return a - mail header, modifying the buffer contents in the process. The - buffer is assumed to begin each header with an \"Article - retrieved\" line with an article number; If NAKED is non-nil - this line is assumed absent, and the buffer should contain a - single header's worth of data. If TEMP is non-nil the data is - first copied to a temporary buffer leaving the original buffer - untouched." + "Parse data of type `header' in the current buffer and return a mail header. +Modify the buffer contents in the process. The buffer is assumed +to begin each header with an \"Article retrieved\" line with an +article number; if NAKED is non-nil this line is assumed absent, +and the buffer should contain a single header's worth of data. +If TEMP is non-nil the data is first copied to a temporary buffer +leaving the original buffer untouched." (let ((cur (current-buffer)) (num 0) (beg (point-min)) @@ -326,22 +325,22 @@ on your system, you could say something like: (setq num (read cur) beg (point) end (if (search-forward "\n.\n" nil t) - (goto-char (- (point) 2)) + (goto-char (- (point) 2)) (point))))) - ;; When TEMP copy the data to a temporary buffer + ;; When TEMP copy the data to a temporary buffer. (if temp (progn (set-buffer (setq buf (generate-new-buffer " *nnheader-temp*"))) (insert-buffer-substring cur beg end)) - ;; Otherwise just narrow to the data + ;; Otherwise just narrow to the data. (narrow-to-region beg end)) (let ((case-fold-search t) (buffer-read-only nil) header) (nnheader-remove-cr-followed-by-lf) (ietf-drums-unfold-fws) - (subst-char-in-region (point-min) (point-max) ?\t ? t) - (subst-char-in-region (point-min) (point-max) ?\r ? t) + (subst-char-in-region (point-min) (point-max) ?\t ?\s t) + (subst-char-in-region (point-min) (point-max) ?\r ?\s t) (goto-char (point-min)) (insert "\n") (setq header (nnheader-head-make-header num)) |