*** empty log message ***

[gnus] / lisp / nnmail.el

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 536a83d..d108d59 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -382,9 +382,9 @@ parameter.  It should return nil, `warn' or `delete'.")
                             (substring inbox (+ popmail 3))))))
            (message "Getting mail from post office ..."))
        (when (or (and (file-exists-p tofile)
-                      (/= 0 (nth 7 (file-attributes tofile))))
+                      (/= 0 (nnheader-file-size tofile)))
                  (and (file-exists-p inbox)
-                      (/= 0 (nth 7 (file-attributes inbox)))))
+                      (/= 0 (nnheader-file-size inbox))))
          (message "Getting mail from %s..." inbox)))
       ;; Set TOFILE if have not already done so, and
       ;; rename or copy the file INBOX to TOFILE if and as appropriate.
@@ -923,8 +923,8 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
                            nnmail-procmail-suffix "$") t)))
           (p procmails)
           (crash (when (and (file-exists-p nnmail-crash-box)
-                            (> (nth 7 (file-attributes
-                                       (file-truename nnmail-crash-box))) 0))
+                            (> (nnheader-file-size
+                                (file-truename nnmail-crash-box)) 0))
                    (list nnmail-crash-box))))
       ;; Remove any directories that inadvertantly match the procmail
       ;; suffix, which might happen if the suffix is "". 
@@ -940,7 +940,8 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
                       nnmail-use-procmail)
                   procmails)
              procmails)
-            ((eq nnmail-spool-file 'procmail)
+            ((and group
+                  (eq nnmail-spool-file 'procmail))
              nil)
             ((listp nnmail-spool-file)
              (append nnmail-spool-file procmails))
@@ -1110,7 +1111,7 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
        ;; existance of POPped mail.
        (when (or (string-match "^po:" spool)
                  (and (file-exists-p spool)
-                      (> (nth 7 (file-attributes (file-truename spool))) 0)))
+                      (> (nnheader-file-size (file-truename spool)) 0)))
          (nnheader-message 3 "%s: Reading incoming mail..." method)
          (when (and (nnmail-move-inbox spool)
                     (file-exists-p nnmail-crash-box))