;; Created: 1993/11/21
;; Renamed: 1993/11/27 from mh-e-mime.el
;; Renamed: 1997/02/21 from tm-mh-e.el
-;; Version: $Revision: 0.1 $
+;; Version: $Revision: 0.7 $
;; Keywords: MH, MIME, multimedia, encoded-word, multilingual, mail
;; This file is part of emh.
;;; Code:
-(require 'tl-str)
-(require 'tl-misc)
(require 'mh-e)
(require 'mime-view)
+(require 'alist)
;;; @ version
;;;
(defconst emh-RCS-ID
- "$Id: emh.el,v 0.1 1997-02-24 02:28:23 tmorioka Exp $")
+ "$Id: emh.el,v 0.7 1997-03-04 20:22:07 morioka Exp $")
(defconst emh-version (get-version-string emh-RCS-ID))
'mh-show-mode
(function emh-decode-charset-buffer))
+(defvar emh-content-header-filter-hook
+ (if window-system
+ '(emh-highlight-header)
+ )
+ "Hook for header filtering.")
+
+(autoload 'emh-highlight-header "emh-face")
+
(defun emh-content-header-filter ()
(goto-char (point-min))
(mime-preview/cut-header)
(emh-decode-charset-buffer default-mime-charset)
(eword-decode-header)
+ (run-hooks 'emh-content-header-filter-hook)
)
(set-alist 'mime-view-content-header-filter-alist
'bbdb
(function
(lambda ()
- (require 'tm-bbdb)
+ (require 'mime-bbdb)
)))