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

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

@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
@chapter tm ¤Î customize

tm ¤Î customize, ¤ª¤è¤Ó¡¢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 ¤ä tm-edit.el ¤Ç¤Ï message header field ¤Îɽ¼¨¡¦ÁªÂò¤Ë 
@strong{field-list} ¤È @strong{field-regexp} ¤È¤¤¤¦ÂФòÍѤ¤¤Þ¤¹¡£

¤³¤³¤Ç¤Ï¤³¤ÎÂФòÁàºî¤¹¤ë¤¿¤á¤Î´Ø¿ô¤ò¾Ò²ð¤·¤Þ¤¹¡£


@defun tm:set-fields sym field-list &optional regexp-sym

symbol @var{sym} ¤Ç»Ø¤µ¤ì¤¿ field-list ¤Ë @var{field-list} ¤ò set ¤·¤Þ
¤¹¡£
@end defun


@defun tm:add-fields sym field-list &optional regexp-sym

symbol @var{sym} ¤Ç»Ø¤µ¤ì¤¿ field-list ¤Ë @var{field-list} ¤òÄɲä·¤Þ
¤¹¡£
@end defun


@defun tm:delete-fields sym field-list &optional regexp-sym

symbol @var{sym} ¤Ç»Ø¤µ¤ì¤¿ field-list ¤«¤é @var{field-list} ¤òºï½ü¤·
¤Þ¤¹¡£
@end defun


@node available functions, example, fields, customize
@comment  node-name,  next,  previous,  up
@section Í­ÍѤʴؿô

tm ¤ÎÀßÄê¤ËÍ­ÍѤʴؿô¤ò¾Ò²ð¤·¤Þ¤¹¡£


@defun add-path path &rest options

@code{load-path} ¤Ë @var{path} ¤òÄɲä·¤Þ¤¹¡£

ɸ½à¤Ç¤Ï @code{default-load-path} ¤Îľ²¼¤Î¤É¤³¤«¤Ë @var{path} ¤¬Â¸ºß¤·
¤Æ¤¤¤ë»þ¤Î¤ß¡¢@code{load-path} ¤ÎÀèƬ¤ËŸ³«¤·¤¿·Á¤ÇÄɲä·¤Þ¤¹¡£

@var{options} ¤Ë @code{'all-paths} ¤¬Â¸ºß¤¹¤ë¾ì¹ç¡¢@code{load-path} Á´
ÂΤ«¤é @var{path} ¤òõº÷¤·¤Þ¤¹¡£

@var{options} ¤Ë @code{'append} ¤¬Â¸ºß¤¹¤ë¾ì¹ç¡¢@code{load-path} ¤ÎËö
Èø¤ËÄɲä·¤Þ¤¹¡£
@end defun


@defun call-after-loaded module func &optional hook-name

@var{module} ¤¬ provide ¤µ¤ì¤Æ¤¤¤ì¤Ð @var{func} ¤ò¤¹¤°¤Ë¸Æ¤Ó¡¢¤½¤¦¤Ç¤Ê
¤±¤ì¤Ð¡¢@var{module} ¤¬ load ¤µ¤ì¤¿»þ¤Ë @var{func} ¤¬¸Æ¤Ð¤ì¤ë¤è¤¦¤Ë¡¢
@var{hook-name} ¤Ë add-hook ¤·¤Þ¤¹¡£

@var{hook-name} ¤¬¾Êά¤µ¤ì¤¿¾ì¹ç¡¢@code{MODULE-load-hook} ¤¬ÍѤ¤¤é¤ì¤Þ
¤¹¡£
@end defun


@node example,  , available functions, customize
@comment  node-name,  next,  previous,  up
@section example

tm ¤Î customize ¤ÎÎã¤ò¼¨¤·¤Þ¤¹¡£


@subsection preview-buffer ¤Çɽ¼¨¤µ¤ì¤ë field ¤ÎÊѹ¹

ɸ½àÀßÄê¤Ë²Ã¤¨¡¢"Mail-From", "Expires", "Xref", "Approved", "Sender",
"X-.*" ¤âɽ¼¨¤·¤Ê¤¤¤è¤¦¤Ë¤·¤Þ¤¹¡£

@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 hilit19

hilit19 ¤ò»È¤Ã¤¿ face ¤ÎÀßÄêÎã

@lisp
(cond (window-system
       (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)
                                 ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header)
                                 ))
              (body-patterns '(("^\\(In article\\|[ \t]*\\w*[]<>@}|]\\).*$"
                                nil msg-quote)))
              (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)
         (hilit-set-mode-patterns 'mime/viewer-mode
                                  message-patterns
                                  'hilit-rehighlight-message)
         )
       (add-hook 'mime-viewer/content-header-filter-hook
                 (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
                 (lambda ()
                   (if (not (eq mime::preview/original-major-mode
                                'gnus-original-article-mode))
                       (hilit-rehighlight-buffer-quietly)
                     )))
       ))
@end lisp


@subsection browse-url

Gnus ÉÕ°¤Î browse-url.el ¤ÎÀßÄêÎã

@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