From 3ebe0fcc06da1eab51ea1af2822cf6c1817857fa Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 20 Jan 1999 05:48:26 +0000 Subject: [PATCH] * (gnus-inews-yank-articles): Reselect the message frame after selecting a new article if the value of `message-use-multi-frames' is non-nil and plural articles are given. --- lisp/gnus-msg.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index c1f30d5..2da2e13 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -307,13 +307,18 @@ If prefix argument YANK is non-nil, original article is yanked automatically." (gnus-summary-followup (gnus-summary-work-articles arg) t)) (defun gnus-inews-yank-articles (articles) - (let (beg article) + (let ((frame (when (and message-use-multi-frames + (> (length articles) 1)) + (window-frame (get-buffer-window (current-buffer))))) + beg article) (message-goto-body) (while (setq article (pop articles)) (save-window-excursion (set-buffer gnus-summary-buffer) (gnus-summary-select-article nil nil nil article) (gnus-summary-remove-process-mark article)) + (when frame + (select-frame frame)) (gnus-copy-article-buffer) (let ((message-reply-buffer gnus-article-copy) (message-reply-headers gnus-current-headers)) -- 1.7.10.4