diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-09-05 01:18:05 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-09-05 01:18:05 +0000 |
| commit | 530b8957da9951149171412e4206987e170b063c (patch) | |
| tree | 91421e4c9442a3bce471080ef0dfb28f1247fe87 /lisp/gnus/mail-source.el | |
| parent | ff3eb82e0e0dfaf6976b0788eb2195b7be843226 (diff) | |
| download | emacs-530b8957da9951149171412e4206987e170b063c.tar.gz emacs-530b8957da9951149171412e4206987e170b063c.tar.bz2 emacs-530b8957da9951149171412e4206987e170b063c.zip | |
pop3.el (pop3-write-to-file): Don't output messages when saving; mail-source.el (mail-source-delete-crash-box): Really only check the incoming files once in a while; nnml.el (nnml-save-nov): Message around nnml-save-nov so that the culprit is more visible; pop3.el (pop3-send-streaming-command): Off-by-one error on the request loop (for debugging purposes) removed.
Diffstat (limited to 'lisp/gnus/mail-source.el')
| -rw-r--r-- | lisp/gnus/mail-source.el | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index 080433c0d26..a8db55b182c 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/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." |