(emh-content-header-filter-hook): Use `emh-highlight-header' for

[elisp/emh.git] / emh.el

diff --git a/emh.el b/emh.el
index eeb7bc2..ceabe47 100644 (file)
--- a/emh.el
+++ b/emh.el
@@ -8,7 +8,7 @@
 ;; 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.0 $
+;; Version: $Revision: 0.7 $
 ;; Keywords: MH, MIME, multimedia, encoded-word, multilingual, mail
 
 ;; This file is part of emh.
@@ -30,17 +30,16 @@
 
 ;;; 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.0 1997-02-24 02:04:06 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))
 
@@ -130,7 +129,7 @@
                     (t
                      (mh-start-of-uncleaned-message)))
               (if emh-decode-encoded-word
-                  (eword-decode-message-header)
+                  (eword-decode-header)
                 )
               (set-buffer-modified-p nil)
               (setq buffer-read-only t)
@@ -231,11 +230,20 @@ digest are inserted into the folder after that message."
           '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-message-header)
+  (eword-decode-header)
+  (run-hooks 'emh-content-header-filter-hook)
   )
 
 (set-alist 'mime-view-content-header-filter-alist
@@ -383,7 +391,7 @@ digest are inserted into the folder after that message."
  'bbdb
  (function
   (lambda ()
-    (require 'tm-bbdb)
+    (require 'mime-bbdb)
     )))