- (setf (epg-context-passphrase-callback context)
- #'epa-passphrase-callback-function)
- (setf (epg-context-progress-callback context)
- (cons
- #'epa-progress-callback-function
- (format "Encrypting %s..."
- (file-name-nondirectory file))))
- (if epa-pinentry-mode
- (setf (epg-context-pinentry-mode context) epa-pinentry-mode))
+ (epg-context-set-passphrase-callback context
+ #'epa-passphrase-callback-function)
+ (epg-context-set-progress-callback context
+ (cons
+ #'epa-progress-callback-function
+ (format "Encrypting %s..."
+ (file-name-nondirectory file))))
+ (setf (epg-context-pinentry-mode context) epa-pinentry-mode)