Mercurial > emacs
comparison lisp/gnus/gnus-agent.el @ 108905:68c7ddc1af16
Synch with Gnus trunk.
2010-06-07 Teodor Zlatanov <tzz@lifelogs.com>
* gnus.texi (Interactive): Explain effect of gnus-expert-user better.
2010-06-07 Teemu Likonen <tlikonen@iki.fi> (tiny change)
* gnus-agent.el (gnus-agent-expire-unagentized-dirs): Don't ask about
deleting unused directories when gnus-expert-user is t.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 07 Jun 2010 23:00:42 +0000 |
| parents | 0fe940324254 |
| children | 8d09094063d0 |
comparison
equal
deleted
inserted
replaced
| 108904:2bc8bdaafa9a | 108905:68c7ddc1af16 |
|---|---|
| 3632 "gnus-agent-expire has identified local directories that are\ | 3632 "gnus-agent-expire has identified local directories that are\ |
| 3633 not currently required by any agentized group. Do you wish to consider\ | 3633 not currently required by any agentized group. Do you wish to consider\ |
| 3634 deleting them?"))) | 3634 deleting them?"))) |
| 3635 (while to-remove | 3635 (while to-remove |
| 3636 (let ((dir (pop to-remove))) | 3636 (let ((dir (pop to-remove))) |
| 3637 (if (gnus-y-or-n-p (format "Delete %s? " dir)) | 3637 (if (or gnus-expert-user |
| 3638 (gnus-y-or-n-p (format "Delete %s? " dir))) | |
| 3638 (let* (delete-recursive | 3639 (let* (delete-recursive |
| 3639 files f | 3640 files f |
| 3640 (delete-recursive | 3641 (delete-recursive |
| 3641 (function | 3642 (function |
| 3642 (lambda (f-or-d) | 3643 (lambda (f-or-d) |