1 @c $Id: tm-util_ja.texi,v 1.2 1995/12/13 06:45:14 morioka Exp $
3 @node customize, Bug report, encoded-word, Top
4 @comment node-name, next, previous, up
5 @chapter tm
\e$B$N
\e(B customize
7 tm
\e$B$N
\e(B customize
\e$B$K$D$$$F@bL@$7$^$9!#
\e(B
11 * available functions::
15 @node fields, available functions, customize, customize
16 @comment node-name, next, previous, up
21 tm-view.el
\e$B$d
\e(B tm-edit.el
\e$B$G$O
\e(B message header field
\e$B$NI=<(!&A*Br$K
\e(B
22 @strong{field-list}
\e$B$H
\e(B @strong{field-regexp}
\e$B$H$$$&BP$rMQ$$$^$9!#
\e(B
24 \e$B$3$3$G$O$3$NBP$rA`:n$9$k$?$a$N4X?t$r>R2p$7$^$9!#
\e(B
27 @defun tm:add-fields sym field-list &optional regexp-sym
29 symbol @var{sym}
\e$B$G;X$5$l$?
\e(B field-list
\e$B$K
\e(B @var{field-list}
\e$B$rDI2C$7$^
\e(B
34 @defun tm:delete-fields sym field-list &optional regexp-sym
36 symbol @var{sym}
\e$B$G;X$5$l$?
\e(B field-list
\e$B$+$i
\e(B @var{field-list}
\e$B$r:o=|$7
\e(B
41 @node available functions, example, fields, customize
42 @comment node-name, next, previous, up
43 @section
\e$BM-MQ$J4X?t
\e(B
45 tm
\e$B$N@_Dj$KM-MQ$J4X?t$r>R2p$7$^$9!#
\e(B
48 @defun add-path path &rest options
50 @code{load-path}
\e$B$K
\e(B @var{path}
\e$B$rDI2C$7$^$9!#
\e(B
52 \e$BI8=`$G$O
\e(B @code{default-load-path}
\e$B$ND>2<$N$I$3$+$K
\e(B @var{path}
\e$B$,B8:_$7
\e(B
53 \e$B$F$$$k;~$N$_!"
\e(B@code{load-path}
\e$B$N@hF,$KE83+$7$?7A$GDI2C$7$^$9!#
\e(B
55 @var{options}
\e$B$K
\e(B @code{'all-paths}
\e$B$,B8:_$9$k>l9g!"
\e(B@code{load-path}
\e$BA4
\e(B
56 \e$BBN$+$i
\e(B @var{path}
\e$B$rC5:w$7$^$9!#
\e(B
58 @var{options}
\e$B$K
\e(B @code{'append}
\e$B$,B8:_$9$k>l9g!"
\e(B@code{load-path}
\e$B$NKv
\e(B
59 \e$BHx$KDI2C$7$^$9!#
\e(B
63 @defun call-after-loaded module func &optional hook-name
65 @var{module}
\e$B$,
\e(B provide
\e$B$5$l$F$$$l$P
\e(B @var{func}
\e$B$r$9$0$K8F$S!"$=$&$G$J
\e(B
66 \e$B$1$l$P!"
\e(B@var{module}
\e$B$,
\e(B load
\e$B$5$l$?;~$K
\e(B @var{func}
\e$B$,8F$P$l$k$h$&$K!"
\e(B
67 @var{hook-name}
\e$B$K
\e(B add-hook
\e$B$7$^$9!#
\e(B
69 @var{hook-name}
\e$B$,>JN,$5$l$?>l9g!"
\e(B@code{MODULE-load-hook}
\e$B$,MQ$$$i$l$^
\e(B
74 @node example, , available functions, customize
75 @comment node-name, next, previous, up
78 tm
\e$B$N
\e(B customize
\e$B$NNc$r<($7$^$9!#
\e(B
81 @subsection preview-buffer
\e$B$GI=<($5$l$k
\e(B field
\e$B$NJQ99
\e(B
83 \e$BI8=`@_Dj$K2C$(!"
\e(B"Mail-From", "Expires", "Xref", "Approved", "Sender",
84 "X-.*"
\e$B$bI=<($7$J$$$h$&$K$7$^$9!#
\e(B
91 'mime-viewer/ignored-field-list
92 '("Mail-From" "Expires" "Xref" "Approved" "Sender" "X-.*")
99 hilit19
\e$B$r;H$C$?
\e(B face
\e$B$N@_DjNc
\e(B
103 (let* ((header-patterns '(("^Subject:.*$" nil msg-subject)
104 ("^From:.*$" nil msg-from)
105 ("^--text follows this line--$"
107 ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header)
109 (body-patterns '(("^\\(In article\\|[ \t]*\\w*[]<>}|]\\).*$"
111 (message-patterns (append header-patterns body-patterns))
113 (hilit-set-mode-patterns 'msg-header header-patterns)
114 (hilit-set-mode-patterns 'msg-body body-patterns)
115 (hilit-set-mode-patterns 'mime/viewer-mode
117 'hilit-rehighlight-message)
119 (add-hook 'mime-viewer/content-header-filter-hook
120 (function hilit-rehighlight-buffer-quietly))
121 (add-hook 'mime-viewer/plain-text-preview-hook
122 (function hilit-rehighlight-buffer-quietly))
127 @subsection browse-url
129 Gnus
\e$BIUB0$N
\e(B browse-url.el
\e$B$N@_DjNc
\e(B
132 (setq browse-url-browser-function
133 (if (eq window-system 'x)
136 (autoload browse-url-browser-function "browse-url"
137 "Ask a WWW browser to show a URL." t)