From 945717dd4cf04404f83272c9853db940c0d198a4 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Sun, 8 Dec 2013 23:11:14 +0000 Subject: [PATCH] lisp/gnus/gnus-msg.el (gnus-setup-message): Fix the type of argument passed to nnir-article-number and nnir-article-group --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-msg.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 10fc4be5408..1673a155c72 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 -- 2.11.4.GIT