From 0c138e527f1feeb23bb2719f35c5d6a09717fc97 Mon Sep 17 00:00:00 2001
From: Simon Josefsson <jas@extundo.com>
Date: Fri, 5 Nov 1999 23:40:08 +0000
Subject: [PATCH] (mml-preview): Remove mail-header-separator before encoding.

---
 lisp/mml.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lisp/mml.el b/lisp/mml.el
index 1aa55acc1..a24651e3c 100644
--- 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)
-- 
2.34.1