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.
This commit is contained in:
Lars Ingebrigtsen 2021-09-21 17:47:55 +02:00
parent f07d5f115a
commit 18ad9dfe95

View file

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