Delete garbages.

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

diff --git a/doc/tm-util=ja.texi b/doc/tm-util=ja.texi
deleted file mode 100644 (file)
index b2da073..0000000
--- a/doc/tm-util=ja.texi
+++ /dev/null
@@ -1,159 +0,0 @@
-@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