tm 7.105.2.

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

diff --git a/doc/tm-util=ja.texi b/doc/tm-util=ja.texi
index 3119a19..b2da073 100644 (file)
--- a/doc/tm-util=ja.texi
+++ b/doc/tm-util=ja.texi
@@ -1,4 +1,4 @@
-@c $Id: tm-util=ja.texi,v 3.0 1995/12/17 22:56:52 morioka Exp $
+@c $Id: tm-util=ja.texi,v 4.0 1995/12/25 09:25:53 morioka Exp $
 
 @node customize, Bug report, encoded-word, Top
 @comment  node-name,  next,  previous,  up
@@ -109,7 +109,9 @@ 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)
@@ -117,7 +119,9 @@ 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)
@@ -126,9 +130,17 @@ 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