diff options
| author | Romain Francoise <romain@orebokech.com> | 2005-09-24 23:24:38 +0000 |
|---|---|---|
| committer | Romain Francoise <romain@orebokech.com> | 2005-09-24 23:24:38 +0000 |
| commit | 668414769aa92a7350bacab3c98507c3c1189e5c (patch) | |
| tree | 4c37cf46ace725269e2d7557b1e168979c638972 | |
| parent | 08c583dbd17a8cf8db889402a57f4aef8803ff17 (diff) | |
| download | emacs-668414769aa92a7350bacab3c98507c3c1189e5c.tar.gz | |
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.
| -rw-r--r-- | lisp/gnus/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/gnus/gnus-agent.el | 4 | ||||
| -rw-r--r-- | lisp/gnus/gnus-start.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/gnus-uu.el | 2 |
4 files changed, 12 insertions, 4 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index bb81878502b..b878be500bb 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -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): diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el index 47d1dfd7364..0d024d06e11 100644 --- a/lisp/gnus/gnus-agent.el +++ b/lisp/gnus/gnus-agent.el @@ -2934,7 +2934,7 @@ FORCE is equivalent to setting the expiration predicates to true." (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 @@ FORCE is equivalent to setting the expiration predicates to true." (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. diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 47b380b19bb..113d80bd124 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -606,7 +606,7 @@ Can be used to turn version control on or off." "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))) diff --git a/lisp/gnus/gnus-uu.el b/lisp/gnus/gnus-uu.el index a2f3f353a05..01f21887aee 100644 --- a/lisp/gnus/gnus-uu.el +++ b/lisp/gnus/gnus-uu.el @@ -1294,7 +1294,7 @@ When called interactively, prompt for REGEXP." (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) |