* lisp/mml2015.el (mml2015-epg-encrypt): New variable 'sender'
is (message-options-get 'message-sender) and append it to
mml2015-signers. If mm-sign-option is not 'guided, mml2015-signers and
sender sign the mail.
(let* ((inhibit-redisplay t)
(context (epg-make-context))
(boundary (mml-compute-boundary cont))
(let* ((inhibit-redisplay t)
(context (epg-make-context))
(boundary (mml-compute-boundary cont))
+ (sender (message-options-get 'message-sender))
signer-key
(signers
(or (message-options-get 'mml2015-epg-signers)
signer-key
(signers
(or (message-options-get 'mml2015-epg-signers)
(epa-select-keys context "\
Select keys for signing.
If no one is selected, default secret key is used. "
(epa-select-keys context "\
Select keys for signing.
If no one is selected, default secret key is used. "
- mml2015-signers t)
- (if mml2015-signers
+ (cons sender mml2015-signers) t)
+ (if (or sender mml2015-signers)
(delq nil
(mapcar
(lambda (signer)
(delq nil
(mapcar
(lambda (signer)
signer)))
(error "No secret key for %s" signer))
signer-key)
signer)))
(error "No secret key for %s" signer))
signer-key)
+ (cons sender mml2015-signers))))))))
signature micalg)
(epg-context-set-armor context t)
(epg-context-set-textmode context t)
signature micalg)
(epg-context-set-armor context t)
(epg-context-set-textmode context t)