diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-05-16 21:50:16 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-05-16 21:50:16 -0400 |
| commit | 5f6c08ef2c52c7fe526cbe4f9a684438f6a72007 (patch) | |
| tree | 4d8904ab5cdd8f520e96a95bf00620b5dda41f71 /lisp/gnus/nnml.el | |
| parent | ca3c59146bd5c0effdc7602718b91f1ee41f866a (diff) | |
| download | emacs-5f6c08ef2c52c7fe526cbe4f9a684438f6a72007.tar.gz emacs-5f6c08ef2c52c7fe526cbe4f9a684438f6a72007.tar.bz2 emacs-5f6c08ef2c52c7fe526cbe4f9a684438f6a72007.zip | |
* lisp/gnus/nnheader.el (mail-header-*): Define via cl-defstruct
This also has the side effect that the accessors are now defined as proper
functions rather than as macros, so they can be passed to `mapcar` etc..
* lisp/gnus/nnheader.el (mail-header-number, mail-header-subject)
(mail-header-from, mail-header-date, mail-header-id)
(mail-header-references, mail-header-chars, mail-header-lines)
(mail-header-xref, mail-header-extra): Define via cl-defstruct.
(mail-header-set-number, mail-header-set-subject)
(mail-header-set-from, mail-header-set-date, mail-header-set-id)
(mail-header-set-message-id, mail-header-set-references)
(mail-header-set-chars, mail-header-set-lines, mail-header-set-xref)
(mail-header-set-extra): Remove, use `setf` instead. All callers adjusted.
* lisp/gnus/gnus-sum.el (gnus-select-newsgroup)
(gnus-summary-pop-limit, gnus-summary-limit-mark-excluded-as-read)
(gnus-summary-find-matching, gnus-find-matching-articles):
* lisp/gnus/gnus-kill.el (gnus-apply-kill-file-internal, gnus-execute):
* lisp/gnus/gnus-score.el (gnus-score-adaptive):
Eta-reduce, now that mail-header-FIELD are functions.
Diffstat (limited to 'lisp/gnus/nnml.el')
| -rw-r--r-- | lisp/gnus/nnml.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/gnus/nnml.el b/lisp/gnus/nnml.el index 205e9e48034..1d9d166dbac 100644 --- a/lisp/gnus/nnml.el +++ b/lisp/gnus/nnml.el @@ -792,14 +792,14 @@ article number. This function is called narrowed to an article." "Add a nov line for the GROUP nov headers, incrementally." (with-current-buffer (nnml-open-incremental-nov group) (goto-char (point-max)) - (mail-header-set-number headers article) + (setf (mail-header-number headers) article) (nnheader-insert-nov headers))) (defun nnml-add-nov (group article headers) "Add a nov line for the GROUP base." (with-current-buffer (nnml-open-nov group) (goto-char (point-max)) - (mail-header-set-number headers article) + (setf (mail-header-number headers) article) (nnheader-insert-nov headers))) (defsubst nnml-header-value () @@ -816,8 +816,8 @@ article number. This function is called narrowed to an article." (1- (point)) (point-max)))) (let ((headers (nnheader-parse-naked-head))) - (mail-header-set-chars headers chars) - (mail-header-set-number headers number) + (setf (mail-header-chars headers) chars) + (setf (mail-header-number headers) number) headers)))) (defun nnml-get-nov-buffer (group &optional incrementalp) |