Mercurial > emacs

diff lisp/gnus/gnus-vm.el @ 24357:15fc6acbae7a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Upgrading to Gnus 5.7; see ChangeLog
author Lars Magne Ingebrigtsen <larsi@gnus.org>
date Sat, 20 Feb 1999 14:05:57 +0000
parents e6935c08cf0b
children cbe304a26771
line wrap: on
line diff
--- a/lisp/gnus/gnus-vm.el	Sat Feb 20 13:52:45 1999 +0000
+++ b/lisp/gnus/gnus-vm.el	Sat Feb 20 14:05:57 1999 +0000
@@ -1,5 +1,5 @@
 ;;; gnus-vm.el --- vm interface for Gnus
-;; Copyright (C) 1994,95,96,97 Free Software Foundation, Inc.
+;; Copyright (C) 1994,95,96,97,98 Free Software Foundation, Inc.
 
 ;; Author: Per Persson <pp@gnu.ai.mit.edu>
 ;; Keywords: news, mail
@@ -88,12 +88,10 @@
 (defun gnus-summary-save-in-vm (&optional folder)
   (interactive)
   (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-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