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.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index bb81878502b1927861b452e1b68858d052039f96..b878be500bb28c36a0b7acbcf1cce6cc11847908 100644 (file)
--- 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 47d1dfd73644dfa014420189fd21a22fe4bdd0bc..0d024d06e11ed5fab777a1e7f1a1030c284aa153 100644 (file)
--- 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 47b380b19bbdf1680650b86ef1fdb261eea05eb5..113d80bd1245843354a62197e7ff089b34198c4f 100644 (file)
--- 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 a2f3f353a05f21f0414d4e2f72292e4a076a8f9f..01f21887aee748865301c13aa641f6df27a85e66 100644 (file)
--- 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)