- (prog1
- (let ((file-coding-system-for-read *noconv*))
- (mh-read-draft "clean-up" (mh-msg-filename msg) nil)
- )
- (setq code-conversion t)
- ))))
- )
+ (let ((flag enable-multibyte-characters))
+ (prog1
+ (as-binary-input-file
+ (mh-read-draft "clean-up"
+ (mh-msg-filename msg) nil))
+ (setq enable-multibyte-characters flag)
+ ))
+ ))))