Commit 66841476 authored by Romain Francoise's avatar Romain Francoise
Browse files

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.
parent 08c583db
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):
......
......@@ -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.
......
......@@ -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)))
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment