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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 035ad87..4e8c57b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,12 @@
+2008-02-14  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * nnmail.el (nnmail-message-id-cache-file): Derive from
+       `gnus-home-directory'.
+
 2008-02-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * message.el (message-unsent-separator): Add the Exim bounce
-       separator. 
+       separator.
 
 2008-02-10  Daiki Ueno  <ueno@unixuser.org>
 

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index a6ed719..08e4fcf 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -534,8 +534,9 @@ performed."
   :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 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
 
 (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 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
     (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 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
            (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)