;;; emh-comp.el --- emh functions for composing messages
-;; Copyright (C) 1993,1994,1995,1996,1997 Free Software Foundation, Inc.
+;; Copyright (C) 1993,1994,1995,1996,1997,1998 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1996/2/29 (separated from tm-mh-e.el)
;; Renamed: 1997/2/21 from tmh-comp.el
-;; Version: $Id: emh-comp.el,v 0.5 1997-11-11 11:48:57 morioka Exp $
;; Keywords: mail composing, MH, MIME, mail
;; This file is part of emh.
(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))
(defun emh-yank-cur-msg-with-no-filter ()
"Insert the current message into the draft buffer.
This function makes new show-buffer from article-buffer to disable
-variable `mime-view-plain-text-preview-hook'. If you don't want to
-use text filters for replying message, please set it to
+variable `mime-preview-text/plain-hook'. If you don't want to use text
+filters for replying message, please set it to
`emh-message-yank-function'.
Prefix each non-blank line in the message with the string in
`mh-ins-buf-prefix'. The entire message will be inserted if
(set-buffer mh-show-buffer) ; Find displayed message
(let ((mh-ins-str
(if mime-raw-buffer
- (let (mime-view-plain-text-preview-hook buf)
+ (let (mime-preview-text/plain-hook buf)
(prog1
(save-window-excursion
(set-buffer mime-raw-buffer)