procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

In Message, respect Content-Type provided by the user

Browse source 
* lisp/gnus/mml.el (mml-parse-1): Respect any Content-Type
inserted by the user instead of insisting on text/plain.
This commit is contained in:
Lars Ingebrigtsen 2019-07-04 16:08:22 +02:00
parent 4bf4002906
commit 138060e366
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/mml.el
View file

@ -295,6 +295,14 @@ part. This is for the internal use, you should never modify the value.")
(t
(mm-find-mime-charset-region point (point)
mm-hack-charsets))))
;; If the user has inserted a Content-Type header, then
;; respect that instead of overwriting with "text/plain".
(save-restriction
(narrow-to-region point (point))
(let ((content-type (mail-fetch-field "content-type")))
(when (and content-type
(eq (car tag) 'part))
(setcdr (assq 'type tag) content-type))))
(when (and (not raw) (memq nil charsets))
(if (or (memq 'unknown-encoding mml-confirmation-set)
(message-options-get 'unknown-encoding)