Mercurial > emacs
changeset 65688:41260182da5b
2005-09-25 Romain Francoise <romain@orebokech.com>
* gnus-agent.el (gnus-agent-expire-group, gnus-agent-expire):
* gnus-start.el (gnus-subscribe-interactively):
* gnus-uu.el (gnus-uu-grab-articles):
End `yes-or-no-p' and `y-or-n-p' prompts with question mark and
space.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Sat, 24 Sep 2005 23:24:38 +0000 |
| parents | 16baf997c85c |
| children | 96187e7edd1b |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-agent.el lisp/gnus/gnus-start.el lisp/gnus/gnus-uu.el |
| diffstat | 4 files changed, 12 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sat Sep 24 23:20:46 2005 +0000 +++ b/lisp/gnus/ChangeLog Sat Sep 24 23:24:38 2005 +0000 @@ -1,3 +1,11 @@ +2005-09-25 Romain Francoise <romain@orebokech.com> + + * gnus-agent.el (gnus-agent-expire-group, gnus-agent-expire): + * gnus-start.el (gnus-subscribe-interactively): + * gnus-uu.el (gnus-uu-grab-articles): + End `yes-or-no-p' and `y-or-n-p' prompts with question mark and + space. + 2005-09-24 Emilio C. Lopes <eclig@gmx.net> * smime.el (smime-sign-buffer, smime-decrypt-buffer):
--- a/lisp/gnus/gnus-agent.el Sat Sep 24 23:20:46 2005 +0000 +++ b/lisp/gnus/gnus-agent.el Sat Sep 24 23:24:38 2005 +0000 @@ -2934,7 +2934,7 @@ (if (or (not (eq articles t)) (yes-or-no-p (concat "Are you sure that you want to " - "expire all articles in " group "."))) + "expire all articles in " group "? "))) (let ((gnus-command-method (gnus-find-method-for-group group)) (overview (gnus-get-buffer-create " *expire overview*")) orig) @@ -3308,7 +3308,7 @@ (gnus-agent-expire-group group articles force) (if (or (not (eq articles t)) (yes-or-no-p "Are you sure that you want to expire all \ -articles in every agentized group.")) +articles in every agentized group? ")) (let ((methods (gnus-agent-covered-methods)) ;; Bind gnus-agent-expire-current-dirs to enable tracking ;; of agent directories.
--- a/lisp/gnus/gnus-start.el Sat Sep 24 23:20:46 2005 +0000 +++ b/lisp/gnus/gnus-start.el Sat Sep 24 23:24:38 2005 +0000 @@ -606,7 +606,7 @@ "Subscribe the new GROUP interactively. It is inserted in hierarchical newsgroup order if subscribed. If not, it is killed." - (if (gnus-y-or-n-p (format "Subscribe new newsgroup: %s " group)) + (if (gnus-y-or-n-p (format "Subscribe new newsgroup %s? " group)) (gnus-subscribe-hierarchically group) (push group gnus-killed-list)))
--- a/lisp/gnus/gnus-uu.el Sat Sep 24 23:20:46 2005 +0000 +++ b/lisp/gnus/gnus-uu.el Sat Sep 24 23:24:38 2005 +0000 @@ -1294,7 +1294,7 @@ (not gnus-uu-be-dangerous) (or (eq gnus-uu-be-dangerous t) (gnus-y-or-n-p - (format "Delete unsuccessfully decoded file %s" + (format "Delete unsuccessfully decoded file %s? " result-file)))) (delete-file result-file))) (when (memq 'begin process-state)