;; 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.2 1997-03-07 14:25:21 morioka Exp $
+;; 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.
(save-excursion
(set-buffer gnus-article-buffer)
(if (eq major-mode 'mime-view-mode)
- mime::preview/article-buffer
+ mime-raw-buffer
(current-buffer)
)))
))))
)
name))
(t
- (as-binary-input-file
- (mh-read-draft "clean-up" (mh-msg-filename msg) nil)
- )
- )))
- )
+ (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)
+ ))
+ ))))
(goto-char (point-min))
(mh-clean-msg-header (point-min) mh-new-draft-cleaned-headers nil)
(let ((cs (detect-coding-region (point-min)(point-max))))
)))
(delete-region (point) (point-max))
(if multipart-flag
- (mime-edit-enclose-region "digest" beg (point))
+ (mime-edit-enclose-digest-region beg (point))
))))
(re-search-forward tag-regexp)
(forward-line 1)
(delete-windows-on mh-show-buffer))
(set-buffer mh-show-buffer) ; Find displayed message
(let ((mh-ins-str
- (if mime::preview/article-buffer
+ (if mime-raw-buffer
(let (mime-view-plain-text-preview-hook buf)
(prog1
(save-window-excursion
- (set-buffer mime::preview/article-buffer)
+ (set-buffer mime-raw-buffer)
(setq buf (mime-view-mode))
(buffer-string)
)