(gnus-setup-message): Fix the type of argument passed to nnir-article-number and...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dc27256..b747f7c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/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-msg.el b/lisp/gnus-msg.el
index 0f78f2e..f5045e9 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/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