2000-10-03 08:08:29 ShengHuo ZHU <zsh@cs.rochester.edu>

	* mail-source.el (mail-source-fetch-maildir): Don't insert
	newlines.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b8b066..25e3e7e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-03 08:08:29  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mail-source.el (mail-source-fetch-maildir): Don't insert
+       newlines.
+
 2000-10-02 20:14:27  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * dgnushack.el (dgnushack-compile): Don't compile dgnushack.el,

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 6054c89..ec1ec29 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -771,10 +771,10 @@ This only works when `display-time' is enabled."
 ;;;                                        (current-time-string) "\n"))
 ;;;                              (while (re-search-forward "^From " nil t)
 ;;;                                (replace-match ">From "))
+;;;                               (goto-char (point-max))
+;;;                              (insert "\n\n")
                                  ;; MMDF mail format
-                                 (insert "\001\001\001\001\n")
-                                 (goto-char (point-max))
-                                 (insert "\n\n"))
+                                 (insert "\001\001\001\001\n"))
                                (delete-file file)))))
              (incf found (mail-source-callback callback file))))))
       found)))