(decode-coding-inserted-region
(point-min) (point-max)
(substring file 0 (string-match epa-file-name-regexp file))
- visit beg end replace))
- (insert (decode-coding-string string (or coding-system-for-read
- 'undecided))))
- (setq length (length string))
+ visit beg end replace)
+ (setq length (- (point-max) (point-min))))
+ (setq string (decode-coding-string string
+ (or coding-system-for-read
+ 'undecided))
+ length (length string))
+ (insert string))
(if replace
(delete-region (point) (point-max)))))
(if (and local-copy