Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3427b085
Commit
3427b085
authored
Jul 06, 2001
by
Gerd Moellmann
Browse files
(rmail-output): Fix duplicate MIME-Version:
field problem with MIME-mode. (rmail-output): Fix bug in MIME-mode.
parent
4b81a999
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
16 additions
and
1 deletion
+16
-1
lisp/mail/rmailout.el
lisp/mail/rmailout.el
+16
-1
No files found.
lisp/mail/rmailout.el
View file @
3427b085
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment