Mercurial > hg > xemacs-beta

comparison man/tm/tm-util=en.texi @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents
children
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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