From: yamaoka <yamaoka>
Date: Mon, 11 Jan 1999 05:24:40 +0000 (+0000)
Subject: * (gnus-summary-save-in-vm): Save window config, select the article before
X-Git-Tag: pgnus-ichikawa-199901111900~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d62e3e524002509254002bea5a309d0a12c57e70;p=elisp%2Fgnus.git-

* (gnus-summary-save-in-vm): Save window config, select the article before
saving.
---

diff --git a/ChangeLog b/ChangeLog
index a2aed64..824232e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-01-11  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* lisp/gnus-vm.el (gnus-summary-save-in-vm): Save window config,
+	select the article before saving.
+
 1999-01-09  Tsukamoto Tetsuo  <czkmt@remus.dti.ne.jp>
 
 	* lisp/gnus-offline.el (gnus-offline-popup-menu): Bug fix -- Use
diff --git a/lisp/gnus-vm.el b/lisp/gnus-vm.el
index bbefaac..3e65485 100644
--- a/lisp/gnus-vm.el
+++ b/lisp/gnus-vm.el
@@ -92,13 +92,15 @@ save those articles instead."
 	 "Save %s in VM folder:" folder
 	 gnus-mail-save-name gnus-newsgroup-name
 	 gnus-current-headers 'gnus-newsgroup-last-mail))
-  (gnus-eval-in-buffer-window gnus-original-article-buffer
-    (save-excursion
-      (save-restriction
-	(widen)
-	(let ((vm-folder (gnus-vm-make-folder)))
-	  (vm-save-message folder)
-	  (kill-buffer vm-folder))))))
+  (save-window-excursion
+    (gnus-summary-select-article gnus-show-all-headers)
+    (gnus-eval-in-buffer-window gnus-original-article-buffer
+      (save-excursion
+	(save-restriction
+	  (widen)
+	  (let ((vm-folder (gnus-vm-make-folder)))
+	    (vm-save-message folder)
+	    (kill-buffer vm-folder)))))))
 
 (provide 'gnus-vm)