From: yamaoka <yamaoka>
Date: Fri, 14 Apr 2000 03:40:57 +0000 (+0000)
Subject: (gnus-summary-yank-message): Rewrite for the use of the separated message
X-Git-Tag: t-gnus-6_14_2-00~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=87f5158801fa1d613fe5b26e11123b264bca596f;p=elisp%2Fgnus.git-

(gnus-summary-yank-message): Rewrite for the use of the separated message
frames; use `gnus-copy-article-buffer'.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 270f800..4abb7dc 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -988,13 +988,33 @@ If YANK is non-nil, include the original article."
   (interactive
    (list (completing-read "Buffer: " (mapcar 'list (message-buffers)) nil t)
 	 current-prefix-arg))
-  (gnus-summary-iterate n
-    (let ((gnus-display-mime-function nil)
-	  (gnus-inhibit-treatment t))
-      (gnus-summary-select-article))
-    (save-excursion
-      (set-buffer buffer)
-      (message-yank-buffer gnus-article-buffer))))
+  (when (gnus-buffer-live-p buffer)
+    (let ((summary-frame (selected-frame))
+	  (message-frame (when (static-if (featurep 'xemacs)
+				   (device-on-window-system-p)
+				 window-system)
+			   (let ((window (get-buffer-window buffer t)))
+			     (when window
+			       (window-frame window)))))
+	  (separator (concat "^" (regexp-quote mail-header-separator)
+			     "\n")))
+      (gnus-summary-iterate n
+	(gnus-summary-select-article)
+	(gnus-copy-article-buffer)
+	(when (frame-live-p message-frame)
+	  (raise-frame message-frame)
+	  (select-frame message-frame))
+	(with-current-buffer buffer
+	  (when (save-excursion
+		  (beginning-of-line)
+		  (let (case-fold-search)
+		    (and (not (re-search-backward separator nil t))
+			 (re-search-forward separator nil t))))
+	    (goto-char (match-end 0)))
+	  (message-yank-buffer gnus-article-copy))
+	(select-frame summary-frame))
+      (when (frame-live-p message-frame)
+	(select-frame message-frame)))))
 
 (defun gnus-debug ()
   "Attempts to go through the Gnus source file and report what variables have been changed.