Changes committed gnus/lisp (ChangeLog nnmail.el)

Modified: ChangeLog nnmail.el

(nnmail-message-id-cache-file): Derive from `gnus-home-directory'.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1750 gnus/lisp/ChangeLog:7.1751
--- ChangeLog:7.1750	Sun Feb 10 15:45:21 2008
+++ ChangeLog	Thu Feb 14 21:01:42 2008
@@ -1,7 +1,12 @@
+2008-02-14  Reiner Steib  <[email protected]>
+
+	* nnmail.el (nnmail-message-id-cache-file): Derive from
+	`gnus-home-directory'.
+
 2008-02-10  Lars Magne Ingebrigtsen  <[email protected]>
 
 	* message.el (message-unsent-separator): Add the Exim bounce
-	separator. 
+	separator.
 
 2008-02-10  Daiki Ueno  <[email protected]>
 
Index: nnmail.el
diff -u gnus/lisp/nnmail.el:7.40 gnus/lisp/nnmail.el:7.41
--- nnmail.el:7.40	Thu Jan 24 23:16:33 2008
+++ nnmail.el	Thu Feb 14 21:01:42 2008
@@ -534,8 +534,9 @@
   :type '(choice (const :tag "disable" nil)
 		 (integer :format "%v")))
 
-(defcustom nnmail-message-id-cache-file "~/.nnmail-cache"
-  "*The file name of the nnmail Message-ID cache."
+(defcustom nnmail-message-id-cache-file
+  (nnheader-concat gnus-home-directory ".nnmail-cache")
+  "The file name of the nnmail Message-ID cache."
   :group 'nnmail-duplicate
   :group 'nnmail-files
   :type 'file)
@@ -1772,7 +1773,6 @@
 
 (defun nnmail-get-new-mail-1 (method exit-func temp
 			      group in-group spool-func)
-
   (let* ((sources mail-sources)
 	 fetching-sources
 	 (i 0)
@@ -1782,7 +1782,6 @@
     (when (and (nnmail-get-value "%s-get-new-mail" method)
 	       sources)
       (while (setq source (pop sources))
-
 	;; Use group's parameter
 	(when (eq (car source) 'group)
 	  (let ((mail-sources
@@ -1793,7 +1792,6 @@
 	    (nnmail-get-new-mail-1 method exit-func temp
 				   group group spool-func))
 	  (setq source nil))
-	  
 	;; Hack to only fetch the contents of a single group's spool file.
 	(when (and (eq (car source) 'directory)
 		   (null nnmail-scan-directory-mail-source-once)