lisp/gnus/gnus-msg.el (gnus-setup-message): Fix last commit

1 files changed, 4 insertions, 2 deletions

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index f5045e9b3cb..87eb6af9e3c 100644
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -433,12 +433,14 @@ 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 (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))