procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

mail-source.el (mail-source-fetch-maildir): Don't expect the return value of `delete-file', that returns nil for a local file but returns t for a remote file using ssh.

Browse source
This commit is contained in:
Adam W 2011-11-24 00:15:19 +00:00 • committed by Katsumi Yamaoka
parent 01d06b1fc4
commit 29291ef14b
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -1,3 +1,9 @@
2011-11-24 Adam W <adam_w67@yahoo.com> (tiny change)
* mail-source.el (mail-source-fetch-maildir): Don't expect the return
value of `delete-file', that returns nil for a local file but returns t
for a remote file using ssh.
2011-11-22 Lars Magne Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-table-horizontal-line): Use "?\s" instead of "? " to

4
lisp/gnus/mail-source.el
View file

@ -1017,6 +1017,7 @@ This only works when `display-time' is enabled."
(dolist (file (directory-files (concat path subdir) t))
(when (and (not (file-directory-p file))
(not (if function
;; `function' should return nil if successful.
(funcall function file mail-source-crash-box)
(let ((coding-system-for-write
mm-text-coding-system)
@ -1035,7 +1036,8 @@ This only works when `display-time' is enabled."
;;; (insert "\n\n")
;; MMDF mail format
(insert "\001\001\001\001\n"))
(delete-file file)))))
(delete-file file)
nil))))
(incf found (mail-source-callback callback file))
(mail-source-delete-crash-box)))))
found)))