X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fmail-source.el;h=a8db55b182c1fdaf2eea808a05ef885eef19f0b4;hp=080433c0d2671aa66a8aa40f5b4f2d028c8dc1f6;hb=d639251a1e82f39fb5ae3bddf07ba00ac4a5e3ec;hpb=efe56233fd3a3fbf780ec6d19dfe99d7d0a4cba4

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 080433c0d..a8db55b18 100644
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -637,20 +637,20 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile)
 		(> (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)
-	  (mail-source-delete-old-incoming
-	   mail-source-delete-incoming
-	   mail-source-delete-old-incoming-confirm))))))
+	(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)
+	    (mail-source-delete-old-incoming
+	     mail-source-delete-incoming
+	     mail-source-delete-old-incoming-confirm)))))))
 
 (defun mail-source-movemail (from to)
   "Move FROM to TO using movemail."