From aa4305c4ece2b34ae5962f8807a146fe3bcaceac Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 28 Jan 1999 22:53:48 +0000 Subject: [PATCH] * (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. --- lisp/gnus-msg.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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) -- 1.7.10.4