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. | |||
| 433 | (,buffer (buffer-name (current-buffer))) | 433 | (,buffer (buffer-name (current-buffer))) |
| 434 | (,article (if (and (gnus-nnir-group-p gnus-newsgroup-name) | 434 | (,article (if (and (gnus-nnir-group-p gnus-newsgroup-name) |
| 435 | gnus-article-reply) | 435 | gnus-article-reply) |
| 436 | (nnir-article-number (length gnus-article-reply)) | 436 | (nnir-article-number (or (car-safe gnus-article-reply) |
| 437 | gnus-article-reply)) | ||
| 437 | gnus-article-reply)) | 438 | gnus-article-reply)) |
| 438 | (,yanked gnus-article-yanked-articles) | 439 | (,yanked gnus-article-yanked-articles) |
| 439 | (,group (if (and (gnus-nnir-group-p gnus-newsgroup-name) | 440 | (,group (if (and (gnus-nnir-group-p gnus-newsgroup-name) |
| 440 | gnus-article-reply) | 441 | gnus-article-reply) |
| 441 | (nnir-article-group (length gnus-article-reply)) | 442 | (nnir-article-group (or (car-safe gnus-article-reply) |
| 443 | gnus-article-reply)) | ||
| 442 | gnus-newsgroup-name)) | 444 | gnus-newsgroup-name)) |
| 443 | (message-header-setup-hook | 445 | (message-header-setup-hook |
| 444 | (copy-sequence message-header-setup-hook)) | 446 | (copy-sequence message-header-setup-hook)) |