-
-
-;;; @@ 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)
-
-(call-after-loaded
- 'mime-setup
- (function
- (lambda ()
- (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)
-
- (call-after-loaded
- 'mh-comp
- (function
- (lambda ()
- (require 'emh-comp)
- ))
- 'mh-letter-mode-hook)
- )))