diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-09-21 17:39:02 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-09-21 17:41:32 +0200 |
| commit | 18c18c69fc9621955da89e0b4e7a9d6dcb2f0207 (patch) | |
| tree | 56ab86eb65d44c6f5d6afd92741efe18523d5364 /lisp/gnus/mml-smime.el | |
| parent | 3bc7234349185da21828e5a2a1e31a16dcf93ba8 (diff) | |
| download | emacs-18c18c69fc9621955da89e0b4e7a9d6dcb2f0207.tar.gz | |
Don't inhibit redisplay in the mml* functions
* lisp/gnus/mml-smime.el (inhibit-redisplay): Removed.
(mml-smime-epg-encrypt):
(mml-smime-epg-verify): Don't inhibit.
* lisp/gnus/mml1991.el (mml1991-epg-sign): Ditto.
* lisp/gnus/mml2015.el (inhibit-redisplay): Removed
(mml2015-epg-decrypt):
(mml2015-epg-clear-decrypt):
(mml2015-epg-verify):
(mml2015-epg-clear-verify):
(mml2015-epg-sign):
(mml2015-epg-encrypt): Don't bind `inhibit-redisplay', because it
makes debugging very odd, and doesn't seem to help much with anything.
Diffstat (limited to 'lisp/gnus/mml-smime.el')
| -rw-r--r-- | lisp/gnus/mml-smime.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/gnus/mml-smime.el b/lisp/gnus/mml-smime.el index 959de0902e2..b81dd2dae4c 100644 --- a/lisp/gnus/mml-smime.el +++ b/lisp/gnus/mml-smime.el @@ -314,7 +314,6 @@ Whether the passphrase is cached at all is controlled by (defvar epg-user-id-alist) (defvar epg-digest-algorithm-alist) -(defvar inhibit-redisplay) (defvar password-cache-expiry) (eval-when-compile @@ -369,9 +368,7 @@ Content-Disposition: attachment; filename=smime.p7s (goto-char (point-max))))) (defun mml-smime-epg-encrypt (cont) - (let* ((inhibit-redisplay t) ;FIXME: Why? - ;; (boundary (mml-compute-boundary cont)) - (cipher (mml-secure-epg-encrypt 'CMS cont))) + (let* ((cipher (mml-secure-epg-encrypt 'CMS cont))) (delete-region (point-min) (point-max)) (goto-char (point-min)) (insert "\ @@ -387,8 +384,7 @@ Content-Disposition: attachment; filename=smime.p7m (defun mml-smime-epg-verify (handle ctl) (catch 'error - (let ((inhibit-redisplay t) - context part signature) ;; plain signature-file + (let (context part signature) ;; plain signature-file (when (or (null (setq part (mm-find-raw-part-by-type ctl (or (mm-handle-multipart-ctl-parameter ctl 'protocol) |