Make mml respect the "recipient-filename" parameter

* lisp/gnus/mml.el (mml-insert-mime-headers): Implement the
already-documented "recipient-filename" parameter (bug#34654).

diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index 7a99a0dc46c521e98276dd5070f1728a7b35114c..b0b4fd0a54df0371609e203c9471ad6f1f4c109d 100644 (file)
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -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)))