# HG changeset patch # User Romain Francoise # Date 1127604278 0 # Node ID 41260182da5b5ac57cb94822237af3a1f20cf160 # Parent 16baf997c85ce0dd89d488038b7ebf4fb18cef36 2005-09-25 Romain Francoise * 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. diff -r 16baf997c85c -r 41260182da5b lisp/gnus/ChangeLog --- 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 + + * 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 * smime.el (smime-sign-buffer, smime-decrypt-buffer): diff -r 16baf997c85c -r 41260182da5b lisp/gnus/gnus-agent.el --- 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. diff -r 16baf997c85c -r 41260182da5b lisp/gnus/gnus-start.el --- 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))) diff -r 16baf997c85c -r 41260182da5b lisp/gnus/gnus-uu.el --- 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)