+2000-08-14 16:12:11 ShengHuo ZHU <zsh@cs.rochester.edu>
+
+ * mail-source.el (mail-source-fetch-maildir): Use MMDF mail
+ format.
+
2000-08-14 19:12:22 Rod Whitby <list.ding@rwhitby.net>
* nnmail.el (nnmail-expiry-target-group): Fixed.
(with-temp-file mail-source-crash-box
(insert-file-contents file)
(goto-char (point-min))
- (unless (looking-at "\n*From ")
- (insert "From maildir "
- (current-time-string) "\n"))
- (while (re-search-forward "^From " nil t)
- (replace-match ">From "))
+;;; ;; Unix mail format
+;;; (unless (looking-at "\n*From ")
+;;; (insert "From maildir "
+;;; (current-time-string) "\n"))
+;;; (while (re-search-forward "^From " nil t)
+;;; (replace-match ">From "))
+ ;; MMDF mail format
+ (insert "\001\001\001\001\n")
(goto-char (point-max))
(insert "\n\n"))
(delete-file file)))))