summaryrefslogtreecommitdiff
path: root/lisp/gnus/gnus-vm.el
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen <larsi@gnus.org>1999-02-20 14:05:57 +0000
committerLars Magne Ingebrigtsen <larsi@gnus.org>1999-02-20 14:05:57 +0000
commit6748645fc3dd1604ed57a883b7c346128af27d90 (patch)
treec4c528db7873d3ef96121c002b4d09209c305dca /lisp/gnus/gnus-vm.el
parent44a6ed57c9af413959fdebe38649c0df4a055fca (diff)
downloademacs-6748645fc3dd1604ed57a883b7c346128af27d90.tar.gz
emacs-6748645fc3dd1604ed57a883b7c346128af27d90.tar.bz2
emacs-6748645fc3dd1604ed57a883b7c346128af27d90.zip
Upgrading to Gnus 5.7; see ChangeLog
Diffstat (limited to 'lisp/gnus/gnus-vm.el')
-rw-r--r--lisp/gnus/gnus-vm.el12
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/gnus/gnus-vm.el b/lisp/gnus/gnus-vm.el
index 8e83dbea95a..bbefaaca5f9 100644
--- a/lisp/gnus/gnus-vm.el
+++ b/lisp/gnus/gnus-vm.el
@@ -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 @@ save those articles instead."
(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