From: yamaoka <yamaoka>
Date: Thu, 28 Jan 1999 22:54:30 +0000 (+0000)
Subject: * (gnus-summary-mail-digest): Reselect the message frame after selecting a new
X-Git-Tag: pgnus-ichikawa-199901291900~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=025d0af7ff63983f1675128a674546692abb027e;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 c4bf6bf..d6c0062 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -736,16 +736,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)