Mercurial > emacs

diff lisp/gnus/mail-source.el @ 110198:8867a7812454

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mail-source.el (mail-source-delete-crash-box): Always move the crash box to the Incoming file. Fixes mistake in previous checkin; Do incremental NOV updates when scanning new male. (nnml-save-incremental-nov, nnml-open-incremental-nov, nnml-add-incremental-nov): New functions to do "incremental" nov updates, where we just append to the end of the existing nov files without reading/writing them in full.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sun, 05 Sep 2010 01:27:15 +0000
parents 727cc5d69397
children 6cdcc53703e4
line wrap: on
line diff
--- a/lisp/gnus/mail-source.el	Sun Sep 05 01:18:05 2010 +0000
+++ b/lisp/gnus/mail-source.el	Sun Sep 05 01:27:15 2010 +0000
@@ -631,23 +631,23 @@
     ;; Delete or move the incoming mail out of the way.
     (if (eq mail-source-delete-incoming t)
 	(delete-file mail-source-crash-box)
-      ;; Don't check for old incoming files more than once per day to
-      ;; save a lot of file accesses.
-      (when (or (null mail-source-incoming-last-checked-time)
-		(> (time-to-seconds
-		    (time-since mail-source-incoming-last-checked-time))
-		   (* 24 60 60)))
-	(setq mail-source-incoming-last-checked-time (current-time))
-	(let ((incoming
-	       (mm-make-temp-file
-		(expand-file-name
-		 mail-source-incoming-file-prefix
-		 mail-source-directory))))
-	  (unless (file-exists-p (file-name-directory incoming))
-	    (make-directory (file-name-directory incoming) t))
-	  (rename-file mail-source-crash-box incoming t)
-	  ;; remove old incoming files?
-	  (when (natnump mail-source-delete-incoming)
+      (let ((incoming
+	     (mm-make-temp-file
+	      (expand-file-name
+	       mail-source-incoming-file-prefix
+	       mail-source-directory))))
+	(unless (file-exists-p (file-name-directory incoming))
+	  (make-directory (file-name-directory incoming) t))
+	(rename-file mail-source-crash-box incoming t)
+	;; remove old incoming files?
+	(when (natnump mail-source-delete-incoming)
+	  ;; Don't check for old incoming files more than once per day to
+	  ;; save a lot of file accesses.
+	  (when (or (null mail-source-incoming-last-checked-time)
+		    (> (time-to-seconds
+			(time-since mail-source-incoming-last-checked-time))
+		       (* 24 60 60)))
+	    (setq mail-source-incoming-last-checked-time (current-time))
 	    (mail-source-delete-old-incoming
 	     mail-source-delete-incoming
 	     mail-source-delete-old-incoming-confirm)))))))