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/gnus.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/gnus.el')
| -rw-r--r-- | lisp/gnus/gnus.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index 3d7c37eac89..7538274e158 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -3143,7 +3143,7 @@ that that variable is buffer-local to the summary buffers." t) ;is news of course. ((not (gnus-member-of-valid 'post-mail group)) ;Non-combined. nil) ;must be mail then. - ((vectorp article) ;Has header info. + ((mail-header-p article) ;Has header info. (eq (gnus-request-type group (mail-header-id article)) 'news)) ((null article) ;Hasn't header info (eq (gnus-request-type group) 'news)) ;(unknown ==> mail) |