[Emacs-diffs] trunk r115433: lisp/gnus/gnus-msg.el (gnus-setup-message): Fix last commit

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 115433
revision-id: address@hidden
parent: address@hidden
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2013-12-09 00:35:15 +0000
message:
  lisp/gnus/gnus-msg.el (gnus-setup-message): Fix last commit
modified:
  lisp/gnus/gnus-msg.el          gnusmsg.el-20091113204419-o5vbwnq5f7feedwu-1127

=== modified file 'lisp/gnus/gnus-msg.el'
--- a/lisp/gnus/gnus-msg.el     2013-12-08 23:11:14 +0000
+++ b/lisp/gnus/gnus-msg.el     2013-12-09 00:35:15 +0000
@@ -433,12 +433,14 @@
           (,buffer (buffer-name (current-buffer)))
           (,article (if (and (gnus-nnir-group-p gnus-newsgroup-name)
                              gnus-article-reply)
-                        (nnir-article-number (length gnus-article-reply))
+                        (nnir-article-number (or (car-safe gnus-article-reply)
+                                                 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 (length gnus-article-reply))
+                      (nnir-article-group (or (car-safe gnus-article-reply)
+                                              gnus-article-reply))
                     gnus-newsgroup-name))
           (message-header-setup-hook
            (copy-sequence message-header-setup-hook))