Mercurial > hg > xemacs-beta
diff lisp/gnus/gnus-vm.el @ 30:ec9a17fef872 r19-15b98
Import from CVS: tag r19-15b98
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:52:29 +0200 |
parents | 0293115a14e9 |
children | 8b8b7f3559a2 |
line wrap: on
line diff
--- a/lisp/gnus/gnus-vm.el Mon Aug 13 08:51:58 2007 +0200 +++ b/lisp/gnus/gnus-vm.el Mon Aug 13 08:52:29 2007 +0200 @@ -23,9 +23,9 @@ ;;; Commentary: -;; Major contributors: +;; Major contributors: ;; Christian Limpach <Christian.Limpach@nice.ch> -;; Some code stolen from: +;; Some code stolen from: ;; Rick Sladkey <jrs@world.std.com> ;;; Code: @@ -74,7 +74,7 @@ (insert "\n") (vm-mode) tmp-folder)) - + (defun gnus-summary-save-article-vm (&optional arg) "Append the current article to a vm folder. If N is a positive number, save the N next articles. @@ -93,7 +93,7 @@ (setq folder (cond ((eq folder 'default) default-name) (folder folder) - (t (gnus-read-save-file-name + (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)