diff options
| -rw-r--r-- | lisp/gnus/gnus-msg.el | 6 |
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)) |