From 11173fb6b4a87cacebe600cefa8fa390bc61d441 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 4 Mar 1997 20:22:07 +0000 Subject: [PATCH] (emh-content-header-filter-hook): Use `emh-highlight-header' for window-system. --- emh.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) 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) -- 1.7.10.4