Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-vm.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 360340f9fd5f
children
line wrap: on
line diff
--- a/lisp/gnus/gnus-vm.el	Mon Aug 13 09:21:56 2007 +0200
+++ b/lisp/gnus/gnus-vm.el	Mon Aug 13 09:23:06 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)