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

saving.

diff --git a/ChangeLog b/ChangeLog
index 9d02188..29e11b9 100644 (file)
--- 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 (file)
--- 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)