From: yamaoka <yamaoka>
Date: Wed, 20 Jan 1999 05:48:26 +0000 (+0000)
Subject: * (gnus-inews-yank-articles): Reselect the message frame after selecting a new
X-Git-Tag: gnus-6_10-199901201900~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3ebe0fcc06da1eab51ea1af2822cf6c1817857fa;p=elisp%2Fgnus.git-

* (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.
---

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))