(let ((context (epg-make-context 'OpenPGP))
(pp-escape-newlines nil)
cipher)
- (setf (epg-context-armor context) t)
+ (epg-context-set-armor context t)
(epg-context-set-passphrase-callback
context
(cons #'auth-source-token-passphrase-callback-function