diff options
| author | Alan Mackenzie | 2017-02-12 10:59:03 +0000 |
|---|---|---|
| committer | Alan Mackenzie | 2017-02-12 10:59:03 +0000 |
| commit | f4d5b687150810129b7a1d5b006e31ccf82b691b (patch) | |
| tree | 4229b13800349032697daae3904dc3773e6b7a80 /lisp/gnus/gnus-msg.el | |
| parent | d5514332d4a6092673ce1f78fadcae0c57f7be64 (diff) | |
| parent | 148100d98319499f0ac6f57b8be08cbd14884a5c (diff) | |
| download | emacs-comment-cache.tar.gz emacs-comment-cache.zip | |
Merge branch 'master' into comment-cachecomment-cache
Diffstat (limited to 'lisp/gnus/gnus-msg.el')
| -rw-r--r-- | lisp/gnus/gnus-msg.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index 19111171198..a193ab41348 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el | |||
| @@ -546,7 +546,8 @@ instead." | |||
| 546 | (gnus-setup-message 'message | 546 | (gnus-setup-message 'message |
| 547 | (message-mail to subject other-headers continue | 547 | (message-mail to subject other-headers continue |
| 548 | nil yank-action send-actions return-action))) | 548 | nil yank-action send-actions return-action))) |
| 549 | (setq gnus-newsgroup-name group-name)) | 549 | (with-current-buffer buf |
| 550 | (setq gnus-newsgroup-name group-name))) | ||
| 550 | (when switch-action | 551 | (when switch-action |
| 551 | (setq mail-buf (current-buffer)) | 552 | (setq mail-buf (current-buffer)) |
| 552 | (switch-to-buffer buf) | 553 | (switch-to-buffer buf) |
| @@ -1534,11 +1535,7 @@ If YANK is non-nil, include the original article." | |||
| 1534 | (message-pop-to-buffer "*Gnus Bug*")) | 1535 | (message-pop-to-buffer "*Gnus Bug*")) |
| 1535 | (let ((message-this-is-mail t)) | 1536 | (let ((message-this-is-mail t)) |
| 1536 | (message-setup `((To . ,gnus-maintainer) | 1537 | (message-setup `((To . ,gnus-maintainer) |
| 1537 | (Subject . "") | 1538 | (Subject . "")))) |
| 1538 | (X-Debbugs-Package | ||
| 1539 | . ,(format "%s" gnus-bug-package)) | ||
| 1540 | (X-Debbugs-Version | ||
| 1541 | . ,(format "%s" (gnus-continuum-version)))))) | ||
| 1542 | (when gnus-bug-create-help-buffer | 1539 | (when gnus-bug-create-help-buffer |
| 1543 | (push `(gnus-bug-kill-buffer) message-send-actions)) | 1540 | (push `(gnus-bug-kill-buffer) message-send-actions)) |
| 1544 | (goto-char (point-min)) | 1541 | (goto-char (point-min)) |