From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 13 May 2019 20:16:10 +0000 (-0400)
Subject: Make mml respect the "recipient-filename" parameter
X-Git-Tag: emacs-27.0.90~2908
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=86c8582c9e4497406522c3073e232e1af2eb23d1;p=emacs.git

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 7a99a0dc46c..b0b4fd0a54d 100644
--- 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)))