diff options
author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2020-01-18 11:08:11 -0800 |
---|---|---|
committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2020-01-18 13:55:18 -0800 |
commit | 5118394e5be1f4ae2d74d7aee08aa2c149af790a (patch) | |
tree | 69b21bfdbbaca8d345f32941ef43883460dc6cc3 | |
parent | f3d30b5303783a307921b914d4df0b082106b39d (diff) | |
download | emacs-5118394e5be1f4ae2d74d7aee08aa2c149af790a.tar.gz |
Ensure that gnus-summary-attach-article finds the right articles
* 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 447bb1313a6abc07776d93ee78cd976ab43856e5)
-rw-r--r-- | lisp/gnus/gnus-msg.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index 466a62713ed..daaea3980b5 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -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) |