Mercurial > emacs

diff lisp/gnus/gnus-agent.el @ 65688:41260182da5b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 eb0fd19f4e01
children cb3218d6e82a
line wrap: on
line diff
--- 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.