plain
(or coding-system-for-read
(get-text-property start 'epa-coding-system-used))))
- (if (y-or-n-p "Replace the text in the region? ")
+ (if (y-or-n-p "Replace the original text? ")
(let ((inhibit-read-only t)
buffer-read-only)
(delete-region start end)
mode))
(message "Signing...done")
(delete-region start end)
+ (goto-char start)
(add-text-properties (point)
(progn
(insert (epa--decode-coding-string
recipients))
(message "Encrypting...done")
(delete-region start end)
+ (goto-char start)
(add-text-properties (point)
(progn
(insert cipher)