mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(rmail-output): Fix duplicate MIME-Version:

Browse Source 
field problem with MIME-mode.

(rmail-output): Fix bug in MIME-mode.
This commit is contained in:
Gerd Moellmann 2001-07-06 10:03:25 +00:00
parent 4b81a999b9
commit 3427b08525
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/mail/rmailout.el
View File

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