X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=emh-setup.el;h=4da990db2d93fe1b01efe0a1a1f2dafcd6d89bb0;hb=ba62dbdb5b6492c3d146d187553cab44e0bee16f;hp=8f25f4629973c466e22c21d692d235587ab8fa68;hpb=64bf21cf0eb09bca9f0b7c1c567060b221ec7a00;p=elisp%2Femh.git

diff --git a/emh-setup.el b/emh-setup.el
index 8f25f46..4da990d 100644
--- a/emh-setup.el
+++ b/emh-setup.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emh-setup.el,v 0.0 1997-03-14 08:48:46 morioka Exp $
+;; Version: $Id: emh-setup.el,v 0.2 1997-08-05 15:07:32 morioka Exp $
 ;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -31,14 +31,7 @@
 ;;; @ for emh
 ;;;
 
-(defun emh-setup ()
-  (require 'emh)
-  )
-
-(call-after-loaded 'mh-e 'emh-setup 'mh-folder-mode-hook)
-(or (featurep 'mh-e)
-    (add-hook 'mh-letter-mode-hook 'emh-setup)
-    )
+(eval-after-load "mh-e" '(require 'emh))
 
 
 ;;; @ for mime-edit
@@ -65,6 +58,33 @@
 (add-hook 'mh-before-send-letter-hook 'mime-edit-maybe-translate)
 
 
+;;; @@ for emh-comp.el
+;;;
+
+(autoload 'emh-edit-again "emh-comp"
+  "Clean-up a draft or a message previously sent and make it resendable." t)
+(autoload 'emh-extract-rejected-mail "emh-comp"
+  "Extract a letter returned by the mail system and make it re-editable." t)
+(autoload 'emh-forward "emh-comp"
+  "Forward a message or message sequence by MIME style." t)
+
+(eval-after-load
+    "mh-e"
+  '(progn
+     (substitute-key-definition
+      'mh-edit-again 'emh-edit-again
+      mh-folder-mode-map)
+     (substitute-key-definition
+      'mh-extract-rejected-mail 'emh-extract-rejected-mail
+      mh-folder-mode-map)
+     (substitute-key-definition
+      'mh-forward 'emh-forward
+      mh-folder-mode-map)
+     ))
+
+(eval-after-load "mh-comp" '(require 'emh-comp))
+
+
 ;;; @ end
 ;;;