Mercurial > emacs
changeset 80301:6bd4639256ce
(mail-source-delete-old-incoming-confirm): Change
default to nil.
(mail-source-delete-old-incoming): Make confirmation prompt more clear.
| author | Reiner Steib <Reiner.Steib@gmx.de> |
|---|---|
| date | Sat, 08 Mar 2008 12:06:58 +0000 |
| parents | c061bfc5f63c |
| children | e9007b1330de |
| files | lisp/gnus/ChangeLog lisp/gnus/mail-source.el |
| diffstat | 2 files changed, 16 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Fri Mar 07 17:34:48 2008 +0000 +++ b/lisp/gnus/ChangeLog Sat Mar 08 12:06:58 2008 +0000 @@ -1,3 +1,9 @@ +2008-03-08 Reiner Steib <Reiner.Steib@gmx.de> + + * mail-source.el (mail-source-delete-old-incoming-confirm): Change + default to nil. + (mail-source-delete-old-incoming): Make confirmation prompt more clear. + 2008-03-05 Reiner Steib <Reiner.Steib@gmx.de> * gnus-sum.el (gnus-print-buffer): Honor ps-print-color-p.
--- a/lisp/gnus/mail-source.el Fri Mar 07 17:34:48 2008 +0000 +++ b/lisp/gnus/mail-source.el Sat Mar 08 12:06:58 2008 +0000 @@ -286,11 +286,11 @@ (const :tag "never" nil) (integer :tag "days"))) -(defcustom mail-source-delete-old-incoming-confirm t - "*If non-nil, ask for confirmation before deleting old incoming files. +(defcustom mail-source-delete-old-incoming-confirm nil + "If non-nil, ask for confirmation before deleting old incoming files. This variable only applies when `mail-source-delete-incoming' is a positive number." - :version "22.1" + :version "22.2" ;; No Gnus / Gnus 5.10.10 (default changed) :group 'mail-source :type 'boolean) @@ -548,10 +548,13 @@ (fileday (+ fileday (* low2days (nth 1 filetime))))) (setq files (cdr files)) (when (and (> (- currday fileday) diff) - (gnus-message 8 "File `%s' is older than %s day(s)" - bfile diff) - (or (not confirm) - (y-or-n-p (concat "Remove file `" bfile "'? ")))) + (if confirm + (y-or-n-p + (format "\ +Delete old (> %s day(s)) incoming mail file `%s'? " diff bfile)) + (gnus-message 8 "\ +Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile) + t)) (delete-file ffile)))))) (defun mail-source-callback (callback info)