(funcall (if (consp (epg-context-passphrase-callback epg-context))
(car (epg-context-passphrase-callback epg-context))
(epg-context-passphrase-callback epg-context))
- epg-key-id
(if (consp (epg-context-passphrase-callback epg-context))
(cdr (epg-context-passphrase-callback epg-context)))))
string)
(cons (cons 'delete-problem (string-to-number (match-string 1 string)))
(epg-context-result-for epg-context 'error)))))
-(defun epg-passphrase-callback-function (key-id handback)
+(defun epg-passphrase-callback-function (handback)
(read-passwd
- (if (eq key-id 'SYM)
+ (if (eq epg-key-id 'SYM)
"Passphrase for symmetric encryption: "
- (if (eq key-id 'PIN)
+ (if (eq epg-key-id 'PIN)
"Passphrase for PIN: "
- (let ((entry (assoc key-id epg-user-id-alist)))
+ (let ((entry (assoc epg-key-id epg-user-id-alist)))
(if entry
- (format "Passphrase for %s %s: " key-id (cdr entry))
- (format "Passphrase for %s: " key-id)))))))
+ (format "Passphrase for %s %s: " epg-key-id (cdr entry))
+ (format "Passphrase for %s: " epg-key-id)))))))
(defun epg-progress-callback-function (what char current total handback)
(message "%s: %d%%/%d%%" what current total))