;;; emh-setup.el --- setup file for emh.
-;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
+;; Copyright (C) 1994,1995,1996,1997,1998 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 $
-;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
+;; Keywords: mh-e, mail, news, MIME, multimedia, multilingual
-;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
+;; This file is part of emh.
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;;; @ 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
"Unconditionally turn on MIME-Edit minor mode." t)
(defun emh-setup-mh-draft-setting ()
- (turn-on-mime-edit)
(make-local-variable 'mail-header-separator)
(setq mail-header-separator "--------")
+ (eword-decode-header nil mail-header-separator)
+ (let ((ua mime-edit-user-agent-value))
+ (make-local-variable 'mime-edit-user-agent-value)
+ (setq mime-edit-user-agent-value (concat "EMH/" emh-version " " ua))
+ )
+ (turn-on-mime-edit)
(save-excursion
(goto-char (point-min))
(setq buffer-read-only nil)
(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
;;;