Use MMDF mail format.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8ccccbc..2410c33 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 55753d9..f2a431d 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -630,11 +630,14 @@ This only works when `display-time' is enabled."
                                (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)))))