From 9a78932728b1f0945d5189db3cc8314b338f9625 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Thu, 14 Feb 2008 20:01:42 +0000 Subject: [PATCH] (nnmail-message-id-cache-file): Derive from `gnus-home-directory'. --- lisp/ChangeLog | 7 ++++++- lisp/nnmail.el | 8 +++----- 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 035ad8744..4e8c57b9e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,12 @@ +2008-02-14 Reiner Steib + + * nnmail.el (nnmail-message-id-cache-file): Derive from + `gnus-home-directory'. + 2008-02-10 Lars Magne Ingebrigtsen * message.el (message-unsent-separator): Add the Exim bounce - separator. + separator. 2008-02-10 Daiki Ueno diff --git a/lisp/nnmail.el b/lisp/nnmail.el index a6ed71903..08e4fcf05 100644 --- 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) -- 2.34.1