This commit was generated by cvs2svn to compensate for changes in r395,

[elisp/tm.git] / mime-setup.el.in

diff --git a/mime-setup.el.in b/mime-setup.el.in
index 816c708..cc6cc8f 100644 (file)
--- 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: