From 3427b08525b08afd02eac2ed436daaf0c0a6b335 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 6 Jul 2001 10:03:25 +0000 Subject: [PATCH] (rmail-output): Fix duplicate MIME-Version: field problem with MIME-mode. (rmail-output): Fix bug in MIME-mode. --- lisp/mail/rmailout.el | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index 9cf9a8f15e7..5bfe38a6e70 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -316,11 +316,26 @@ The optional fourth argument FROM-GNUS is set when called from GNUS." (setq mail-from (mail-fetch-field "Mail-From") mime-version - (mail-fetch-field "MIME-Version"))))) + (unless rmail-enable-mime + (mail-fetch-field "MIME-Version")))))) (save-excursion (set-buffer tembuf) (erase-buffer) (insert-buffer-substring rmailbuf) + (when rmail-enable-mime + (if original-headers-p + (delete-region (goto-char (point-min)) + (if (search-forward "\n*** EOOH ***\n") + (match-end 0))) + (goto-char (point-min)) + (forward-line 2) + (delete-region (point-min)(point)) + (search-forward "\n*** EOOH ***\n") + (delete-region (match-beginning 0) + (if (search-forward "\n\n") + (1- (match-end 0))))) + (setq buffer-file-coding-system (or rmail-file-coding-system + 'raw-text))) (rmail-delete-unwanted-fields t) (or (bolp) (insert "\n")) (goto-char (point-min)) -- 2.39.2