2934 |
(if (or (not (eq articles t)) |
(if (or (not (eq articles t)) |
2935 |
(yes-or-no-p |
(yes-or-no-p |
2936 |
(concat "Are you sure that you want to " |
(concat "Are you sure that you want to " |
2937 |
"expire all articles in " group "."))) |
"expire all articles in " group "? "))) |
2938 |
(let ((gnus-command-method (gnus-find-method-for-group group)) |
(let ((gnus-command-method (gnus-find-method-for-group group)) |
2939 |
(overview (gnus-get-buffer-create " *expire overview*")) |
(overview (gnus-get-buffer-create " *expire overview*")) |
2940 |
orig) |
orig) |
3308 |
(gnus-agent-expire-group group articles force) |
(gnus-agent-expire-group group articles force) |
3309 |
(if (or (not (eq articles t)) |
(if (or (not (eq articles t)) |
3310 |
(yes-or-no-p "Are you sure that you want to expire all \ |
(yes-or-no-p "Are you sure that you want to expire all \ |
3311 |
articles in every agentized group.")) |
articles in every agentized group? ")) |
3312 |
(let ((methods (gnus-agent-covered-methods)) |
(let ((methods (gnus-agent-covered-methods)) |
3313 |
;; Bind gnus-agent-expire-current-dirs to enable tracking |
;; Bind gnus-agent-expire-current-dirs to enable tracking |
3314 |
;; of agent directories. |
;; of agent directories. |