From: Katsumi Yamaoka Date: Sun, 8 Dec 2013 23:11:14 +0000 (+0000) Subject: lisp/gnus/gnus-msg.el (gnus-setup-message): Fix the type of argument passed to nnir... X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~503 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b51eddb2a15a74dfc0628a3cf0edab4663713a53;p=emacs.git lisp/gnus/gnus-msg.el (gnus-setup-message): Fix the type of argument passed to nnir-article-number and nnir-article-group --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 2026d11042d..83b66f78f64 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2013-12-08 Katsumi Yamaoka + + * 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 * message.el (message-send-mail-with-sendmail): diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index 0f78f2edc5f..f5045e9b3cb 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -433,12 +433,12 @@ Thank you for your help in stamping out bugs. (,buffer (buffer-name (current-buffer))) (,article (if (and (gnus-nnir-group-p gnus-newsgroup-name) gnus-article-reply) - (nnir-article-number gnus-article-reply) + (nnir-article-number (length gnus-article-reply)) gnus-article-reply)) (,yanked gnus-article-yanked-articles) (,group (if (and (gnus-nnir-group-p gnus-newsgroup-name) gnus-article-reply) - (nnir-article-group gnus-article-reply) + (nnir-article-group (length gnus-article-reply)) gnus-newsgroup-name)) (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))) (setq mml-buffer-list nil) (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 ;; gnus-inews-add-send-actions, but this is too late when ;; message-generate-headers-first is used. --ansel