diff options
| author | rekado <rekado@elephly.net> | 2016-07-13 12:18:32 +0200 |
|---|---|---|
| committer | rekado <rekado@elephly.net> | 2016-07-13 12:18:32 +0200 |
| commit | 4dc237d4e6036afb073db96b4503500f2782c492 (patch) | |
| tree | 3923a23777ddff5d3ae05f180b5807079c8058fb /lisp | |
| parent | 2719de3b7cd7c4635ae3b2310631a178be058fcf (diff) | |
email: Don't ask to replace encrypted with decrypted text. Just do it.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/email.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/email.el b/lisp/email.el index e8672d6..629d3c6 100644 --- a/lisp/email.el +++ b/lisp/email.el @@ -105,5 +105,7 @@ (when armor-start (let ((armor-end (re-search-forward "^-----END PGP MESSAGE-----$" nil t))) (when armor-end - (epa-decrypt-armor-in-region armor-start armor-end)))))))) - + ;; Don't ask if I want to replace the text. Just do it. + (flet ((yes-or-no-p (&rest args) t) + (y-or-n-p (&rest args) t)) + (epa-decrypt-armor-in-region armor-start armor-end))))))))) |