mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

Allow the user to specify Content-type in Message mode

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2019-09-21 01:41:50 +02:00
parent c56fabdfc7
commit 7828001aef
2 changed files with 13 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/message.el
View file

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

19
lisp/gnus/mml.el
View file

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