+++ /dev/null
-@c $Id: tm-util_ja.texi,v 1.2 1995/12/13 06:45:14 morioka Exp $
-
-@node customize, Bug report, encoded-word, Top
-@comment node-name, next, previous, up
-@chapter tm \e$B$N\e(B customize
-
-tm \e$B$N\e(B customize \e$B$K$D$$$F@bL@$7$^$9!#\e(B
-
-@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 \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
-@strong{field-list} \e$B$H\e(B @strong{field-regexp} \e$B$H$$$&BP$rMQ$$$^$9!#\e(B
-
-\e$B$3$3$G$O$3$NBP$rA`:n$9$k$?$a$N4X?t$r>R2p$7$^$9!#\e(B
-
-
-@defun tm:add-fields sym field-list &optional regexp-sym
-
-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
-\e$B$9!#\e(B
-@end defun
-
-
-@defun tm:delete-fields sym field-list &optional regexp-sym
-
-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
-\e$B$^$9!#\e(B
-@end defun
-
-
-@node available functions, example, fields, customize
-@comment node-name, next, previous, up
-@section \e$BM-MQ$J4X?t\e(B
-
-tm \e$B$N@_Dj$KM-MQ$J4X?t$r>R2p$7$^$9!#\e(B
-
-
-@defun add-path path &rest options
-
-@code{load-path} \e$B$K\e(B @var{path} \e$B$rDI2C$7$^$9!#\e(B
-
-\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
-\e$B$F$$$k;~$N$_!"\e(B@code{load-path} \e$B$N@hF,$KE83+$7$?7A$GDI2C$7$^$9!#\e(B
-
-@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
-\e$BBN$+$i\e(B @var{path} \e$B$rC5:w$7$^$9!#\e(B
-
-@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
-\e$BHx$KDI2C$7$^$9!#\e(B
-@end defun
-
-
-@defun call-after-loaded module func &optional hook-name
-
-@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
-\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
-@var{hook-name} \e$B$K\e(B add-hook \e$B$7$^$9!#\e(B
-
-@var{hook-name} \e$B$,>JN,$5$l$?>l9g!"\e(B@code{MODULE-load-hook} \e$B$,MQ$$$i$l$^\e(B
-\e$B$9!#\e(B
-@end defun
-
-
-@node example, , available functions, customize
-@comment node-name, next, previous, up
-@section example
-
-tm \e$B$N\e(B customize \e$B$NNc$r<($7$^$9!#\e(B
-
-
-@subsection preview-buffer \e$B$GI=<($5$l$k\e(B field \e$B$NJQ99\e(B
-
-\e$BI8=`@_Dj$K2C$(!"\e(B"Mail-From", "Expires", "Xref", "Approved", "Sender",
-"X-.*" \e$B$bI=<($7$J$$$h$&$K$7$^$9!#\e(B
-
-@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 \e$B$r;H$C$?\e(B face \e$B$N@_DjNc\e(B
-
-@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
-
-Gnus \e$BIUB0$N\e(B browse-url.el \e$B$N@_DjNc\e(B
-
-@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
projects / elisp / tm.git / blobdiff