From: yamaoka <yamaoka>
Date: Tue, 3 Oct 2000 13:05:00 +0000 (+0000)
Subject: Synch with Gnus.
X-Git-Tag: t-gnus-6_14-quimby-before-installer-changed-~70
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=15d805e3f81915107a3f212993ae6ba96372a430;p=elisp%2Fgnus.git-

Synch with Gnus.
---

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  <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 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)))