From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 21 Sep 2021 15:47:55 +0000 (+0200)
Subject: Fix usage of `format' in mm-uu-pgp-encrypted-extract
X-Git-Tag: emacs-28.0.90~777
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=18ad9dfe9592cc62a3d617ef8661913c6bbec020;p=emacs.git

Fix usage of `format' in mm-uu-pgp-encrypted-extract

* lisp/gnus/mm-uu.el (mm-uu-pgp-encrypted-extract): Use
`substring' instead of `format' to ensure a fresh string.
---

diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el
index 647b97c8662..494221adeec 100644
--- a/lisp/gnus/mm-uu.el
+++ b/lisp/gnus/mm-uu.el
@@ -579,7 +579,7 @@ apply the face `mm-uu-extract'."
 	(list (mm-make-handle buf '("application/pgp-encrypted")))))))
 
 (defun mm-uu-pgp-encrypted-extract ()
-  (let ((mm-security-handle (list (format "multipart/encrypted"))))
+  (let ((mm-security-handle (list (substring "multipart/encrypted"))))
     (mm-set-handle-multipart-parameter
      mm-security-handle 'protocol "application/x-gnus-pgp-encrypted")
     (save-restriction