(mml-preview): Remove mail-header-separator before encoding.

diff --git a/lisp/mml.el b/lisp/mml.el
index 1aa55ac..a24651e 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -707,6 +707,9 @@ If RAW, don't highlight the article."
                                "*MIME preview of ") (buffer-name))))
    (erase-buffer)
    (insert-buffer buf)
+   (if (re-search-forward
+       (concat "^" (regexp-quote mail-header-separator) "\n") nil t)
+       (replace-match "\n"))
    (mml-to-mime)
    (unless raw
      (run-hooks 'gnus-article-decode-hook)