diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-05-17 00:09:16 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-05-17 00:09:16 -0400 |
commit | a93e672e279adc45782254a66520471c336ed4ac (patch) | |
tree | 601e2754d8cdc903a4491dde4829a7b337e87dc0 /lisp/gnus/nnheader.el | |
parent | 9843e7b6b159d66feaaa2c5f67e3d7fd0c63af1d (diff) | |
download | emacs-a93e672e279adc45782254a66520471c336ed4ac.tar.gz |
* lisp/gnus: Remove assumptions about mail-header being a vector
Use `mail-header-p` and `make-full-mail-header` instead of `vectorp` and
`vector`, respectively.
* lisp/gnus/message.el (message-cite-original-1, message-reply)
(message-followup):
* lisp/gnus/gnus-sum.el (gnus-get-newsgroup-headers):
Use make-full-mail-header instead of `vector`.
(gnus--dummy-mail-header): New const, using make-full-mail-header.
(gnus-update-summary-mark-positions): Use it instead of
an immediate vector.
(gnus-set-mode-line, gnus-summary-article-pseudo-p)
(gnus-summary-article-subject, gnus-summary-insert-subject)
(gnus-summary-find-subject, gnus-summary-goto-subject)
(gnus-summary-limit-to-age, gnus-summary-find-matching)
(gnus-summary-mark-article-as-unread, gnus-summary-mark-article)
(gnus-summary-save-article):
* lisp/gnus/gnus.el (gnus-news-group-p): Use mail-header-p instead
of vectorp.
Diffstat (limited to 'lisp/gnus/nnheader.el')
-rw-r--r-- | lisp/gnus/nnheader.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/gnus/nnheader.el b/lisp/gnus/nnheader.el index e138f141c69..d30a7399493 100644 --- a/lisp/gnus/nnheader.el +++ b/lisp/gnus/nnheader.el @@ -136,6 +136,7 @@ on your system, you could say something like: ;; (That next-to-last entry is defined as "misc" in the NOV format, ;; but Gnus uses it for xrefs.) +(defalias 'mail-header-p #'vectorp) ;For lack of tag, it's all we have. (cl-defstruct (mail-header (:type vector) (:constructor nil) |