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

2 files changed, 8 insertions, 3 deletions

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  <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>
 
         * 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