mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-12 18:55:13 -08:00
Code Issues Projects Releases Wiki Activity

(mail-source-delete-old-incoming-confirm): Change

Browse source 
default to nil.
(mail-source-delete-old-incoming): Make confirmation prompt more clear.
This commit is contained in:
Reiner Steib 2008-03-08 12:06:58 +00:00
parent 48d6e8e392
commit d59cff5af2
2 changed files with 16 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -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.

17
lisp/gnus/mail-source.el
View file

@ -286,11 +286,11 @@ You may also set this variable to nil and call
(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 @@ If CONFIRM is non-nil, ask for confirmation before removing a file."
(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)