;;; 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.3 1997-03-18 14:57:53 morioka Exp $
;; Keywords: mail composing, MH, MIME, mail
;; This file is part of emh.
(require 'mh-comp)
(require 'mime-edit)
+;; Avoid byte compile warnings.
+;; (defvar gnus-article-buffer)
+;; (defvar gnus-article-copy)
+;; (defvar gnus-original-article-buffer)
+;; (eval-when-compile
+;; (fset 'gnus-copy-article-buffer 'ignore)
+;; )
+
;;; @ variable
;;;
is searched for first in the user's MH directory, then in the
system MH lib directory.")
-(defvar emh-message-yank-function 'mh-yank-cur-msg)
+;; (defvar emh-message-yank-function 'mh-yank-cur-msg)
;;; @ for tm-edit
)
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))
+ (set-buffer-multibyte 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)
(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-display-text/plain-hook buf)
(prog1
(save-window-excursion
(set-buffer mime-raw-buffer)
(insert "\n"))))
(error "There is no current message")))
-(defun emh-yank-current-message ()
- "Insert the current message into the draft buffer.
-It uses variable `emh-message-yank-function'
-to select message yanking function."
- (interactive)
- (let ((mh-sent-from-folder mh-sent-from-folder)
- (mh-sent-from-msg mh-sent-from-msg))
- (if (and (not (stringp mh-sent-from-folder))
- (boundp 'gnus-article-buffer)
- (get-buffer gnus-article-buffer)
- (bufferp mh-sent-from-folder)
- ) ; might be called from GNUS
- (if (boundp 'gnus-article-copy) ; might be sgnus
- (save-excursion
- (gnus-copy-article-buffer)
- (setq mh-sent-from-folder gnus-article-copy)
- (set-buffer mh-sent-from-folder)
- (setq mh-show-buffer gnus-article-copy)
- )
- (save-excursion
- (setq mh-sent-from-folder gnus-article-buffer)
- (set-buffer gnus-article-buffer)
- (setq mh-show-buffer (current-buffer))
- )))
- (funcall emh-message-yank-function)
- ))
-
-(substitute-key-definition
- 'mh-yank-cur-msg 'emh-yank-current-message mh-letter-mode-map)
-(substitute-key-definition
- 'mh-insert-letter 'emh-insert-letter mh-letter-mode-map)
+;; (defun emh-yank-current-message ()
+;; "Insert the current message into the draft buffer.
+;; It uses variable `emh-message-yank-function'
+;; to select message yanking function."
+;; (interactive)
+;; (let ((mh-sent-from-folder mh-sent-from-folder)
+;; (mh-sent-from-msg mh-sent-from-msg))
+;; (if (and (not (stringp mh-sent-from-folder))
+;; (boundp 'gnus-article-buffer)
+;; (get-buffer gnus-article-buffer)
+;; (bufferp mh-sent-from-folder)
+;; ) ; might be called from GNUS
+;; (if (boundp 'gnus-article-copy) ; might be sgnus
+;; (save-excursion
+;; (gnus-copy-article-buffer)
+;; (setq mh-sent-from-folder gnus-article-copy)
+;; (set-buffer mh-sent-from-folder)
+;; (setq mh-show-buffer gnus-article-copy)
+;; )
+;; (save-excursion
+;; (setq mh-sent-from-folder gnus-article-buffer)
+;; (set-buffer gnus-article-buffer)
+;; (setq mh-show-buffer (current-buffer))
+;; )))
+;; (funcall emh-message-yank-function)
+;; ))
+
+;; (substitute-key-definition
+;; 'mh-yank-cur-msg 'emh-yank-current-message mh-letter-mode-map)
+;; (substitute-key-definition
+;; 'mh-insert-letter 'emh-insert-letter mh-letter-mode-map)
;;; @ end