(defvar pgg-epg-secret-key-id-list nil)
-(defun pgg-epg-passphrase-callback (key-id ignore)
+(defun pgg-epg-passphrase-callback (context key-id ignore)
(if (eq key-id 'SYM)
- (epg-passphrase-callback-function key-id nil)
+ (epg-passphrase-callback-function context key-id nil)
(let* ((entry (assoc key-id epg-user-id-alist))
(passphrase
(pgg-read-passphrase
If optional PASSPHRASE is not specified, it will be obtained from the
passphrase cache or user."
(let ((context (epg-make-context))
+ (inhibit-redisplay t) ;Some Gnus users hate flickering
cipher)
(epg-context-set-armor context t)
(epg-context-set-textmode context pgg-text-mode)
If optional PASSPHRASE is not specified, it will be obtained from the
passphrase cache or user."
(let ((context (epg-make-context))
+ (inhibit-redisplay t) ;Some Gnus users hate flickering
plain)
(epg-context-set-armor context t)
(epg-context-set-textmode context pgg-text-mode)
If optional PASSPHRASE is not specified, it will be obtained from the
passphrase cache or user."
(let ((context (epg-make-context))
+ (inhibit-redisplay t) ;Some Gnus users hate flickering
signature)
(epg-context-set-armor context t)
(epg-context-set-textmode context pgg-text-mode)
"This function is for internal use only.
Verify region between START and END as the detached signature SIGNATURE."
- (let ((context (epg-make-context)))
+ (let ((context (epg-make-context))
+ (inhibit-redisplay t)) ;Some Gnus users hate flickering
(epg-context-set-armor context t)
(epg-context-set-textmode context pgg-text-mode)
(get-buffer-create pgg-output-buffer)
Insert public key at point."
(let ((context (epg-make-context))
+ (inhibit-redisplay t) ;Some Gnus users hate flickering
pointer)
(epg-context-set-armor context t)
(epg-context-set-textmode context pgg-text-mode)
Add all public keys in region between START and END to the keyring."
(let ((context (epg-make-context))
+ (inhibit-redisplay t) ;Some Gnus users hate flickering
pointer)
(epg-context-set-armor context t)
(epg-context-set-textmode context pgg-text-mode)