Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-vm.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents ec9a17fef872
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/gnus/gnus-vm.el	Mon Aug 13 08:54:26 2007 +0200
+++ b/lisp/gnus/gnus-vm.el	Mon Aug 13 08:54:51 2007 +0200
@@ -87,24 +87,20 @@
 
 (defun gnus-summary-save-in-vm (&optional folder)
   (interactive)
-  (let ((default-name
-	  (funcall gnus-mail-save-name gnus-newsgroup-name
-		   gnus-current-headers gnus-newsgroup-last-mail)))
-    (setq folder
-	  (cond ((eq folder 'default) default-name)
-		(folder folder)
-		(t (gnus-read-save-file-name
-		    "Save %s in VM folder:" default-name))))
-    (gnus-make-directory (file-name-directory folder))
-    (set-buffer gnus-original-article-buffer)
+  (setq folder
+	(cond ((eq folder 'default) default-name)
+	      (folder folder)
+	      (t (gnus-read-save-file-name
+		  "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))))
-    ;; Remember the directory name to save articles.
-    (setq gnus-newsgroup-last-mail folder)))
+	  (kill-buffer vm-folder))))))
 
 (provide 'gnus-vm)