aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/gnus/gnus-msg.el
diff options
context:
space:
mode:
authorAlan Mackenzie2017-02-12 10:59:03 +0000
committerAlan Mackenzie2017-02-12 10:59:03 +0000
commitf4d5b687150810129b7a1d5b006e31ccf82b691b (patch)
tree4229b13800349032697daae3904dc3773e6b7a80 /lisp/gnus/gnus-msg.el
parentd5514332d4a6092673ce1f78fadcae0c57f7be64 (diff)
parent148100d98319499f0ac6f57b8be08cbd14884a5c (diff)
downloademacs-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.el9
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))