From: morioka <morioka>
Date: Tue, 5 Aug 1997 15:07:32 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: emh-0_21~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4b517cc26fa53f7c63ba83a68d602410fbf59198;p=elisp%2Femh.git

Fixed.
---

diff --git a/emh-setup.el b/emh-setup.el
index b3693e1..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.1 1997-08-05 09:14:20 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).
@@ -68,13 +68,19 @@
 (autoload 'emh-forward "emh-comp"
   "Forward a message or message sequence by MIME style." t)
 
-(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-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))