(as-binary-input-file
(mh-read-draft "clean-up"
(mh-msg-filename msg) nil))
- (setq enable-multibyte-characters flag)
+ (set-buffer-multibyte flag)
))
))))
(goto-char (point-min))
(set-buffer mh-show-buffer) ; Find displayed message
(let ((mh-ins-str
(if mime-raw-buffer
- (let (mime-preview-text/plain-hook buf)
+ (let (mime-display-text/plain-hook buf)
(prog1
(save-window-excursion
(set-buffer mime-raw-buffer)