doc/tm-util_ja.texi

   1 @c $Id: tm-util_ja.texi,v 1.2 1995/12/13 06:45:14 morioka Exp $
   2
   3 @node customize, Bug report, encoded-word, Top
   4 @comment  node-name,  next,  previous,  up
   5 @chapter tm \e$B$N\e(B customize
   6
   7 tm \e$B$N\e(B customize \e$B$K$D$$$F@bL@$7$^$9!#\e(B
   8
   9 @menu
  10 * fields::
  11 * available functions::
  12 * example::
  13 @end menu
  14
  15 @node fields, available functions, customize, customize
  16 @comment  node-name,  next,  previous,  up
  17 @section fields
  18 @cindex field-list
  19 @cindex field-regexp
  20
  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
  23
  24 \e$B$3$3$G$O$3$NBP$rA`:n$9$k$?$a$N4X?t$r>R2p$7$^$9!#\e(B
  25
  26
  27 @defun tm:add-fields sym field-list &optional regexp-sym
  28
  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
  30 \e$B$9!#\e(B
  31 @end defun
  32
  33
  34 @defun tm:delete-fields sym field-list &optional regexp-sym
  35
  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
  37 \e$B$^$9!#\e(B
  38 @end defun
  39
  40
  41 @node available functions, example, fields, customize
  42 @comment  node-name,  next,  previous,  up
  43 @section \e$BM-MQ$J4X?t\e(B
  44
  45 tm \e$B$N@_Dj$KM-MQ$J4X?t$r>R2p$7$^$9!#\e(B
  46
  47
  48 @defun add-path path &rest options
  49
  50 @code{load-path} \e$B$K\e(B @var{path} \e$B$rDI2C$7$^$9!#\e(B
  51
  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
  54
  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
  57
  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
  60 @end defun
  61
  62
  63 @defun call-after-loaded module func &optional hook-name
  64
  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
  68
  69 @var{hook-name} \e$B$,>JN,$5$l$?>l9g!"\e(B@code{MODULE-load-hook} \e$B$,MQ$$$i$l$^\e(B
  70 \e$B$9!#\e(B
  71 @end defun
  72
  73
  74 @node example,  , available functions, customize
  75 @comment  node-name,  next,  previous,  up
  76 @section example
  77
  78 tm \e$B$N\e(B customize \e$B$NNc$r<($7$^$9!#\e(B
  79
  80
  81 @subsection preview-buffer \e$B$GI=<($5$l$k\e(B field \e$B$NJQ99\e(B
  82
  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
  85
  86 @lisp
  87 (call-after-loaded
  88  'tm-view
  89  (lambda ()
  90    (tm:add-fields
  91     'mime-viewer/ignored-field-list
  92     '("Mail-From" "Expires" "Xref" "Approved" "Sender" "X-.*")
  93      )))
  94 @end lisp
  95
  96
  97 @subsection hilit19
  98
  99 hilit19 \e$B$r;H$C$?\e(B face \e$B$N@_DjNc\e(B
 100
 101 @lisp
 102 (cond (window-system
 103        (let* ((header-patterns '(("^Subject:.*$" nil msg-subject)
 104                                  ("^From:.*$" nil msg-from)
 105                                  ("^--text follows this line--$"
 106                                   nil msg-separator)
 107                                  ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header)
 108                                  ))
 109               (body-patterns '(("^\\(In article\\|[ \t]*\\w*[]<>}|]\\).*$"
 110                                 nil msg-quote)))
 111               (message-patterns (append header-patterns body-patterns))
 112               )
 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
 116                                   message-patterns
 117                                   'hilit-rehighlight-message)
 118          )
 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))
 123        ))
 124 @end lisp
 125
 126
 127 @subsection browse-url
 128
 129 Gnus \e$BIUB0$N\e(B browse-url.el \e$B$N@_DjNc\e(B
 130
 131 @lisp
 132 (setq browse-url-browser-function
 133       (if (eq window-system 'x)
 134           'browse-url-netscape
 135         'browse-url-w3))
 136 (autoload browse-url-browser-function "browse-url"
 137   "Ask a WWW browser to show a URL." t)
 138 @end lisp