Mercurial > hg > xemacs-beta
diff lisp/gnus/gnus-vm.el @ 108:360340f9fd5f r20-1b6
Import from CVS: tag r20-1b6
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:18:39 +0200 |
parents | 0d2f883870bc |
children | 9f59509498e1 |
line wrap: on
line diff
--- a/lisp/gnus/gnus-vm.el Mon Aug 13 09:17:27 2007 +0200 +++ b/lisp/gnus/gnus-vm.el Mon Aug 13 09:18:39 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)