mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-03 20:24:29 +00:00
Code Issues Releases Activity

lisp/gnus/gnus-msg.el (gnus-setup-message): Fix the type of argument passed to nnir-article-number and nnir-article-group

Browse Source
This commit is contained in:
Katsumi Yamaoka 2013-12-08 23:11:14 +00:00
parent 09a7c0fe67
commit b51eddb2a1
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -1,3 +1,8 @@
2013-12-08 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-msg.el (gnus-setup-message): Fix the type of argument passed to
nnir-article-number and nnir-article-group.
2013-12-03 Vitalie Spinu <spinuvit@gmail.com> 2013-12-03 Vitalie Spinu <spinuvit@gmail.com>
* message.el (message-send-mail-with-sendmail): * message.el (message-send-mail-with-sendmail):

6
lisp/gnus/gnus-msg.el
View File

@ -433,12 +433,12 @@ Thank you for your help in stamping out bugs.
(,buffer (buffer-name (current-buffer))) (,buffer (buffer-name (current-buffer)))
(,article (if (and (gnus-nnir-group-p gnus-newsgroup-name) (,article (if (and (gnus-nnir-group-p gnus-newsgroup-name)
gnus-article-reply) gnus-article-reply)
(nnir-article-number gnus-article-reply) (nnir-article-number (length gnus-article-reply))
gnus-article-reply)) gnus-article-reply))
(,yanked gnus-article-yanked-articles) (,yanked gnus-article-yanked-articles)
(,group (if (and (gnus-nnir-group-p gnus-newsgroup-name) (,group (if (and (gnus-nnir-group-p gnus-newsgroup-name)
gnus-article-reply) gnus-article-reply)
(nnir-article-group gnus-article-reply) (nnir-article-group (length gnus-article-reply))
gnus-newsgroup-name)) gnus-newsgroup-name))
(message-header-setup-hook (message-header-setup-hook
(copy-sequence message-header-setup-hook)) (copy-sequence message-header-setup-hook))
@ -446,7 +446,7 @@ Thank you for your help in stamping out bugs.
(message-mode-hook (copy-sequence message-mode-hook))) (message-mode-hook (copy-sequence message-mode-hook)))
(setq mml-buffer-list nil) (setq mml-buffer-list nil)
(add-hook 'message-header-setup-hook (lambda () (add-hook 'message-header-setup-hook (lambda ()
(gnus-inews-insert-gcc ,group))) (gnus-inews-insert-gcc ,group)))
;; message-newsreader and message-mailer were formerly set in ;; message-newsreader and message-mailer were formerly set in
;; gnus-inews-add-send-actions, but this is too late when ;; gnus-inews-add-send-actions, but this is too late when
;; message-generate-headers-first is used. --ansel ;; message-generate-headers-first is used. --ansel