X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-setup.el.in;h=cc6cc8f2149916f6bfe293f670aeeba5d473b39d;hb=02bda9ec900cf2f16404f8dafaa348b349979c98;hp=816c70875543af63f21711ec28d57e30612b56fa;hpb=8f0359f4b12bfcedc05fc4d09836f67554bfdc90;p=elisp%2Ftm.git

diff --git a/mime-setup.el.in b/mime-setup.el.in
index 816c708..cc6cc8f 100644
--- a/mime-setup.el.in
+++ b/mime-setup.el.in
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: mime-setup.el,v 7.14 1996/02/14 09:15:36 morioka Exp $
+;;;	$Id: mime-setup.el.in,v 7.20 1996/04/16 12:42:35 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -77,6 +77,7 @@
       (add-hook 'mime/editor-mode-hook 'mime-setup-set-signature-key)
       (setq gnus-signature-file nil)
       (setq mail-signature nil)
+      (setq message-signature nil)
       ))
 
 
@@ -124,6 +125,23 @@
 (add-hook 'news-inews-hook      'mime-editor/maybe-translate)
 
 
+;;; @ for message (September Gnus 0.58 or later)
+;;;
+
+(add-hook 'message-setup-hook 'mime/editor-mode)
+(add-hook 'message-send-hook  'mime-editor/maybe-translate)
+(add-hook 'message-header-hook 'mime/encode-message-header)
+
+(call-after-loaded
+ 'tm-edit
+ (function
+  (lambda ()
+    (setq message-forward-start-separator
+	  (concat (mime-make-tag "message" "rfc822") "\n"))
+    )))
+(setq message-forward-end-separator "")
+
+
 ;;; @ end
 ;;;
 
@@ -132,3 +150,7 @@
 (run-hooks 'mime-setup-load-hook)
 
 ;;; mime-setup.el ends here
+;;;
+;;; Local Variables:
+;;; mode: emacs-lisp
+;;; End: