EasyPG (< 0.0.6).
(mml2015-encrypt-to-self): Turn on by default.
(mml2015-always-trust): New user option.
+ (mml2015-epg-passphrase-callback): Display key ID on the passphrase
+ prompt.
2006-11-10 Katsumi Yamaoka <yamaoka@jpl.org>
(defun mml2015-epg-passphrase-callback (context key-id ignore)
(if (eq key-id 'SYM)
(epg-passphrase-callback-function context key-id nil)
- (let* ((entry (assoc key-id epg-user-id-alist))
+ (let* (entry
(passphrase
(password-read
- (format "GnuPG passphrase for %s: "
- (if entry
- (cdr entry)
- key-id))
(if (eq key-id 'PIN)
- "PIN"
- key-id))))
+ "Passphrase for PIN: "
+ (if (setq entry (assoc key-id epg-user-id-alist))
+ (format "Passphrase for %s %s: " key-id (cdr entry))
+ (format "Passphrase for %s: " key-id))))))
(when passphrase
(let ((password-cache-expiry mml2015-passphrase-cache-expiry))
(password-cache-add key-id passphrase))