+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
(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)
;;; (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)))