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

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 115432
revision-id: address@hidden
parent: address@hidden
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2013-12-08 23:11:14 +0000
message:
  lisp/gnus/gnus-msg.el (gnus-setup-message): Fix the type of argument passed 
to nnir-article-number and nnir-article-group
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-msg.el          gnusmsg.el-20091113204419-o5vbwnq5f7feedwu-1127

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-12-03 01:17:02 +0000
+++ b/lisp/gnus/ChangeLog       2013-12-08 23:11:14 +0000
@@ -1,3 +1,8 @@
+2013-12-08  Katsumi Yamaoka  <address@hidden>
+
+       * 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  <address@hidden>
 
        * message.el (message-send-mail-with-sendmail):

=== modified file 'lisp/gnus/gnus-msg.el'
--- a/lisp/gnus/gnus-msg.el     2013-07-23 07:04:24 +0000
+++ b/lisp/gnus/gnus-msg.el     2013-12-08 23:11:14 +0000
@@ -433,12 +433,12 @@
           (,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 @@
           (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