(defvar epa-file-passphrase-alist nil)
-(if (fboundp 'encode-coding-string)
- (defalias 'epa-file--encode-coding-string 'encode-coding-string)
- (defalias 'epa-file--encode-coding-string 'identity))
+(eval-and-compile
+ (if (fboundp 'encode-coding-string)
+ (defalias 'epa-file--encode-coding-string 'encode-coding-string)
+ (defalias 'epa-file--encode-coding-string 'identity)))
-(if (fboundp 'decode-coding-string)
- (defalias 'epa-file--decode-coding-string 'decode-coding-string)
- (defalias 'epa-file--decode-coding-string 'identity))
+(eval-and-compile
+ (if (fboundp 'decode-coding-string)
+ (defalias 'epa-file--decode-coding-string 'decode-coding-string)
+ (defalias 'epa-file--decode-coding-string 'identity)))
(defun epa-file-name-regexp-update ()
(interactive)
file))
(epg-context-set-progress-callback context
#'epa-progress-callback-function)
+ (epg-context-set-armor context epa-armor)
+ (epg-context-set-textmode context epa-textmode)
(condition-case error
(setq string
(epg-encrypt-string
(make-local-variable 'epa-file-encrypt-to)
(setq epa-file-encrypt-to
(epa-select-keys
- context
+ (epg-make-context)
"Select recipents for encryption.
If no one is selected, symmetric encryption will be performed. ")))