|
70
|
1 @c $Id: tm-util=en.texi,v 1.1.1.1 1996/12/18 22:43:52 steve Exp $
|
|
|
2
|
|
|
3 @node customize, Bug report, encoded-word, Top
|
|
|
4 @comment node-name, next, previous, up
|
|
|
5 @chapter customize
|
|
|
6
|
|
|
7 @menu
|
|
|
8 * fields::
|
|
|
9 * available functions::
|
|
|
10 * example::
|
|
|
11 @end menu
|
|
|
12
|
|
|
13 @node fields, available functions, customize, customize
|
|
|
14 @comment node-name, next, previous, up
|
|
|
15 @section fields
|
|
|
16 @cindex field-list
|
|
|
17 @cindex field-regexp
|
|
|
18
|
|
|
19 tm-view.el and tm-edit.el uses pair of @strong{field-list} and
|
|
|
20 @strong{field-regexp} to display or choose fields of message header.
|
|
|
21
|
|
|
22 tm has functions to set such pair.
|
|
|
23
|
|
|
24
|
|
|
25 @defun tm:add-fields sym field-list &optional regexp-sym
|
|
|
26
|
|
|
27 It adds @var{field-list} to field-list indicated by symbol @var{sym}.
|
|
|
28 @end defun
|
|
|
29
|
|
|
30
|
|
|
31 @defun tm:delete-fields sym field-list &optional regexp-sym
|
|
|
32
|
|
|
33 It removes @var{field-list} from field-list indicated by symbol
|
|
|
34 @var{sym}.
|
|
|
35 @end defun
|
|
|
36
|
|
|
37
|
|
|
38 @node available functions, example, fields, customize
|
|
|
39 @comment node-name, next, previous, up
|
|
|
40 @section available functions
|
|
|
41
|
|
|
42
|
|
|
43 @defun add-path path &rest options
|
|
|
44
|
|
|
45 It adds @var{path} to @code{load-path}.
|
|
|
46
|
|
|
47 In default, it adds expanded path to top of @code{load-path} if there
|
|
|
48 is @var{path} under @code{default-load-path}.
|
|
|
49
|
|
|
50 If @code{'all-paths} is specified in @var{options}, it searches
|
|
|
51 @var{path} from all of @code{load-path} instead of
|
|
|
52 only @code{default-load-path}.
|
|
|
53
|
|
|
54 If @code{'append} is specifies in @var{options}, it adds to end of
|
|
|
55 @code{load-path}.
|
|
|
56 @end defun
|
|
|
57
|
|
|
58
|
|
|
59 @defun call-after-loaded module func &optional hook-name
|
|
|
60
|
|
|
61 It calls function @var{func} if @var{module} is already provided.
|
|
|
62
|
|
|
63 Otherwise, it add-hooks to @var{hook-name}.
|
|
|
64
|
|
|
65 Default value of @var{hook-name} is @code{MODULE-load-hook}.
|
|
|
66 @end defun
|
|
|
67
|
|
|
68
|
|
|
69 @node example, , available functions, customize
|
|
|
70 @comment node-name, next, previous, up
|
|
|
71 @section example
|
|
|
72
|
|
|
73 @subsection message header display (1)
|
|
|
74
|
|
|
75 If you would like to hide "Mail-From", "Expires", "Xref", "Approved",
|
|
|
76 "Sender" and "X-.*" headers, please specify:
|
|
|
77
|
|
|
78 @lisp
|
|
|
79 (call-after-loaded
|
|
|
80 'tm-view
|
|
|
81 (lambda ()
|
|
|
82 (tm:add-fields
|
|
|
83 'mime-viewer/ignored-field-list
|
|
|
84 '("Mail-From" "Expires" "Xref" "Approved" "Sender" "X-.*")
|
|
|
85 )))
|
|
|
86 @end lisp
|
|
|
87
|
|
|
88 @subsection message header display (2)
|
|
|
89
|
|
|
90 If you want to display only "From", ".*To", "Subject", ".*Date" and
|
|
|
91 "Newsgroups" , please specify:
|
|
|
92
|
|
|
93 @lisp
|
|
|
94 (setq mime-viewer/ignored-field-list '(".+"))
|
|
|
95 (setq mime-viewer/visible-field-list
|
|
|
96 '("From" ".*To" "Subject" ".*Date" "Newsgroups"))
|
|
|
97 @end lisp
|
|
|
98
|
|
|
99
|
|
|
100 @subsection hilit19
|
|
|
101
|
|
|
102 example to add faces using hilit19.
|
|
|
103
|
|
|
104 @lisp
|
|
|
105 (cond (window-system
|
|
|
106 (require 'hilit19)
|
|
|
107 (let* ((csubject-patterns '(("^\\[.+\\]$" nil msg-subject)))
|
|
|
108 (header-patterns '(("^Subject:.*$" nil msg-subject)
|
|
|
109 ("^From:.*$" nil msg-from)
|
|
|
110 ("^--text follows this line--$"
|
|
|
111 nil msg-separator)
|
|
|
112 ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header)
|
|
|
113 ))
|
|
|
114 (body-patterns '(("^\\(In article\\|[ \t]*\\w*[]<>@}|]\\).*$"
|
|
|
115 nil msg-quote)))
|
|
|
116 (message-patterns (append ;;csubject-patterns
|
|
|
117 header-patterns
|
|
|
118 body-patterns))
|
|
|
119 )
|
|
|
120 (hilit-set-mode-patterns 'msg-header header-patterns)
|
|
|
121 (hilit-set-mode-patterns 'msg-body body-patterns)
|
|
|
122 (hilit-set-mode-patterns 'mime/viewer-mode
|
|
|
123 message-patterns
|
|
|
124 'hilit-rehighlight-message)
|
|
|
125 )
|
|
|
126 (add-hook 'mime-viewer/content-header-filter-hook
|
|
|
127 (lambda ()
|
|
|
128 (if (not (eq mime::preview/original-major-mode
|
|
|
129 'gnus-original-article-mode))
|
|
|
130 (hilit-rehighlight-buffer-quietly)
|
|
|
131 )))
|
|
|
132 (add-hook 'mime-viewer/plain-text-preview-hook
|
|
|
133 (lambda ()
|
|
|
134 (if (not (eq mime::preview/original-major-mode
|
|
|
135 'gnus-original-article-mode))
|
|
|
136 (hilit-rehighlight-buffer-quietly)
|
|
|
137 )))
|
|
|
138 ))
|
|
|
139 @end lisp
|
|
|
140
|
|
|
141
|
|
|
142 @subsection browse-url
|
|
|
143
|
|
|
144 setting example for browse-url.el included in Gnus.
|
|
|
145
|
|
|
146 @lisp
|
|
|
147 (setq browse-url-browser-function
|
|
|
148 (if (eq window-system 'x)
|
|
|
149 'browse-url-netscape
|
|
|
150 'browse-url-w3))
|
|
|
151 (autoload browse-url-browser-function "browse-url"
|
|
|
152 "Ask a WWW browser to show a URL." t)
|
|
|
153 @end lisp
|
