Mercurial > emacs
comparison lisp/gnus/gnus-agent.el @ 65688:41260182da5b
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 |
comparison
equal
deleted
inserted
replaced
| 65687:16baf997c85c | 65688:41260182da5b |
|---|---|
| 2932 ;; expiration statistics of this single group | 2932 ;; expiration statistics of this single group |
| 2933 (gnus-agent-expire-stats (list 0 0 0.0))) | 2933 (gnus-agent-expire-stats (list 0 0 0.0))) |
| 2934 (if (or (not (eq articles t)) | 2934 (if (or (not (eq articles t)) |
| 2935 (yes-or-no-p | 2935 (yes-or-no-p |
| 2936 (concat "Are you sure that you want to " | 2936 (concat "Are you sure that you want to " |
| 2937 "expire all articles in " group "."))) | 2937 "expire all articles in " group "? "))) |
| 2938 (let ((gnus-command-method (gnus-find-method-for-group group)) | 2938 (let ((gnus-command-method (gnus-find-method-for-group group)) |
| 2939 (overview (gnus-get-buffer-create " *expire overview*")) | 2939 (overview (gnus-get-buffer-create " *expire overview*")) |
| 2940 orig) | 2940 orig) |
| 2941 (unwind-protect | 2941 (unwind-protect |
| 2942 (let ((active-file (gnus-agent-lib-file "active"))) | 2942 (let ((active-file (gnus-agent-lib-file "active"))) |
| 3306 | 3306 |
| 3307 (if group | 3307 (if group |
| 3308 (gnus-agent-expire-group group articles force) | 3308 (gnus-agent-expire-group group articles force) |
| 3309 (if (or (not (eq articles t)) | 3309 (if (or (not (eq articles t)) |
| 3310 (yes-or-no-p "Are you sure that you want to expire all \ | 3310 (yes-or-no-p "Are you sure that you want to expire all \ |
| 3311 articles in every agentized group.")) | 3311 articles in every agentized group? ")) |
| 3312 (let ((methods (gnus-agent-covered-methods)) | 3312 (let ((methods (gnus-agent-covered-methods)) |
| 3313 ;; Bind gnus-agent-expire-current-dirs to enable tracking | 3313 ;; Bind gnus-agent-expire-current-dirs to enable tracking |
| 3314 ;; of agent directories. | 3314 ;; of agent directories. |
| 3315 (gnus-agent-expire-current-dirs nil) | 3315 (gnus-agent-expire-current-dirs nil) |
| 3316 ;; Bind gnus-agent-expire-stats to enable tracking of | 3316 ;; Bind gnus-agent-expire-stats to enable tracking of |