Changes committed gnus/lisp (ChangeLog mail-source.el)

Modified: ChangeLog mail-source.el

(mail-source-delete-incoming): Change default.  Supplement doc string.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1752 gnus/lisp/ChangeLog:7.1753
--- ChangeLog:7.1752	Sat Feb 16 13:19:15 2008
+++ ChangeLog	Sat Feb 16 14:03:16 2008
@@ -1,5 +1,8 @@
 2008-02-16  Reiner Steib  <[email protected]>
 
+	* mail-source.el (mail-source-delete-incoming): Change default.
+	Supplement doc string.
+
 	* gnus-util.el (gnus-y-or-n-p, gnus-y-or-n-p): Update comments.
 
 2008-02-14  Reiner Steib  <[email protected]>
Index: mail-source.el
diff -u gnus/lisp/mail-source.el:7.26 gnus/lisp/mail-source.el:7.27
--- mail-source.el:7.26	Thu Jan 24 23:16:33 2008
+++ mail-source.el	Sat Feb 16 14:03:16 2008
@@ -286,16 +286,19 @@
   :group 'mail-source
   :type 'integer)
 
-(defcustom mail-source-delete-incoming nil
-  "*If non-nil, delete incoming files after handling.
+(defcustom mail-source-delete-incoming
+  10 ;; development versions
+  ;; 2 ;; released versions
+  "If non-nil, delete incoming files after handling.
 If t, delete immediately, if nil, never delete.  If a positive number, delete
-files older than number of days."
-  ;; Note: The removing happens in `mail-source-callback', i.e. no old
-  ;; incoming files will be deleted, unless you receive new mail.
-  ;;
-  ;; You may also set this to `nil' and call `mail-source-delete-old-incoming'
-  ;; from a hook or interactively.
+files older than number of days.
+
+Removing of old files happens in `mail-source-callback', i.e. no
+old incoming files will be deleted unless you receive new mail.
+You may also set this variable to nil and call
+`mail-source-delete-old-incoming' interactively."
   :group 'mail-source
+  :version "22.2" ;; No Gnus / Gnus 5.10.10 (default changed)
   :type '(choice (const :tag "immediately" t)
 		 (const :tag "never" nil)
 		 (integer :tag "days")))