martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improve an error about the message signer

Browse Source 
* lisp/gnus/mml-sec.el (mml-secure-epg-sign): Don't suggest setting
  `mml-secure-smime-sign-with-sender' if it's already non-nil.
This commit is contained in:
Karl Fogel
2019-11-04 14:39:14 -06:00
parent a67b51e92b
commit 06cb8350c6
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/gnus/mml-sec.el
View File

@@ -945,7 +945,15 @@ If no one is selected, symmetric encryption will be performed. "
(signers (mml-secure-signers context signer-names))
signature micalg)
(unless signers
(error "Couldn't find any signer names. Perhaps `mml-secure-smime-sign-with-sender' should be set?"))
(let ((maybe-msg
(if mml-secure-smime-sign-with-sender
"."
"; try setting `mml-secure-smime-sign-with-sender'.")))
;; If `mml-secure-smime-sign-with-sender' is already non-nil
;; then there's no point advising the user to examine it. If
;; there are any other variables worth examining, please
;; improve this error message by having it mention them.
(error "Couldn't find any signer names%s" maybe-msg)))
(when (eq 'OpenPGP protocol)
(setf (epg-context-armor context) t)
(setf (epg-context-textmode context) t)