(let ((passphrase
(funcall (car (epg-context-passphrase-callback-info epg-context))
epg-key-id
- (cdr (epg-context-passphrase-callback-info epg-context)))))
- (unwind-protect
- (if passphrase
- (process-send-string process (concat passphrase "\n")))
- (fillarray passphrase 0))))
+ (cdr (epg-context-passphrase-callback-info epg-context))))
+ string)
+ (if passphrase
+ (unwind-protect
+ (progn
+ (setq string (concat passphrase "\n"))
+ (fillarray passphrase 0)
+ (setq passphrase nil)
+ (process-send-string process string))
+ (if string
+ (fillarray string 0))))))
(defun epg-status-GOODSIG (process string)
(if (string-match "\\`\\([^ ]+\\) \\(.*\\)" string)