Mercurial > emacs
diff lisp/gnus/gnus-art.el @ 65682:c16795de963a
2005-09-24 Emilio C. Lopes <eclig@gmx.net>
* smime.el (smime-sign-buffer, smime-decrypt-buffer):
* mm-view.el (mm-view-pkcs7-decrypt):
* gnus-sum.el (gnus-summary-limit-to-extra)
(gnus-summary-respool-article, gnus-read-move-group-name):
* gnus-score.el (gnus-summary-increase-score):
* gnus-util.el (gnus-completing-read-with-default):
* gnus-art.el (gnus-read-save-file-name)
(gnus-summary-save-in-rmail, gnus-summary-save-in-mail)
(gnus-summary-save-in-file, gnus-summary-save-body-in-file):
* message.el (message-check-news-header-syntax):
Follow convention for reading with the minibuffer.
author | Romain Francoise <romain@orebokech.com> |
---|---|
date | Sat, 24 Sep 2005 13:46:20 +0000 |
parents | cabd12ecc31c |
children | 5265a4059126 ee12d75eb214 |
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el Sat Sep 24 13:45:50 2005 +0000 +++ b/lisp/gnus/gnus-art.el Sat Sep 24 13:46:20 2005 +0000 @@ -3255,7 +3255,7 @@ ((null split-name) (read-file-name (concat prompt " (default " - (file-name-nondirectory default-name) ") ") + (file-name-nondirectory default-name) "): ") (file-name-directory default-name) default-name)) ;; A single group name is returned. @@ -3265,7 +3265,7 @@ (symbol-value variable))) (read-file-name (concat prompt " (default " - (file-name-nondirectory default-name) ") ") + (file-name-nondirectory default-name) "): ") (file-name-directory default-name) default-name)) ;; A single split name was found @@ -3278,7 +3278,7 @@ ((file-exists-p name) name) (t gnus-article-save-directory)))) (read-file-name - (concat prompt " (default " name ") ") + (concat prompt " (default " name "): ") dir name))) ;; A list of splits was found. (t @@ -3289,7 +3289,7 @@ (setq result (expand-file-name (read-file-name - (concat prompt " (`M-p' for defaults) ") + (concat prompt " (`M-p' for defaults): ") gnus-article-save-directory (car split-name)) gnus-article-save-directory))) @@ -3323,7 +3323,7 @@ Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory'." (setq filename (gnus-read-save-file-name - "Save %s in rmail file:" filename + "Save %s in rmail file" filename gnus-rmail-save-name gnus-newsgroup-name gnus-current-headers 'gnus-newsgroup-last-rmail)) (gnus-eval-in-buffer-window gnus-save-article-buffer @@ -3338,7 +3338,7 @@ Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory'." (setq filename (gnus-read-save-file-name - "Save %s in Unix mail file:" filename + "Save %s in Unix mail file" filename gnus-mail-save-name gnus-newsgroup-name gnus-current-headers 'gnus-newsgroup-last-mail)) (gnus-eval-in-buffer-window gnus-save-article-buffer @@ -3357,7 +3357,7 @@ Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory'." (setq filename (gnus-read-save-file-name - "Save %s in file:" filename + "Save %s in file" filename gnus-file-save-name gnus-newsgroup-name gnus-current-headers 'gnus-newsgroup-last-file)) (gnus-eval-in-buffer-window gnus-save-article-buffer @@ -3381,7 +3381,7 @@ Optional argument FILENAME specifies file name. The directory to save in defaults to `gnus-article-save-directory'." (setq filename (gnus-read-save-file-name - "Save %s body in file:" filename + "Save %s body in file" filename gnus-file-save-name gnus-newsgroup-name gnus-current-headers 'gnus-newsgroup-last-file)) (gnus-eval-in-buffer-window gnus-save-article-buffer