mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 14:30:43 -08:00
Code Issues Projects Releases Wiki Activity

Ensure that gnus-summary-attach-article finds the right articles

Browse source 
* lisp/gnus/gnus-msg.el (gnus-summary-attach-article): Before
iterating over the articles to attach, first close any open
article. Using `set-buffer' required `gnus-summary-select-article' to
re-set the buffer every time, meaning we never got off the original
article.

(cherry picked from commit 447bb1313a)
This commit is contained in:
Eric Abrahamsen 2020-01-18 11:08:11 -08:00
parent f3d30b5303
commit 5118394e5b
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/gnus/gnus-msg.el
View file

@ -1985,13 +1985,14 @@ process-mark several articles, they will all be attached."
buffers t nil nil (car buffers))))
(gnus-summary-mail-other-window)
(setq destination (current-buffer)))
(gnus-summary-expand-window)
(gnus-summary-iterate n
(gnus-summary-select-article)
(set-buffer destination)
;; Attach at the end of the buffer.
(save-excursion
(goto-char (point-max))
(message-forward-make-body-mime gnus-original-article-buffer)))
(with-current-buffer destination
;; Attach at the end of the buffer.
(save-excursion
(goto-char (point-max))
(message-forward-make-body-mime gnus-original-article-buffer))))
(gnus-configure-windows 'message t)))
(provide 'gnus-msg)