Allow the user to specify Content-type in Message mode

* lisp/gnus/message.el (message-encode-message-body): Pass in the
content type if the user has given one.

* lisp/gnus/mml.el (mml-parse-1): Remove bogus peek at
Content-type (there are no headers here)  (bug#36527).

* lisp/gnus/mml.el (mml-generate-mime): Respect that.

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index ef6455ac5c9de6359677c377526d70da7987daeb..ef9f8429d40815a3ee94b9e3d9af0f3b1bb6e930 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -8061,7 +8061,10 @@ regexp VARSTR."
       (message-goto-body)
       (save-restriction
        (narrow-to-region (point) (point-max))
-       (let ((new (mml-generate-mime)))
+       (let ((new (mml-generate-mime nil
+                                     (save-restriction
+                                       (message-narrow-to-headers)
+                                       (mail-fetch-field "content-type")))))
          (when new
            (delete-region (point-min) (point-max))
            (insert new)

diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index 4a0d40ac0ed45dbc87d07ccbf4c0969bbf05e584..7fd78d7b9c11927cfcafd7da654270866a1e9ff2 100644 (file)
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -295,14 +295,6 @@ 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)
@@ -479,15 +471,22 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
 (declare-function libxml-parse-html-region "xml.c"
                  (start end &optional base-url discard-comments))
 
-(defun mml-generate-mime (&optional multipart-type)
+(defun mml-generate-mime (&optional multipart-type content-type)
   "Generate a MIME message based on the current MML document.
 MULTIPART-TYPE defaults to \"mixed\", but can also
-be \"related\" or \"alternate\"."
+be \"related\" or \"alternate\".
+
+If CONTENT-TYPE (and there's only one part), override the content
+type detected."
   (let ((cont (mml-parse))
        (mml-multipart-number mml-multipart-number)
        (options message-options))
     (if (not cont)
        nil
+      (when (and (consp (car cont))
+                (= (length cont) 1)
+                content-type)
+       (setcdr (assq 'type (cdr (car cont))) content-type))
       (when (and (consp (car cont))
                 (= (length cont) 1)
                 (fboundp 'libxml-parse-html-region)