Quoting From.

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index d3d4279..c7c448e 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -626,8 +626,12 @@ This only works when `display-time' is enabled."
                                  (goto-char (point-min))
                                  (unless (looking-at "\n*From ")
                                    (insert "From maildir " 
-                                           (current-time-string) "\n"))))
-                             (delete-file file))))
+                                           (current-time-string) "\n"))
+                                 (while (re-search-forward "^From " nil t)
+                                   (replace-match ">From "))
+                                 (goto-char (point-max))
+                                 (insert "\n\n"))
+                               (delete-file file)))))
              (incf found (mail-source-callback callback file))))))
       found)))