Commit 86c8582c authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Make mml respect the "recipient-filename" parameter

* lisp/gnus/mml.el (mml-insert-mime-headers): Implement the
already-documented "recipient-filename" parameter (bug#34654).
parent 8fe73515
Pipeline #1646 failed with stage
in 90 minutes and 2 seconds
......@@ -906,8 +906,14 @@ be \"related\" or \"alternate\"."
(or disposition
(mml-content-disposition type (cdr (assq 'filename cont)))))
(when parameters
(mml-insert-parameter-string
cont mml-content-disposition-parameters))
(let ((cont (copy-sequence cont)))
;; Set the file name to what's specified by the user.
(when-let ((recipient-filename (cdr (assq 'recipient-filename cont))))
(setcdr cont
(cons (cons 'filename recipient-filename)
(cdr cont))))
(mml-insert-parameter-string
cont mml-content-disposition-parameters)))
(insert "\n"))
(unless (eq encoding '7bit)
(insert (format "Content-Transfer-Encoding: %s\n" encoding)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment