From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 21 Sep 2021 15:41:26 +0000 (+0200)
Subject: Fix PGP verification buttons (which would have cached results)
X-Git-Tag: emacs-28.0.90~779
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb32368efdaf11ae0e6b3a28f4a167886caa4c9d;p=emacs.git

Fix PGP verification buttons (which would have cached results)

* lisp/gnus/mm-uu.el (mm-uu-pgp-signed-extract): `format' was used
here to guarantee a new, fresh string (since it's destructively
modified), but that's apparently not the case any more.  Use
`substring' instead, which is documented to do this.
---

diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el
index 9d4c4bfead7..647b97c8662 100644
--- a/lisp/gnus/mm-uu.el
+++ b/lisp/gnus/mm-uu.el
@@ -511,7 +511,7 @@ apply the face `mm-uu-extract'."
       (list (mm-make-handle buf mm-uu-text-plain-type)))))
 
 (defun mm-uu-pgp-signed-extract ()
-  (let ((mm-security-handle (list (format "multipart/signed"))))
+  (let ((mm-security-handle (list (substring "multipart/signed"))))
     (mm-set-handle-multipart-parameter
      mm-security-handle 'protocol "application/x-gnus-pgp-signature")
     (save-restriction