Skip to content
Browse files

mail-source.el (mail-source-fetch-maildir): Don't expect the return v…

…alue of `delete-file', that returns nil for a local file but returns t for a remote file using ssh.
  • Loading branch information...
1 parent b306afe commit e1b23fe3df476430f4376b5aba4afafed658bdd2 Adam W committed with yamaoka Nov 24, 2011
Showing with 9 additions and 1 deletion.
  1. +6 −0 lisp/gnus/ChangeLog
  2. +3 −1 lisp/gnus/mail-source.el
View
6 lisp/gnus/ChangeLog
@@ -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
View
4 lisp/gnus/mail-source.el
@@ -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)))

0 comments on commit e1b23fe

Please sign in to comment.
Something went wrong with that request. Please try again.