This commit was generated by cvs2svn to compensate for changes in r395,

[elisp/tm.git] / doc / tm-util=en.texi

diff --git a/doc/tm-util=en.texi b/doc/tm-util=en.texi
index c033309..b1d787a 100644 (file)
--- a/doc/tm-util=en.texi
+++ b/doc/tm-util=en.texi
@@ -1,4 +1,4 @@
-@c $Id: tm-util_en.texi,v 1.1 1995/12/13 09:27:55 morioka Exp $
+@c $Id: tm-util=en.texi,v 3.0 1995/12/25 09:26:20 morioka Exp $
 
 @node customize, Bug report, encoded-word, Top
 @comment  node-name,  next,  previous,  up
@@ -72,8 +72,8 @@ Default value of @var{hook-name} is @code{MODULE-load-hook}.
 
 @subsection message header display (1)
 
-If you want not to display "Mail-From", "Expires", "Xref", "Approved",
-"Sender" and "X-.*", please specify:
+If you would like to hide "Mail-From", "Expires", "Xref", "Approved",
+"Sender" and "X-.*" headers, please specify:
 
 @lisp
 (call-after-loaded
@@ -103,7 +103,9 @@ example to add faces using hilit19.
 
 @lisp
 (cond (window-system
-       (let* ((header-patterns '(("^Subject:.*$" nil msg-subject)
+       (require 'hilit19)
+       (let* ((csubject-patterns '(("^\\[.+\\]$" nil msg-subject)))
+             (header-patterns '(("^Subject:.*$" nil msg-subject)
                                 ("^From:.*$" nil msg-from)
                                 ("^--text follows this line--$"
                                  nil msg-separator)
@@ -111,7 +113,9 @@ example to add faces using hilit19.
                                 ))
              (body-patterns '(("^\\(In article\\|[ \t]*\\w*[]<>@}|]\\).*$"
                                nil msg-quote)))
-             (message-patterns (append header-patterns body-patterns))
+             (message-patterns (append ;;csubject-patterns
+                                header-patterns
+                                body-patterns))
              )
         (hilit-set-mode-patterns 'msg-header header-patterns)
         (hilit-set-mode-patterns 'msg-body body-patterns)
@@ -120,9 +124,17 @@ example to add faces using hilit19.
                                  'hilit-rehighlight-message)
         )
        (add-hook 'mime-viewer/content-header-filter-hook
-                (function hilit-rehighlight-buffer-quietly))
+                (lambda ()
+                  (if (not (eq mime::preview/original-major-mode
+                               'gnus-original-article-mode))
+                      (hilit-rehighlight-buffer-quietly)
+                    )))
        (add-hook 'mime-viewer/plain-text-preview-hook
-                (function hilit-rehighlight-buffer-quietly))
+                (lambda ()
+                  (if (not (eq mime::preview/original-major-mode
+                               'gnus-original-article-mode))
+                      (hilit-rehighlight-buffer-quietly)
+                    )))
        ))
 @end lisp