From: yamaoka <yamaoka>
Date: Thu, 28 Jan 1999 22:53:48 +0000 (+0000)
Subject: * (gnus-summary-mail-digest): Reselect the message frame after selecting a new
X-Git-Tag: gnus-6_10-199901291900~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=aa4305c4ece2b34ae5962f8807a146fe3bcaceac;p=elisp%2Fgnus.git-

* (gnus-summary-mail-digest): Reselect the message frame after selecting a new
article if the value of `message-use-multi-frames' is non-nil and more than one
articles are given.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index a4d0609..ac915ed 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -697,16 +697,20 @@ If FULL-HEADERS (the prefix), include full headers when forwarding."
   (interactive "P")
   (let ((subject "Digested Articles")
 	(articles (gnus-summary-work-articles n))
-	article)
+	article frame)
     (gnus-setup-message 'forward
       (gnus-summary-select-article)
       (if post (message-news nil subject) (message-mail nil subject))
+      (when (and message-use-multi-frames (cdr articles))
+	(setq frame (window-frame (get-buffer-window (current-buffer)))))
       (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))
 	(insert (mime-make-tag "message" "rfc822") "\n")
 	(insert-buffer-substring gnus-original-article-buffer))
       (push-mark)