1 @c $Id: tm-util=ja.texi,v 4.0 1995/12/25 09:25:53 morioka Exp $
3 @node customize, Bug report, encoded-word, Top
4 @comment node-name, next, previous, up
5 @chapter tm ¤Î customize
7 tm ¤Î customize, ¤ª¤è¤Ó¡¢customize ¤ò¹Ô¤¦¤Î¤ËÍÍѤʴؿô¤Ë¤Ä¤¤¤ÆÀâÌÀ¤·
12 * available functions::
17 @node fields, available functions, customize, customize
18 @comment node-name, next, previous, up
23 tm-view.el ¤ä tm-edit.el ¤Ç¤Ï message header field ¤Îɽ¼¨¡¦ÁªÂò¤Ë
24 @strong{field-list} ¤È @strong{field-regexp} ¤È¤¤¤¦ÂФòÍѤ¤¤Þ¤¹¡£
26 ¤³¤³¤Ç¤Ï¤³¤ÎÂФòÁàºî¤¹¤ë¤¿¤á¤Î´Ø¿ô¤ò¾Ò²ð¤·¤Þ¤¹¡£
29 @defun tm:set-fields sym field-list &optional regexp-sym
31 symbol @var{sym} ¤Ç»Ø¤µ¤ì¤¿ field-list ¤Ë @var{field-list} ¤ò set ¤·¤Þ
36 @defun tm:add-fields sym field-list &optional regexp-sym
38 symbol @var{sym} ¤Ç»Ø¤µ¤ì¤¿ field-list ¤Ë @var{field-list} ¤òÄɲä·¤Þ
43 @defun tm:delete-fields sym field-list &optional regexp-sym
45 symbol @var{sym} ¤Ç»Ø¤µ¤ì¤¿ field-list ¤«¤é @var{field-list} ¤òºï½ü¤·
50 @node available functions, example, fields, customize
51 @comment node-name, next, previous, up
54 tm ¤ÎÀßÄê¤ËÍÍѤʴؿô¤ò¾Ò²ð¤·¤Þ¤¹¡£
57 @defun add-path path &rest options
59 @code{load-path} ¤Ë @var{path} ¤òÄɲä·¤Þ¤¹¡£
61 ɸ½à¤Ç¤Ï @code{default-load-path} ¤Îľ²¼¤Î¤É¤³¤«¤Ë @var{path} ¤¬Â¸ºß¤·
62 ¤Æ¤¤¤ë»þ¤Î¤ß¡¢@code{load-path} ¤ÎÀèƬ¤ËŸ³«¤·¤¿·Á¤ÇÄɲä·¤Þ¤¹¡£
64 @var{options} ¤Ë @code{'all-paths} ¤¬Â¸ºß¤¹¤ë¾ì¹ç¡¢@code{load-path} Á´
65 ÂΤ«¤é @var{path} ¤òõº÷¤·¤Þ¤¹¡£
67 @var{options} ¤Ë @code{'append} ¤¬Â¸ºß¤¹¤ë¾ì¹ç¡¢@code{load-path} ¤ÎËö
72 @defun call-after-loaded module func &optional hook-name
74 @var{module} ¤¬ provide ¤µ¤ì¤Æ¤¤¤ì¤Ð @var{func} ¤ò¤¹¤°¤Ë¸Æ¤Ó¡¢¤½¤¦¤Ç¤Ê
75 ¤±¤ì¤Ð¡¢@var{module} ¤¬ load ¤µ¤ì¤¿»þ¤Ë @var{func} ¤¬¸Æ¤Ð¤ì¤ë¤è¤¦¤Ë¡¢
76 @var{hook-name} ¤Ë add-hook ¤·¤Þ¤¹¡£
78 @var{hook-name} ¤¬¾Êά¤µ¤ì¤¿¾ì¹ç¡¢@code{MODULE-load-hook} ¤¬ÍѤ¤¤é¤ì¤Þ
83 @node example, , available functions, customize
84 @comment node-name, next, previous, up
87 tm ¤Î customize ¤ÎÎã¤ò¼¨¤·¤Þ¤¹¡£
90 @subsection preview-buffer ¤Çɽ¼¨¤µ¤ì¤ë field ¤ÎÊѹ¹
92 ɸ½àÀßÄê¤Ë²Ã¤¨¡¢"Mail-From", "Expires", "Xref", "Approved", "Sender",
93 "X-.*" ¤âɽ¼¨¤·¤Ê¤¤¤è¤¦¤Ë¤·¤Þ¤¹¡£
100 'mime-viewer/ignored-field-list
101 '("Mail-From" "Expires" "Xref" "Approved" "Sender" "X-.*")
108 hilit19 ¤ò»È¤Ã¤¿ face ¤ÎÀßÄêÎã
113 (let* ((csubject-patterns '(("^\\[.+\\]$" nil msg-subject)))
114 (header-patterns '(("^Subject:.*$" nil msg-subject)
115 ("^From:.*$" nil msg-from)
116 ("^--text follows this line--$"
118 ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header)
120 (body-patterns '(("^\\(In article\\|[ \t]*\\w*[]<>@}|]\\).*$"
122 (message-patterns (append ;;csubject-patterns
126 (hilit-set-mode-patterns 'msg-header header-patterns)
127 (hilit-set-mode-patterns 'msg-body body-patterns)
128 (hilit-set-mode-patterns 'mime/viewer-mode
130 'hilit-rehighlight-message)
132 (add-hook 'mime-viewer/content-header-filter-hook
134 (if (not (eq mime::preview/original-major-mode
135 'gnus-original-article-mode))
136 (hilit-rehighlight-buffer-quietly)
138 (add-hook 'mime-viewer/plain-text-preview-hook
140 (if (not (eq mime::preview/original-major-mode
141 'gnus-original-article-mode))
142 (hilit-rehighlight-buffer-quietly)
148 @subsection browse-url
150 Gnus ÉÕ°¤Î browse-url.el ¤ÎÀßÄêÎã
153 (setq browse-url-browser-function
154 (if (eq window-system 'x)
157 (autoload browse-url-browser-function "browse-url"
158 "Ask a WWW browser to show a URL." t)