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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 2026d11042dabe54528600573ba7e3f94c9b599a..83b66f78f6491d6c02987aa539a493117da79ba9 100644 (file)
--- 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 0f78f2edc5f6477e98569d0b83272ca3c3bfd9ce..f5045e9b3cb18b4737383751a6a9e4a9ec9edbc6 100644 (file)
--- 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