Commit 57fd3709 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Suppress some warnings about un-prefixed dynamic variables

* lisp/mh-e/mh-mime.el (mh-insert-mime-security-button): Suppress
warnings about un-prefixed dynamic variables.
(mh-insert-mime-button): Ditto.
parent 4b73a937
Pipeline #3179 passed with stage
in 74 minutes and 44 seconds
......@@ -859,6 +859,7 @@ by commands like \"K v\" which operate on individual MIME parts."
(if (string-match ".*/" name) (setq name (substring name (match-end 0))))
;; These vars are passed by dynamic-scoping to
;; mh-mime-button-line-format-alist via gnus-eval-format.
(with-suppressed-warnings ((lexical index description dots))
(mh-dlet* ((index index)
(description (mail-decode-encoded-word-string
(or (mm-handle-description handle) "")))
......@@ -875,7 +876,7 @@ by commands like \"K v\" which operate on individual MIME parts."
`(,@(mh-gnus-local-map-property mh-mime-button-map)
mh-callback mh-mm-display-part
mh-part ,index
mh-data ,handle)))
mh-data ,handle))))
(setq end (point))
(widget-convert-button
'link begin end
......@@ -900,6 +901,7 @@ by commands like \"K v\" which operate on individual MIME parts."
begin end face)
;; These vars are passed by dynamic-scoping to
;; mh-mime-security-button-line-format-alist via gnus-eval-format.
(with-suppressed-warnings ((lexical type info details))
(mh-dlet* ((type (concat crypto-type
(if (equal (car handle) "multipart/signed")
" Signed" " Encrypted")
......@@ -937,7 +939,7 @@ by commands like \"K v\" which operate on individual MIME parts."
"verification" "decryption"))
(warning (if (equal type "decryption")
"(passphrase may be incorrect)" "")))
(message "%s %s failed %s" crypto-type type warning))))))
(message "%s %s failed %s" crypto-type type warning)))))))
(defun mh-mime-security-button-face (info)
"Return the button face to use for encrypted/signed mail based on INFO."
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment