From 138060e3661470128a071d17a48671842f108343 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 4 Jul 2019 16:08:22 +0200 Subject: [PATCH] In Message, respect Content-Type provided by the user * lisp/gnus/mml.el (mml-parse-1): Respect any Content-Type inserted by the user instead of insisting on text/plain. --- lisp/gnus/mml.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index b664ebe3bf9..4a0d40ac0ed 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -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) -- 2.39.2