From: morioka <morioka>
Date: Tue, 4 Mar 1997 20:22:07 +0000 (+0000)
Subject: (emh-content-header-filter-hook): Use `emh-highlight-header' for
X-Git-Tag: emh-0_21~42
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=11173fb6b4a87cacebe600cefa8fa390bc61d441;p=elisp%2Femh.git

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

diff --git a/emh.el b/emh.el
index d0de4a1..ceabe47 100644
--- 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.6 $
+;; Version: $Revision: 0.7 $
 ;; Keywords: MH, MIME, multimedia, encoded-word, multilingual, mail
 
 ;; This file is part of emh.
@@ -39,7 +39,7 @@
 ;;;
 
 (defconst emh-RCS-ID
-  "$Id: emh.el,v 0.6 1997-03-03 20:56:19 morioka Exp $")
+  "$Id: emh.el,v 0.7 1997-03-04 20:22:07 morioka Exp $")
 
 (defconst emh-version (get-version-string emh-RCS-ID))
 
@@ -230,6 +230,14 @@ 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)