summaryrefslogtreecommitdiff
path: root/lisp/gnus/gnus-msg.el
diff options
context:
space:
mode:
authorKatsumi Yamaoka <yamaoka@jpl.org>2013-12-09 00:35:15 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2013-12-09 00:35:15 +0000
commit1b9b6fbb5cfa6d6cf3401a6cc08e47cd6e83a41a (patch)
treeeeaf0d27e089e044c9db11acfc275365017fd7ae /lisp/gnus/gnus-msg.el
parentb51eddb2a15a74dfc0628a3cf0edab4663713a53 (diff)
downloademacs-1b9b6fbb5cfa6d6cf3401a6cc08e47cd6e83a41a.tar.gz
lisp/gnus/gnus-msg.el (gnus-setup-message): Fix last commit
Diffstat (limited to 'lisp/gnus/gnus-msg.el')
-rw-r--r--lisp/gnus/gnus-msg.el6
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))