message-sender.
(mml1991-epg-encrypt): Ditto.
* mml2015.el (mml2015-epg-sign): Don't lookup a private key by
message-sender.
(mml2015-epg-encrypt): Ditto.
+2006-09-06 Daiki Ueno <ueno@unixuser.org>
+
+ * mml1991.el (mml1991-epg-sign): Don't lookup a private kye by
+ message-sender.
+ (mml1991-epg-encrypt): Ditto.
+ * mml2015.el (mml2015-epg-sign): Don't lookup a private key by
+ message-sender.
+ (mml2015-epg-encrypt): Ditto.
+
2006-09-04 Chong Yidong <cyd@stupidchicken.com>
* message.el (message-send-mail-with-sendmail): Look for sendmail in
2006-09-04 Chong Yidong <cyd@stupidchicken.com>
* message.el (message-send-mail-with-sendmail): Look for sendmail in
(if mml1991-signers
(setq signers (mapcar (lambda (name)
(car (epg-list-keys context name t)))
(if mml1991-signers
(setq signers (mapcar (lambda (name)
(car (epg-list-keys context name t)))
- mml1991-signers))
- (setq signers (list (car (epg-list-keys
- context
- (message-options-get 'mml-sender)
- t))))))
(epg-context-set-armor context t)
(epg-context-set-textmode context t)
(epg-context-set-signers context signers)
(epg-context-set-armor context t)
(epg-context-set-textmode context t)
(epg-context-set-signers context signers)
(if mml1991-signers
(setq signers (mapcar (lambda (name)
(car (epg-list-keys context name t)))
(if mml1991-signers
(setq signers (mapcar (lambda (name)
(car (epg-list-keys context name t)))
- mml1991-signers))
- (setq signers (list (car (epg-list-keys
- context
- (message-options-get 'mml-sender)
- t))))))
(epg-context-set-signers context signers))
(epg-context-set-armor context t)
(epg-context-set-textmode context t)
(epg-context-set-signers context signers))
(epg-context-set-armor context t)
(epg-context-set-textmode context t)
(if mml2015-signers
(setq signers (mapcar (lambda (name)
(car (epg-list-keys context name t)))
(if mml2015-signers
(setq signers (mapcar (lambda (name)
(car (epg-list-keys context name t)))
- mml2015-signers))
- (setq signers (list (car (epg-list-keys
- context
- (message-options-get 'mml-sender)
- t))))))
(epg-context-set-armor context t)
(epg-context-set-textmode context t)
(epg-context-set-signers context signers)
(epg-context-set-armor context t)
(epg-context-set-textmode context t)
(epg-context-set-signers context signers)
(if mml2015-signers
(setq signers (mapcar (lambda (name)
(car (epg-list-keys context name t)))
(if mml2015-signers
(setq signers (mapcar (lambda (name)
(car (epg-list-keys context name t)))
- mml2015-signers))
- (setq signers (list (car (epg-list-keys
- context
- (message-options-get 'mml-sender)
- t))))))
(epg-context-set-signers context signers))
(epg-context-set-armor context t)
(epg-context-set-textmode context t)
(epg-context-set-signers context signers))
(epg-context-set-armor context t)
(epg-context-set-textmode context t)