From d62e3e524002509254002bea5a309d0a12c57e70 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 11 Jan 1999 05:24:40 +0000 Subject: [PATCH] * (gnus-summary-save-in-vm): Save window config, select the article before saving. --- ChangeLog | 5 +++++ lisp/gnus-vm.el | 16 +++++++++------- 2 files changed, 14 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index a2aed64..824232e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1999-01-11 Katsumi Yamaoka + + * lisp/gnus-vm.el (gnus-summary-save-in-vm): Save window config, + select the article before saving. + 1999-01-09 Tsukamoto Tetsuo * 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) -- 1.7.10.4