From 15d805e3f81915107a3f212993ae6ba96372a430 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 3 Oct 2000 13:05:00 +0000 Subject: [PATCH] Synch with Gnus. --- lisp/ChangeLog | 5 +++++ lisp/mail-source.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0b8b066..25e3e7e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-10-03 08:08:29 ShengHuo ZHU + + * mail-source.el (mail-source-fetch-maildir): Don't insert + newlines. + 2000-10-02 20:14:27 ShengHuo ZHU * dgnushack.el (dgnushack-compile): Don't compile dgnushack.el, diff --git a/lisp/mail-source.el b/lisp/mail-source.el index 6c26419..be317c8 100644 --- a/lisp/mail-source.el +++ b/lisp/mail-source.el @@ -784,10 +784,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))) -- 1.7.10.4