[Emacs-diffs] Changes to emacs/lisp/gnus/nnmail.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     08/02/24 06:43:15

Index: lisp/gnus/nnmail.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/nnmail.el,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -b -r1.44 -r1.45
--- lisp/gnus/nnmail.el 28 Jan 2008 03:51:31 -0000      1.44
+++ lisp/gnus/nnmail.el 24 Feb 2008 06:43:14 -0000      1.45
@@ -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)