+++ /dev/null
-@c $Id: tm-util_en.texi,v 1.1 1995/12/13 09:27:55 morioka Exp $
-
-@node customize, Bug report, encoded-word, Top
-@comment node-name, next, previous, up
-@chapter customize
-
-@menu
-* fields::
-* available functions::
-* example::
-@end menu
-
-@node fields, available functions, customize, customize
-@comment node-name, next, previous, up
-@section fields
-@cindex field-list
-@cindex field-regexp
-
-tm-view.el and tm-edit.el uses pair of @strong{field-list} and
-@strong{field-regexp} to display or choose fields of message header.
-
-tm has functions to set such pair.
-
-
-@defun tm:add-fields sym field-list &optional regexp-sym
-
-It adds @var{field-list} to field-list indicated by symbol @var{sym}.
-@end defun
-
-
-@defun tm:delete-fields sym field-list &optional regexp-sym
-
-It removes @var{field-list} from field-list indicated by symbol
-@var{sym}.
-@end defun
-
-
-@node available functions, example, fields, customize
-@comment node-name, next, previous, up
-@section available functions
-
-
-@defun add-path path &rest options
-
-It adds @var{path} to @code{load-path}.
-
-In default, it adds expanded path to top of @code{load-path} if there
-is @var{path} under @code{default-load-path}.
-
-If @code{'all-paths} is specified in @var{options}, it searches
-@var{path} from all of @code{load-path} instead of
-only @code{default-load-path}.
-
-If @code{'append} is specifies in @var{options}, it adds to end of
-@code{load-path}.
-@end defun
-
-
-@defun call-after-loaded module func &optional hook-name
-
-It calls function @var{func} if @var{module} is already provided.
-
-Otherwise, it add-hooks to @var{hook-name}.
-
-Default value of @var{hook-name} is @code{MODULE-load-hook}.
-@end defun
-
-
-@node example, , available functions, customize
-@comment node-name, next, previous, up
-@section example
-
-@subsection message header display (1)
-
-If you want not to display "Mail-From", "Expires", "Xref", "Approved",
-"Sender" and "X-.*", please specify:
-
-@lisp
-(call-after-loaded
- 'tm-view
- (lambda ()
- (tm:add-fields
- 'mime-viewer/ignored-field-list
- '("Mail-From" "Expires" "Xref" "Approved" "Sender" "X-.*")
- )))
-@end lisp
-
-@subsection message header display (2)
-
-If you want to display only "From", ".*To", "Subject", ".*Date" and
-"Newsgroups" , please specify:
-
-@lisp
-(setq mime-viewer/ignored-field-list '(".+"))
-(setq mime-viewer/visible-field-list
- '("From" ".*To" "Subject" ".*Date" "Newsgroups"))
-@end lisp
-
-
-@subsection hilit19
-
-example to add faces using hilit19.
-
-@lisp
-(cond (window-system
- (let* ((header-patterns '(("^Subject:.*$" nil msg-subject)
- ("^From:.*$" nil msg-from)
- ("^--text follows this line--$"
- nil msg-separator)
- ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header)
- ))
- (body-patterns '(("^\\(In article\\|[ \t]*\\w*[]<>@}|]\\).*$"
- nil msg-quote)))
- (message-patterns (append header-patterns body-patterns))
- )
- (hilit-set-mode-patterns 'msg-header header-patterns)
- (hilit-set-mode-patterns 'msg-body body-patterns)
- (hilit-set-mode-patterns 'mime/viewer-mode
- message-patterns
- 'hilit-rehighlight-message)
- )
- (add-hook 'mime-viewer/content-header-filter-hook
- (function hilit-rehighlight-buffer-quietly))
- (add-hook 'mime-viewer/plain-text-preview-hook
- (function hilit-rehighlight-buffer-quietly))
- ))
-@end lisp
-
-
-@subsection browse-url
-
-setting example for browse-url.el included in Gnus.
-
-@lisp
-(setq browse-url-browser-function
- (if (eq window-system 'x)
- 'browse-url-netscape
- 'browse-url-w3))
-(autoload browse-url-browser-function "browse-url"
- "Ask a WWW browser to show a URL." t)
-@end lisp