comparison lisp/mh-e/mh-customize.el @ 49459:06b77df47802

* mh-e: Created directory. ChangeLog will appear in a week when we release version 7.2. * lisp/mail/mh-alias.el, lisp/mail/mh-comp.el, lisp/mail/mh-customize.el, lisp/mail/mh-e.el, lisp/mail/mh-funcs.el, lisp/mail/mh-identity.el, lisp/mail/mh-index.el, lisp/mail/mh-loaddefs.el, lisp/mail/mh-mime.el, lisp/mail/mh-pick.el, lisp/mail/mh-seq.el, lisp/mail/mh-speed.el, lisp/mail/mh-utils.el, lisp/mail/mh-xemacs-compat.el: Moved to mh-e. Note that reply2.pbm and reply2.xpm, which were created by the MH-E package, were left in mail since they can probably be used by other mail packages. * makefile.w32-in (WINS): Added mh-e. * makefile.nt (WINS): Added mh-e.
author Bill Wohler <wohler@newt.com>
date Sun, 26 Jan 2003 02:38:37 +0000
parents
children b35587af8747
comparison
equal deleted inserted replaced
49458:5ddabc4c81b0 49459:06b77df47802
1 ;;; mh-customize.el --- MH-E customization
2
3 ;; Copyright (C) 2002 Free Software Foundation, Inc.
4
5 ;; Author: Bill Wohler <wohler@newt.com>
6 ;; Maintainer: Bill Wohler <wohler@newt.com>
7 ;; Keywords: mail
8 ;; See: mh-e.el
9
10 ;; This file is part of GNU Emacs.
11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; any later version.
16
17 ;; GNU Emacs is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details.
21
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25 ;; Boston, MA 02111-1307, USA.
26
27 ;;; Commentary:
28
29 ;; All of the defgroups, defcustoms, and deffaces in MH-E are found here. This
30 ;; makes it possible to customize modules that aren't loaded yet. It also
31 ;; makes it easier to organize the customization groups.
32
33 ;; This file contains the following sections:
34 ;;
35 ;; 1. MH-E Customization Groups
36 ;;
37 ;; These are the customization group definitions. These are organized in a
38 ;; logical order. High-level, windows and toolbar, folder, message,
39 ;; composing and hooks.
40 ;;
41 ;; 2. MH-E Customization
42 ;;
43 ;; Here are the actual customization variables. There is a sub-section for
44 ;; each group in the MH-E Customization Groups section. Within each
45 ;; section, variables are sorted alphabetically. The manual section
46 ;; dictates which group a variable should be placed. New variables should
47 ;; be placed in the section where they would most likely be defined.
48 ;;
49 ;; All hooks should be placed in the 'mh-hook group; in addition, add the
50 ;; group in which the hook is defined in the manual (or, if it is new,
51 ;; where it would be defined). These two actions insures that the hooks
52 ;; appear last in each group.
53 ;;
54 ;; 3. Faces
55
56 ;;; Change Log:
57
58 ;; $Id: mh-customize.el,v 1.1 2003/01/08 23:21:16 wohler Exp $
59
60 ;;; Code:
61
62 ;;;###mh-autoload
63 (defun mh-customize ()
64 "Customize MH-E variables."
65 (interactive)
66 (customize-group 'mh))
67
68 ;;; MH-E Customization Groups
69
70 (defgroup mh nil
71 "GNU Emacs interface to the MH mail system."
72 :link '(custom-manual "(mh-e)Top")
73 :group 'mail)
74
75 (defgroup mh-toolbar nil
76 "Toolbar configuration."
77 :prefix "mh-"
78 :group 'mh)
79
80 (defgroup mh-speed nil
81 "Speedbar and folder configuration."
82 :prefix "mh-"
83 :link '(custom-manual "(mh-e)Customizing Moving Mail")
84 :group 'mh)
85
86 (defgroup mh-folder nil
87 "Options for controlling scan listing."
88 :prefix "mh-"
89 :link '(custom-manual "(mh-e)Customizing Moving Mail")
90 :group 'mh)
91
92 (defgroup mh-show nil
93 "Message display."
94 :prefix "mh-"
95 :link '(custom-manual "(mh-e)Customizing Reading")
96 :group 'mh)
97
98 (defgroup mh-letter nil
99 "Composing messages."
100 :prefix "mh-"
101 :link '(custom-manual "(mh-e)Customizing Sending")
102 :group 'mh)
103
104 (defgroup mh-alias nil
105 "Alias handling."
106 :link '(custom-manual "(mh-e)Customizing mh-e")
107 :prefix "mh-alias-"
108 :group 'mh)
109
110 (defgroup mh-index nil
111 "Indexed searching."
112 :link '(custom-manual "(mh-e)Customizing mh-e")
113 :prefix "mh-"
114 :group 'mh)
115
116 (defgroup mh-identity nil
117 "Multiple personalities."
118 :link '(custom-manual "(mh-e)Customizing mh-e")
119 :prefix "mh-"
120 :group 'mh)
121
122 (defgroup mh-faces nil
123 "Faces used in MH-E."
124 :link '(custom-manual "(mh-e)Customizing mh-e")
125 :prefix "mh-"
126 :group 'faces
127 :group 'mh)
128
129 (defgroup mh-hooks nil
130 "MH-E hooks."
131 :link '(custom-manual "(mh-e)Customizing mh-e")
132 :prefix "mh-"
133 :group 'mh)
134
135 ;;; Faces
136
137 (defgroup mh-speed-faces nil
138 "Faces used in speedbar."
139 :link '(custom-manual "(mh-e)Customizing mh-e")
140 :prefix "mh-"
141 :group 'mh-faces
142 :group 'mh-speed)
143
144 (defgroup mh-folder-faces nil
145 "Faces used in scan listing."
146 :link '(custom-manual "(mh-e)Customizing mh-e")
147 :prefix "mh-"
148 :group 'mh-faces
149 :group 'mh-folder)
150
151 (defgroup mh-show-faces nil
152 "Faces used in message display."
153 :link '(custom-manual "(mh-e)Customizing mh-e")
154 :prefix "mh-"
155 :group 'mh-faces
156 :group 'mh-show)
157
158 (defgroup mh-index-faces nil
159 "Faces used in indexed searches."
160 :link '(custom-manual "(mh-e)Customizing mh-e")
161 :prefix "mh-"
162 :group 'mh-faces
163 :group 'mh-index)
164
165
166
167 ;;; MH-E Customization (:group mh)
168
169 ;;; Toolbar configuration (:group 'mh-toolbar)
170
171 (defconst mh-tool-bar-item-inc "Incorporate new mail in Inbox")
172 (defconst mh-tool-bar-item-save-mime "Save MIME parts")
173 (defconst mh-tool-bar-item-prev-msg "Previous message")
174 (defconst mh-tool-bar-item-page-msg "Page this message")
175 (defconst mh-tool-bar-item-next-msg "Next message")
176 (defconst mh-tool-bar-item-delete "Mark for deletion")
177 (defconst mh-tool-bar-item-refile "Refile this message")
178 (defconst mh-tool-bar-item-undo "Undo this mark")
179 (defconst mh-tool-bar-item-perform "Perform moves and deletes")
180 (defconst mh-tool-bar-item-toggle-show "Toggle showing message")
181 (defconst mh-tool-bar-item-reply-from "Reply to \"from\"")
182 (defconst mh-tool-bar-item-reply-to "Reply to \"to\"")
183 (defconst mh-tool-bar-item-reply-all "Reply to \"all\"")
184 (defconst mh-tool-bar-item-reply "Reply to this message")
185 (defconst mh-tool-bar-item-alias "Grab From alias")
186 (defconst mh-tool-bar-item-compose "Compose new message")
187 (defconst mh-tool-bar-item-rescan "Rescan this folder")
188 (defconst mh-tool-bar-item-repack "Repack this folder")
189 (defconst mh-tool-bar-item-search "Search")
190 (defconst mh-tool-bar-item-visit "Visit other folder")
191 (defconst mh-tool-bar-item-prefs "MH-E preferences")
192 (defconst mh-tool-bar-item-help "Help")
193 (defconst mh-tool-bar-item-widen "Widen from this sequence")
194
195 (defconst mh-tool-bar-item-send "Send this letter")
196 (defconst mh-tool-bar-item-attach "Insert attachment")
197 (defconst mh-tool-bar-item-spell "Check spelling")
198 (defconst mh-tool-bar-item-save "Save current buffer to its file")
199 (defconst mh-tool-bar-item-undo-op "Undo last operation")
200 (defconst mh-tool-bar-item-kill
201 "Cut (kill) text in region between mark and current position")
202 (defconst mh-tool-bar-item-copy
203 "Copy text in region between mark and current position")
204 (defconst mh-tool-bar-item-paste
205 "Paste (yank) text cut or copied earlier")
206 (defconst mh-tool-bar-item-kill-draft "Kill this draft")
207 (defconst mh-tool-bar-item-comp-prefs "MH-E composition preferences")
208
209 (defcustom mh-tool-bar-reply-3-buttons-flag nil
210 "*Non-nil means use three buttons for reply commands in tool-bar.
211 If you have room on your tool-bar because you are using a large font, you
212 may set this variable to expand the single reply button into three buttons
213 that won't lead to minibuffer prompt about who to reply to."
214 :type 'boolean
215 :group 'mh-toolbar)
216
217 (defcustom mh-tool-bar-search-function 'mh-search-folder
218 "*Function called by the tool-bar search button.
219 See `mh-search-folder' and `mh-index-search' for details."
220 :type '(choice (const mh-search-folder)
221 (const mh-index-search)
222 (function :tag "Other function"))
223 :group 'mh-toolbar)
224
225 (eval-when-compile (defvar tool-bar-map))
226 (defvar mh-show-tool-bar-map nil)
227 (defun mh-tool-bar-show-set ()
228 "Construct toolbar for `mh-show-mode'."
229 (when (fboundp 'tool-bar-add-item)
230 (setq
231 mh-show-tool-bar-map
232 (let ((tool-bar-map (make-sparse-keymap)))
233 (if (member mh-tool-bar-item-inc mh-tool-bar-folder-buttons)
234 (tool-bar-add-item "mail" 'mh-inc-folder 'mh-showtoolbar-inc-folder
235 :help mh-tool-bar-item-inc))
236 (if (member mh-tool-bar-item-save-mime mh-tool-bar-folder-buttons)
237 (tool-bar-add-item "attach" 'mh-mime-save-parts
238 'mh-showtoolbar-mime-save-parts
239 :help mh-tool-bar-item-save-mime))
240 (if (member mh-tool-bar-item-prev-msg mh-tool-bar-folder-buttons)
241 (tool-bar-add-item "left_arrow" 'mh-show-previous-undeleted-msg
242 'mh-showtoolbar-prev
243 :help mh-tool-bar-item-prev-msg))
244 (if (member mh-tool-bar-item-page-msg mh-tool-bar-folder-buttons)
245 (tool-bar-add-item "page-down" 'mh-show-page-msg 'mh-showtoolbar-page
246 :help mh-tool-bar-item-page-msg))
247 (if (member mh-tool-bar-item-next-msg mh-tool-bar-folder-buttons)
248 (tool-bar-add-item "right_arrow" 'mh-show-next-undeleted-msg
249 'mh-showtoolbar-next
250 :help mh-tool-bar-item-next-msg))
251 (if (member mh-tool-bar-item-delete mh-tool-bar-folder-buttons)
252 (tool-bar-add-item "close" 'mh-show-delete-msg
253 'mh-showtoolbar-delete
254 :help mh-tool-bar-item-delete))
255 (if (member mh-tool-bar-item-refile mh-tool-bar-folder-buttons)
256 (tool-bar-add-item "refile" 'mh-show-refile-msg
257 'mh-showtoolbar-refile
258 :help mh-tool-bar-item-refile))
259 (if (member mh-tool-bar-item-undo mh-tool-bar-folder-buttons)
260 (tool-bar-add-item "undo" 'mh-show-undo 'mh-showtoolbar-undo
261 :help mh-tool-bar-item-undo))
262 (if (member mh-tool-bar-item-perform mh-tool-bar-folder-buttons)
263 (tool-bar-add-item "execute" 'mh-show-execute-commands
264 'mh-showtoolbar-exec
265 :help mh-tool-bar-item-perform))
266 (if (member mh-tool-bar-item-toggle-show mh-tool-bar-folder-buttons)
267 (tool-bar-add-item "show" 'mh-show-toggle-showing
268 'mh-showtoolbar-toggle-show
269 :help mh-tool-bar-item-toggle-show))
270 (if (member mh-tool-bar-item-reply-from mh-tool-bar-folder-buttons)
271 (tool-bar-add-item "reply-from"
272 (lambda (&optional arg)
273 (interactive "P")
274 (set-buffer mh-show-folder-buffer)
275 (mh-reply (mh-get-msg-num nil) "from" arg))
276 'mh-showtoolbar-reply-from
277 :help mh-tool-bar-item-reply-from))
278 (if (member mh-tool-bar-item-reply-to mh-tool-bar-folder-buttons)
279 (tool-bar-add-item "reply-to"
280 (lambda (&optional arg)
281 (interactive "P")
282 (set-buffer mh-show-folder-buffer)
283 (mh-reply (mh-get-msg-num nil) "to" arg))
284 'mh-showtoolbar-reply-to
285 :help mh-tool-bar-item-reply-to))
286 (if (member mh-tool-bar-item-reply-all mh-tool-bar-folder-buttons)
287 (tool-bar-add-item "reply-all"
288 (lambda (&optional arg)
289 (interactive "P")
290 (set-buffer mh-show-folder-buffer)
291 (mh-reply (mh-get-msg-num nil) "all" arg))
292 'mh-showtoolbar-reply-all
293 :help mh-tool-bar-item-reply-all))
294 (if (member mh-tool-bar-item-reply mh-tool-bar-folder-buttons)
295 (tool-bar-add-item "mail/reply2" 'mh-show-reply
296 'mh-showtoolbar-reply
297 :help mh-tool-bar-item-reply))
298 (if (member mh-tool-bar-item-alias mh-tool-bar-folder-buttons)
299 (tool-bar-add-item "alias" 'mh-alias-grab-from-field
300 'mh-showtoolbar-alias
301 :help mh-tool-bar-item-alias
302 :enable '(mh-alias-from-has-no-alias-p)))
303 (if (member mh-tool-bar-item-compose mh-tool-bar-folder-buttons)
304 (tool-bar-add-item "mail_compose" 'mh-send 'mh-showtoolbar-compose
305 :help mh-tool-bar-item-compose))
306 (if (member mh-tool-bar-item-rescan mh-tool-bar-folder-buttons)
307 (tool-bar-add-item "rescan" 'mh-show-rescan-folder
308 'mh-showtoolbar-rescan
309 :help mh-tool-bar-item-rescan))
310 (if (member mh-tool-bar-item-repack mh-tool-bar-folder-buttons)
311 (tool-bar-add-item "repack" 'mh-show-pack-folder
312 'mh-showtoolbar-pack
313 :help mh-tool-bar-item-repack))
314 (if (member mh-tool-bar-item-search mh-tool-bar-folder-buttons)
315 (tool-bar-add-item "search"
316 (lambda (&optional arg)
317 (interactive "P")
318 (call-interactively
319 mh-tool-bar-search-function))
320 'mh-showtoolbar-search
321 :help mh-tool-bar-item-search))
322 (if (member mh-tool-bar-item-visit mh-tool-bar-folder-buttons)
323 (tool-bar-add-item "fld_open" 'mh-visit-folder
324 'mh-showtoolbar-visit
325 :help mh-tool-bar-item-visit))
326 (if (member mh-tool-bar-item-prefs mh-tool-bar-folder-buttons)
327 (tool-bar-add-item "preferences" (lambda ()
328 (interactive)
329 (customize-group "mh"))
330 'mh-showtoolbar-customize
331 :help mh-tool-bar-item-prefs))
332 (if (member mh-tool-bar-item-help mh-tool-bar-folder-buttons)
333 (tool-bar-add-item "help" (lambda ()
334 (interactive)
335 (Info-goto-node "(mh-e)Top"))
336 'mh-showtoolbar-help
337 :help mh-tool-bar-item-help))
338 tool-bar-map))))
339
340 (defvar mh-letter-tool-bar-map nil)
341 ;;;###mh-autoload
342 (defun mh-tool-bar-letter-set ()
343 "Construct toolbar for `mh-letter-mode'."
344 (when (fboundp 'tool-bar-add-item)
345 (setq
346 mh-letter-tool-bar-map
347 (let ((tool-bar-map (make-sparse-keymap)))
348 (if (member mh-tool-bar-item-send mh-tool-bar-letter-buttons)
349 (tool-bar-add-item "mail_send" 'mh-send-letter
350 'mh-lettertoolbar-send
351 :help mh-tool-bar-item-send))
352 (if (member mh-tool-bar-item-attach mh-tool-bar-letter-buttons)
353 (tool-bar-add-item "attach" 'mh-compose-insertion
354 'mh-lettertoolbar-compose
355 :help mh-tool-bar-item-attach))
356 (if (member mh-tool-bar-item-spell mh-tool-bar-letter-buttons)
357 (tool-bar-add-item "spell" 'ispell-message 'mh-lettertoolbar-ispell
358 :help mh-tool-bar-item-spell))
359 (if (member mh-tool-bar-item-save mh-tool-bar-letter-buttons)
360 (tool-bar-add-item-from-menu 'save-buffer "save"))
361 (if (member mh-tool-bar-item-undo-op mh-tool-bar-letter-buttons)
362 (tool-bar-add-item-from-menu 'undo "undo"))
363 (if (member mh-tool-bar-item-kill mh-tool-bar-letter-buttons)
364 (tool-bar-add-item-from-menu 'kill-region "cut"))
365 (if (member mh-tool-bar-item-copy mh-tool-bar-letter-buttons)
366 (tool-bar-add-item-from-menu 'menu-bar-kill-ring-save "copy"))
367 (if (member mh-tool-bar-item-paste mh-tool-bar-letter-buttons)
368 (tool-bar-add-item-from-menu 'yank "paste"))
369 (if (member mh-tool-bar-item-kill-draft mh-tool-bar-letter-buttons)
370 (tool-bar-add-item "close" 'mh-fully-kill-draft
371 'mh-lettertoolbar-kill
372 :help mh-tool-bar-item-kill-draft))
373 (if (member mh-tool-bar-item-comp-prefs mh-tool-bar-letter-buttons)
374 (tool-bar-add-item "preferences" (lambda ()
375 (interactive)
376 (customize-group "mh-compose"))
377 'mh-lettertoolbar-customize
378 :help mh-tool-bar-item-comp-prefs))
379 (if (member mh-tool-bar-item-help mh-tool-bar-letter-buttons)
380 (tool-bar-add-item "help" (lambda ()
381 (interactive)
382 (Info-goto-node "(mh-e)Draft Editing"))
383 'mh-lettertoolbar-help
384 :help mh-tool-bar-item-help))
385 tool-bar-map))))
386
387 (defvar mh-folder-tool-bar-map nil)
388 (defvar mh-folder-seq-tool-bar-map nil
389 "Tool-bar to use when narrowed to a sequence in MH-Folder buffers.")
390 ;;;###mh-autoload
391 (defun mh-tool-bar-folder-set ()
392 "Construct toolbar for `mh-folder-mode'."
393 (when (fboundp 'tool-bar-add-item)
394 (setq
395 mh-folder-tool-bar-map
396 (let ((tool-bar-map (make-sparse-keymap)))
397 (if (member mh-tool-bar-item-inc mh-tool-bar-folder-buttons)
398 (tool-bar-add-item "mail" 'mh-inc-folder
399 'mh-foldertoolbar-inc-folder
400 :help mh-tool-bar-item-inc))
401 (if (member mh-tool-bar-item-save-mime mh-tool-bar-folder-buttons)
402 (tool-bar-add-item "attach" 'mh-mime-save-parts
403 'mh-foldertoolbar-mime-save-parts
404 :help mh-tool-bar-item-save-mime))
405 (if (member mh-tool-bar-item-prev-msg mh-tool-bar-folder-buttons)
406 (tool-bar-add-item "left_arrow" 'mh-previous-undeleted-msg
407 'mh-foldertoolbar-prev
408 :help mh-tool-bar-item-prev-msg))
409 (if (member mh-tool-bar-item-page-msg mh-tool-bar-folder-buttons)
410 (tool-bar-add-item "page-down" 'mh-page-msg 'mh-foldertoolbar-page
411 :help mh-tool-bar-item-page-msg))
412 (if (member mh-tool-bar-item-next-msg mh-tool-bar-folder-buttons)
413 (tool-bar-add-item "right_arrow" 'mh-next-undeleted-msg
414 'mh-foldertoolbar-next
415 :help mh-tool-bar-item-next-msg))
416 (if (member mh-tool-bar-item-delete mh-tool-bar-folder-buttons)
417 (tool-bar-add-item "close" 'mh-delete-msg 'mh-foldertoolbar-delete
418 :help mh-tool-bar-item-delete))
419 (if (member mh-tool-bar-item-refile mh-tool-bar-folder-buttons)
420 (tool-bar-add-item "refile" 'mh-refile-msg 'mh-foldertoolbar-refile
421 :help mh-tool-bar-item-refile))
422 (if (member mh-tool-bar-item-undo mh-tool-bar-folder-buttons)
423 (tool-bar-add-item "undo" 'mh-undo 'mh-foldertoolbar-undo
424 :help mh-tool-bar-item-undo))
425 (if (member mh-tool-bar-item-perform mh-tool-bar-folder-buttons)
426 (tool-bar-add-item "execute" 'mh-execute-commands
427 'mh-foldertoolbar-exec
428 :help mh-tool-bar-item-perform))
429 (if (member mh-tool-bar-item-toggle-show mh-tool-bar-folder-buttons)
430 (tool-bar-add-item "show" 'mh-toggle-showing
431 'mh-foldertoolbar-toggle-show
432 :help mh-tool-bar-item-toggle-show))
433 (if (member mh-tool-bar-item-reply-from mh-tool-bar-folder-buttons)
434 (tool-bar-add-item "reply-from"
435 (lambda (&optional arg)
436 (interactive "P")
437 (mh-reply (mh-get-msg-num nil) "from" arg))
438 'mh-foldertoolbar-reply-from
439 :help mh-tool-bar-item-reply-from))
440 (if (member mh-tool-bar-item-reply-to mh-tool-bar-folder-buttons)
441 (tool-bar-add-item "reply-to"
442 (lambda (&optional arg)
443 (interactive "P")
444 (mh-reply (mh-get-msg-num nil) "to" arg))
445 'mh-foldertoolbar-reply-to
446 :help mh-tool-bar-item-reply-to))
447 (if (member mh-tool-bar-item-reply-all mh-tool-bar-folder-buttons)
448 (tool-bar-add-item "reply-all"
449 (lambda (&optional arg)
450 (interactive "P")
451 (mh-reply (mh-get-msg-num nil) "all" arg))
452 'mh-foldertoolbar-reply-all
453 :help mh-tool-bar-item-reply-all))
454 (if (member mh-tool-bar-item-reply mh-tool-bar-folder-buttons)
455 (tool-bar-add-item "mail/reply2" 'mh-reply
456 'mh-foldertoolbar-reply
457 :help mh-tool-bar-item-reply))
458 (if (member mh-tool-bar-item-alias mh-tool-bar-folder-buttons)
459 (tool-bar-add-item "alias" 'mh-alias-grab-from-field
460 'mh-foldertoolbar-alias
461 :help mh-tool-bar-item-alias
462 :enable '(mh-alias-from-has-no-alias-p)))
463 (if (member mh-tool-bar-item-compose mh-tool-bar-folder-buttons)
464 (tool-bar-add-item "mail_compose" 'mh-send 'mh-foldertoolbar-compose
465 :help mh-tool-bar-item-compose))
466 (if (member mh-tool-bar-item-rescan mh-tool-bar-folder-buttons)
467 (tool-bar-add-item "rescan" 'mh-rescan-folder
468 'mh-foldertoolbar-rescan
469 :help mh-tool-bar-item-rescan))
470 (if (member mh-tool-bar-item-repack mh-tool-bar-folder-buttons)
471 (tool-bar-add-item "repack" 'mh-pack-folder 'mh-foldertoolbar-pack
472 :help mh-tool-bar-item-repack))
473 (if (member mh-tool-bar-item-search mh-tool-bar-folder-buttons)
474 (tool-bar-add-item "search"
475 (lambda (&optional arg)
476 (interactive "P")
477 (call-interactively
478 mh-tool-bar-search-function))
479 'mh-foldertoolbar-search
480 :help mh-tool-bar-item-search))
481 (if (member mh-tool-bar-item-visit mh-tool-bar-folder-buttons)
482 (tool-bar-add-item "fld_open" 'mh-visit-folder
483 'mh-foldertoolbar-visit
484 :help mh-tool-bar-item-visit))
485 (if (member mh-tool-bar-item-prefs mh-tool-bar-folder-buttons)
486 (tool-bar-add-item "preferences" (lambda ()
487 (interactive)
488 (customize-group "mh"))
489 'mh-foldertoolbar-customize
490 :help mh-tool-bar-item-prefs))
491 (if (member mh-tool-bar-item-help mh-tool-bar-folder-buttons)
492 (tool-bar-add-item "help" (lambda ()
493 (interactive)
494 (Info-goto-node "(mh-e)Top"))
495 'mh-foldertoolbar-help
496 :help mh-tool-bar-item-help))
497 tool-bar-map))
498
499 (setq mh-folder-seq-tool-bar-map
500 (let ((tool-bar-map (copy-keymap mh-folder-tool-bar-map)))
501 (if (member mh-tool-bar-item-widen mh-tool-bar-folder-buttons)
502 (tool-bar-add-item "widen" 'mh-widen 'mh-foldertoolbar-widen
503 :help mh-tool-bar-item-widen))
504 tool-bar-map))))
505
506 (defun mh-tool-bar-folder-buttons-set (symbol value)
507 "Update the `mh-tool-bar-folder-buttons' variable, and rebuild the tool-bar.
508 Sets the default for SYMBOL (e.g. `mh-tool-bar-folder-buttons') to VALUE (as
509 set in customization). This is called after 'customize is used to alter
510 `mh-tool-bar-folder-buttons'."
511 (set-default symbol value)
512 (mh-tool-bar-show-set)
513 (mh-tool-bar-folder-set))
514
515 (custom-declare-variable
516 'mh-tool-bar-folder-buttons
517 '(append
518 (list mh-tool-bar-item-inc
519 mh-tool-bar-item-save-mime
520 mh-tool-bar-item-prev-msg
521 mh-tool-bar-item-page-msg
522 mh-tool-bar-item-next-msg
523 mh-tool-bar-item-delete
524 mh-tool-bar-item-refile
525 mh-tool-bar-item-undo
526 mh-tool-bar-item-perform
527 ;;; mh-tool-bar-item-toggle-show
528 )
529 (if mh-tool-bar-reply-3-buttons-flag
530 (list mh-tool-bar-item-reply-from
531 mh-tool-bar-item-reply-to
532 mh-tool-bar-item-reply-all)
533 (list mh-tool-bar-item-reply))
534 (list mh-tool-bar-item-alias
535 mh-tool-bar-item-compose
536 mh-tool-bar-item-rescan
537 ;;; mh-tool-bar-item-repack
538 mh-tool-bar-item-search
539 mh-tool-bar-item-visit
540 mh-tool-bar-item-prefs
541 mh-tool-bar-item-help
542 mh-tool-bar-item-widen))
543 "Buttons to include in MH-E folder/show toolbar."
544 :group 'mh-toolbar
545 :set 'mh-tool-bar-folder-buttons-set
546 :type `(set (const ,mh-tool-bar-item-inc)
547 (const ,mh-tool-bar-item-save-mime)
548 (const ,mh-tool-bar-item-prev-msg)
549 (const ,mh-tool-bar-item-page-msg)
550 (const ,mh-tool-bar-item-next-msg)
551 (const ,mh-tool-bar-item-delete)
552 (const ,mh-tool-bar-item-refile)
553 (const ,mh-tool-bar-item-undo)
554 (const ,mh-tool-bar-item-perform)
555 (const ,mh-tool-bar-item-toggle-show)
556 (const ,mh-tool-bar-item-reply-from)
557 (const ,mh-tool-bar-item-reply-to)
558 (const ,mh-tool-bar-item-reply-all)
559 (const ,mh-tool-bar-item-reply)
560 (const ,mh-tool-bar-item-alias)
561 (const ,mh-tool-bar-item-compose)
562 (const ,mh-tool-bar-item-rescan)
563 (const ,mh-tool-bar-item-repack)
564 (const ,mh-tool-bar-item-search)
565 (const ,mh-tool-bar-item-visit)
566 (const ,mh-tool-bar-item-prefs)
567 (const ,mh-tool-bar-item-help)
568 (const ,mh-tool-bar-item-widen)))
569
570 (defun mh-tool-bar-letter-buttons-set (symbol value)
571 "Update the `mh-tool-bar-letter-buttons' variable, and rebuild the tool-bar.
572 Sets the default for SYMBOL (e.g. `mh-tool-bar-letter-buttons') to VALUE (as
573 set in customization). This is called after 'customize is used to alter
574 `mh-tool-bar-letter-buttons'."
575 (set-default symbol value)
576 (mh-tool-bar-letter-set))
577
578 (custom-declare-variable
579 'mh-tool-bar-letter-buttons
580 '(list mh-tool-bar-item-send
581 mh-tool-bar-item-attach
582 mh-tool-bar-item-spell
583 mh-tool-bar-item-save
584 mh-tool-bar-item-undo-op
585 mh-tool-bar-item-kill
586 mh-tool-bar-item-copy
587 mh-tool-bar-item-paste
588 mh-tool-bar-item-kill-draft
589 mh-tool-bar-item-comp-prefs
590 mh-tool-bar-item-help)
591 "Buttons to include in MH-E letter toolbar."
592 :group 'mh-toolbar
593 :set 'mh-tool-bar-letter-buttons-set
594 :type `(set (const ,mh-tool-bar-item-send)
595 (const ,mh-tool-bar-item-attach)
596 (const ,mh-tool-bar-item-spell)
597 (const ,mh-tool-bar-item-save)
598 (const ,mh-tool-bar-item-undo-op)
599 (const ,mh-tool-bar-item-kill)
600 (const ,mh-tool-bar-item-copy)
601 (const ,mh-tool-bar-item-paste)
602 (const ,mh-tool-bar-item-kill-draft)
603 (const ,mh-tool-bar-item-comp-prefs)
604 (const ,mh-tool-bar-item-help)))
605
606
607
608 ;;; Speedbar and folder configuration (:group 'mh-speed)
609
610 (defcustom mh-large-folder 200
611 "The number of messages that indicates a large folder.
612 If a folder is deemed to be large, that is the number of messages in it exceed
613 this value, then confirmation is needed when it is visited. Even when
614 `mh-show-threads-flag' is non-nil, the folder is not automatically threaded, if
615 it is large. If set to nil all folders are treated as if they are small."
616 :type '(choice (const :tag "No limit") integer)
617 :group 'mh-speed)
618
619 (defcustom mh-speed-flists-interval 60
620 "Time between calls to flists in seconds.
621 If 0, flists is not called repeatedly."
622 :type 'integer
623 :group 'mh-speed)
624
625 (defcustom mh-speed-run-flists-flag t
626 "Non-nil means flists is used.
627 If non-nil, flists is executed every `mh-speed-flists-interval' seconds to
628 update the display of the number of unseen and total messages in each folder.
629 If resources are limited, this can be set to nil and the speedbar display can
630 be updated manually with the \\[mh-speed-flists] command."
631 :type 'boolean
632 :group 'mh-speed)
633
634 ;;; Options for controlling scan listing (:group 'mh-folder)
635
636 (defcustom mh-adaptive-cmd-note-flag t
637 "*Non-nil means that the message number width is determined dynamically.
638 This is done once when a folder is first opened by running scan on the last
639 message of the folder. The message number for the last message is extracted
640 and its width calculated. This width is used when calling `mh-set-cmd-note'.
641
642 If you prefer fixed-width message numbers, set this variable to nil and call
643 `mh-set-cmd-note' with the width specified by the scan format in
644 `mh-scan-format-file'. For example, the default width is 4, so you would use
645 \"(mh-set-cmd-note 4)\" if `mh-scan-format-file' were nil."
646 :type 'boolean
647 :group 'mh-folder)
648
649 (defcustom mh-auto-folder-collect-flag t
650 "*Non-nil means to collect all folder names at startup in the background.
651 Otherwise, the internal list of folder names is built as folders are
652 referenced."
653 :type 'boolean
654 :group 'mh-folder)
655
656 (defcustom mh-inc-prog "inc"
657 "*Program to run to incorporate new mail into a folder.
658 Normally \"inc\". This file is searched for relative to
659 the `mh-progs' directory unless it is an absolute pathname."
660 :type 'string
661 :group 'mh-folder)
662
663 (defcustom mh-lpr-command-format "lpr -J '%s'"
664 "*Format for Unix command that prints a message.
665 The string should be a Unix command line, with the string '%s' where
666 the job's name (folder and message number) should appear. The formatted
667 message text is piped to this command when you type \\<mh-folder-mode-map>`\\[mh-print-msg]'."
668 :type 'string
669 :group 'mh-folder)
670
671 (defcustom mh-mime-save-parts-default-directory t
672 "Default directory to use for `mh-mime-save-parts'.
673 If nil, prompt and set for next time the command is used during same session.
674 If t, prompt always"
675 :type '(choice (const :tag "Prompt the first time" nil)
676 (const :tag "Prompt always" t)
677 directory)
678 :group 'mh-folder)
679
680 (defcustom mh-recenter-summary-flag nil
681 "*Non-nil means to recenter the summary window.
682 Recenter the summary window when the show window is toggled off if non-nil."
683 :type 'boolean
684 :group 'mh-folder)
685
686 (defcustom mh-print-background-flag nil
687 "*Non-nil means messages should be printed in the background.
688 WARNING: do not delete the messages until printing is finished;
689 otherwise, your output may be truncated."
690 :type 'boolean
691 :group 'mh-folder)
692
693 (defcustom mh-recursive-folders-flag nil
694 "*Non-nil means that commands which operate on folders do so recursively."
695 :type 'boolean
696 :group 'mh-folder)
697
698 (defcustom mh-scan-format-file t
699 "Specifies the format file to pass to the scan program.
700 If t, the format string will be taken from the either `mh-scan-format-mh'
701 or `mh-scan-format-nmh' depending on whether MH or nmh is in use.
702 If nil, the default scan output will be used.
703
704 If you customize the scan format, you may need to modify a few variables
705 containing regexps that MH-E uses to identify specific portions of the output.
706 Use `M-x apropos RET mh-scan.*regexp' to obtain a list of these variables. You
707 may also have to call `mh-set-cmd-note' with the width of your message
708 numbers. See also `mh-adaptive-cmd-note-flag'."
709 :type '(choice (const :tag "Use MH-E scan format" t)
710 (const :tag "Use default scan format" nil)
711 (file :tag "Specify a scan format file"))
712 :group 'mh-folder)
713
714 (defcustom mh-scan-prog "scan"
715 "*Program to run to generate one-line-per-message listing of a folder.
716 Normally \"scan\" or a file name linked to scan. This file is searched
717 for relative to the `mh-progs' directory unless it is an absolute pathname."
718 :type 'string
719 :group 'mh-folder)
720 (make-variable-buffer-local 'mh-scan-prog)
721
722 (defcustom mh-show-threads-flag nil
723 "Non-nil means new folders start in threaded mode.
724 Threading large number of messages can be time consuming. So if the flag is
725 non-nil then threading will be done only if the number of messages being
726 threaded is less than `mh-large-folder'."
727 :type 'boolean
728 :group 'mh-folder)
729
730 (defcustom mh-store-default-directory nil
731 "*Last directory used by \\[mh-store-msg]; default for next store.
732 A directory name string, or nil to use current directory."
733 :type '(choice (const :tag "Current" nil)
734 directory)
735 :group 'mh-folder)
736
737 (defcustom mh-update-sequences-after-mh-show-flag t
738 "*Non-nil means `mh-update-sequence' is called from `mh-show-mode'.
739 If set, `mh-update-sequence' is run every time a message is shown, telling
740 MH or nmh that this is your current message. It's useful, for example, to
741 display MIME content using \"M-! mhshow RET\""
742 :type 'boolean
743 :group 'mh-folder)
744
745 ;;; Message display (:group 'mh-show)
746
747 (defcustom mh-bury-show-buffer-flag t
748 "*Non-nil means that the displayed show buffer for a folder is buried."
749 :type 'boolean
750 :group 'mh-show)
751
752 (defcustom mh-clean-message-header-flag t
753 "*Non-nil means clean headers of messages that are displayed or inserted.
754 The variables `mh-invisible-headers' and `mh-visible-headers' control
755 what is removed."
756 :type 'boolean
757 :group 'mh-show)
758
759 (defcustom mh-decode-mime-flag (not (not (locate-library "mm-decode")))
760 "*Non-nil means that Gnus is used to show MIME attachments with Gnus."
761 :type 'boolean
762 :group 'mh-show)
763
764 (defcustom mh-decode-quoted-printable-flag
765 (not (null (and (fboundp 'executable-find)(executable-find "mimedecode"))))
766 "Non-nil means decode quoted-printable MIME part with `mimedecode'.
767
768 Quoted-printable message parts are translated to 8-bit characters by the
769 `mimedecode' command. However, unless there is only one quoted-printable body
770 part, Gnus will have already decoded the quoted-printable parts.
771
772 This variable is initialized t if `mimedecode' is available.
773
774 The source code for `mimedecode' can be obtained from
775 http://www.freesoft.org/CIE/FAQ/mimedeco.c."
776 :type 'boolean
777 :group 'mh-show)
778
779 (defcustom mh-display-buttons-for-inline-parts-flag nil
780 "*Non-nil means display buttons for all inline MIME parts.
781 If non-nil, buttons are displayed for all MIME parts. Inline parts start off
782 in displayed state but they can be hidden by clicking the button. If nil no
783 buttons are shown for inline parts."
784 :type 'boolean
785 :group 'mh-show)
786
787 (defcustom mh-do-not-confirm-flag nil
788 "*Non-nil means do not prompt for confirmation.
789 Commands such as `mh-pack-folder' prompt to confirm whether to process
790 outstanding moves and deletes or not before continuing. A non-nil setting will
791 perform the action--which is usually desired but cannot be retracted--without
792 question."
793 :type 'boolean
794 :group 'mh-show)
795
796 (defcustom mh-graphical-smileys-flag t
797 "*Non-nil means graphical smileys are displayed.
798 Non-nil means that small graphics will be used in the show buffer instead of
799 patterns like :-), ;-) etc. The setting only has effect if
800 `mh-decode-mime-flag' is non-nil."
801 :type 'boolean
802 :group 'mh-show)
803
804 (defcustom mh-graphical-emphasis-flag t
805 "*Non-nil means graphical emphasis is displayed.
806 Non-nil means that _underline_ will be underlined, *bold* will appear in bold,
807 /italic/ will appear in italic etc. See `gnus-emphasis-alist' for the whole
808 list. The setting only has effect if `mh-decode-mime-flag' is non-nil."
809 :type 'boolean
810 :group 'mh-show)
811
812 (defcustom mh-highlight-citation-p 'gnus
813 "How to highlight citations in show buffers.
814 The gnus method uses a different color for each indentation."
815 :type '(choice (const :tag "Use gnus" gnus)
816 (const :tag "Use font-lock" font-lock)
817 (const :tag "Don't fontify" nil))
818 :group 'mh-show)
819
820 (defcustom mh-max-inline-image-height nil
821 "*Maximum inline image height if Content-Disposition is not present.
822 If nil, image will be displayed if its height is smaller than the height of
823 the window."
824 :type '(choice (const nil) integer)
825 :group 'mh-show)
826
827 (defcustom mh-max-inline-image-width nil
828 "*Maximum inline image width if Content-Disposition is not present.
829 If nil, image will be displayed if its width is smaller than the width of the
830 window."
831 :type '(choice (const nil) integer)
832 :group 'mh-show)
833
834 (defcustom mh-show-maximum-size 0
835 "*Maximum size of message (in bytes) to display automatically.
836 Provides an opportunity to skip over large messages which may be slow to load.
837 Use a value of 0 to display all messages automatically regardless of size."
838 :type 'integer
839 :group 'mh-show)
840
841 ;; Use goto-addr if it was already loaded (which probably sets this
842 ;; variable to t), or if this variable is otherwise set to t.
843 (defcustom mh-show-use-goto-addr-flag (and (boundp 'goto-address-highlight-p)
844 goto-address-highlight-p)
845 "*Non-nil means highlight URLs and email addresses.
846 The `goto-addr' module is used."
847 :type 'boolean
848 :group 'mh-show)
849
850 (defcustom mh-show-use-xface-flag
851 (and window-system
852 (not (null (cond
853 (mh-xemacs-flag
854 (locate-library "x-face"))
855 ((>= emacs-major-version 21)
856 (locate-library "x-face-e21"))
857 (t ;Emacs20
858 nil))))
859 (not (null (and (fboundp 'executable-find)
860 (executable-find
861 "uncompface")))))
862 "*Non-nil means display faces in `mh-show-mode' with external x-face package.
863 It is available from ftp://ftp.jpl.org/pub/elisp/. Download it and put its
864 files in the Emacs `load-path' and MH-E will invoke it automatically for you if
865 this variable is non-nil.
866
867 The `uncompface' binary is also required to be in the execute PATH. It can
868 be obtained from: ftp://ftp.cs.indiana.edu/pub/faces/compface/compface.tar.Z"
869 :type 'boolean
870 :group 'mh-show)
871
872 (defcustom mh-summary-height (or (and (fboundp 'frame-height)
873 (> (frame-height) 24)
874 (min 10 (/ (frame-height) 6)))
875 4)
876 "*Number of lines in MH-Folder window (including the mode line)."
877 :type 'integer
878 :group 'mh-show)
879
880 (defcustom mh-visible-headers nil
881 "*Contains a regexp specifying the headers to keep when cleaning.
882 Only used if `mh-clean-message-header-flag' is non-nil. Setting it overrides
883 the variable `mh-invisible-headers'."
884 :type '(choice (const nil) regexp)
885 :group 'mh-show)
886
887 (defcustom mhl-formfile nil
888 "*Name of format file to be used by mhl to show and print messages.
889 A value of t means use the default format file.
890 nil means don't use mhl to format messages when showing; mhl is still used,
891 with the default format file, to format messages when printing them.
892 The format used should specify a non-zero value for overflowoffset so
893 the message continues to conform to RFC 822 and MH-E can parse the headers."
894 :type '(choice (const nil) (const t) string)
895 :group 'mh-show)
896 (put 'mhl-formfile 'info-file "mh-e")
897
898 (defvar mh-invisible-headers nil
899 "*Regexp matching lines in a message header that are not to be shown.
900 If `mh-visible-headers' is non-nil, it is used instead to specify what
901 to keep.")
902
903 (defun mh-invisible-headers ()
904 "Make or remake the variable `mh-invisible-headers'.
905 Done using `mh-invisible-header-fields' as input."
906 (setq mh-invisible-headers
907 (concat
908 "^"
909 (let ((max-specpdl-size 1000)) ;workaround for insufficient default
910 (regexp-opt
911 (append
912 (if (not mh-show-use-xface-flag)
913 '("X-Face: "))
914 mh-invisible-header-fields))))))
915
916 (defun mh-invisible-header-fields-set (symbol value)
917 "Update `mh-invisible-header-fields'.
918 The function is called with SYMBOL bound to `mh-invisible-header-fields' and
919 VALUE is the the list of headers that are invisible. As a side effect, the
920 variable `mh-invisible-fields' is set."
921 (set-default symbol value)
922 (mh-invisible-headers))
923
924 ;; Keep fields alphabetized. Mention source, if known.
925 (defcustom mh-invisible-header-fields
926 '("Autoforwarded: "
927 "Bestservhost: "
928 "Content-" ; RFC 2045
929 "Delivered-To: " ; Egroups/yahoogroups mailing list manager
930 "Delivery-Date: " ; MH
931 "Delivery: "
932 "Encoding: "
933 "Errors-To: "
934 "Forwarded: " ; MH
935 "From " ; sendmail
936 "Importance: " ; MS Outlook
937 "In-Reply-To: " ; MH
938 "Lines: "
939 "List-" ; Mailman mailing list manager
940 "List-" ; Unknown mailing list managers
941 "List-Subscribe: " ; Unknown mailing list managers
942 "List-Unsubscribe: " ; Unknown mailing list managers
943 "Mail-from: " ; MH
944 "Mailing-List: " ; Egroups/yahoogroups mailing list manager
945 "Message-Id: " ; RFC 822
946 "Mime-Version" ; RFC 2045
947 "NNTP-" ; News
948 "Old-Return-Path: "
949 "Original-Encoded-Information-Types: " ; X400
950 "P1-Content-Type: " ; X400
951 "P1-Message-Id: " ; X400
952 "P1-Recipient: " ; X400
953 "Path: "
954 "Precedence: "
955 "Prev-Resent" ; MH
956 "Priority: "
957 "Received: " ; RFC 822
958 "References: "
959 "Remailed-" ; MH
960 "Replied: " ; MH
961 "Resent" ; MH
962 "Return-Path: " ; RFC 822
963 "Sensitivity: " ; MS Outlook
964 "Status: " ; sendmail
965 "Ua-Content-Id: " ; X400
966 "User-Agent: "
967 "Via: " ; MH
968 "X-Abuse-Info: "
969 "X-Accept-Language: "
970 "X-Accept-Language: " ; Netscape/Mozilla
971 "X-Ack: "
972 "X-Apparently-From: " ; MS Outlook
973 "X-Apparently-To: " ; Egroups/yahoogroups mailing list manager
974 "X-Authentication-Warning: " ; sendmail
975 "X-Beenthere: " ; Mailman mailing list manager
976 "X-Complaints-To: "
977 "X-Cron-Env: "
978 "X-Delivered"
979 "X-Envelope-Sender: "
980 "X-Envelope-To: "
981 "X-Folder: " ; Spam
982 "X-From-Line"
983 "X-Gnus-Mail-Source: " ; gnus
984 "X-Habeas-SWE-1: " ; Spam
985 "X-Habeas-SWE-2: " ; Spam
986 "X-Habeas-SWE-3: " ; Spam
987 "X-Habeas-SWE-4: " ; Spam
988 "X-Habeas-SWE-5: " ; Spam
989 "X-Habeas-SWE-6: " ; Spam
990 "X-Habeas-SWE-7: " ; Spam
991 "X-Habeas-SWE-8: " ; Spam
992 "X-Habeas-SWE-9: " ; Spam
993 "X-Info: " ; NTMail
994 "X-Juno-" ; Juno
995 "X-List-Host: " ; Unknown mailing list managers
996 "X-List-Subscribe: " ; Unknown mailing list managers
997 "X-List-Unsubscribe: " ; Unknown mailing list managers
998 "X-Listserver: " ; Unknown mailing list managers
999 "X-Loop: " ; Unknown mailing list managers
1000 "X-MIME-Autoconverted: " ; sendmail
1001 "X-MIMETrack: "
1002 "X-MS-TNEF-Correlator: " ; MS Outlook
1003 "X-Mailing-List: " ; Unknown mailing list managers
1004 "X-Mailman-Version: " ; Mailman mailing list manager
1005 "X-Message-Id"
1006 "X-MimeOLE: " ; MS Outlook
1007 "X-Mozilla-Status: " ; Netscape/Mozilla
1008 "X-Msmail-" ; MS Outlook
1009 "X-News: " ; News
1010 "X-No-Archive: "
1011 "X-Orcl-Content-Type: "
1012 "X-Original-Complaints-To: "
1013 "X-Original-Date: " ; SourceForge mailing list manager
1014 "X-Original-Trace: "
1015 "X-OriginalArrivalTime: " ; Hotmail
1016 "X-Originating-IP: " ; Hotmail
1017 "X-Priority: " ; MS Outlook
1018 "X-Qotd-" ; User added
1019 "X-Received-Date: "
1020 "X-Received: "
1021 "X-Request-"
1022 "X-SBClass: " ; Spam
1023 "X-SBNote: " ; Spam
1024 "X-SBPass: " ; Spam
1025 "X-SBRule: " ; Spam
1026 "X-Scanned-By"
1027 "X-Sender: "
1028 "X-Server-Date: "
1029 "X-Server-Uuid: "
1030 "X-Sieve: " ; Sieve filtering
1031 "X-Spam-Level: " ; Spam
1032 "X-Spam-Score: " ; Spam
1033 "X-Spam-Status: " ; Spam
1034 "X-SpamBouncer: " ; Spam
1035 "X-Trace: "
1036 "X-UIDL: "
1037 "X-UserInfo1: "
1038 "X-VSMLoop: " ; NTMail
1039 "X-Vms-To: "
1040 "X-Wss-Id: " ; Worldtalk gateways
1041 "X-eGroups-" ; Egroups/yahoogroups mailing list manager
1042 "X-pgp: "
1043 "X-submission-address: "
1044 "X400-" ; X400
1045 "Xref: ")
1046 "*List of header fields that are not to be shown.
1047 Regexps are not allowed. Unique fields should have a \": \" suffix;
1048 otherwise, the element can be used to render an entire class of fields
1049 that start with the same prefix invisible.
1050 This variable is ignored if `mh-visible-headers' is set."
1051 :type '(repeat (string :tag "Header field"))
1052 :set 'mh-invisible-header-fields-set
1053 :group 'mh-show)
1054
1055 ;;; Composing messages (:group 'mh-letter)
1056
1057 (defcustom mh-compose-insertion (if (locate-library "mml") 'gnus 'mhn)
1058 "Use either 'gnus or 'mhn to insert MIME message directives in messages."
1059 :type '(choice (const :tag "Use gnus" gnus)
1060 (const :tag "Use mhn" mhn))
1061 :group 'mh-letter)
1062
1063 (defcustom mh-compose-letter-function nil
1064 "Invoked when setting up a letter draft.
1065 It is passed three arguments: TO recipients, SUBJECT, and CC recipients."
1066 :type '(choice (const nil) function)
1067 :group 'mh-letter)
1068
1069 (defcustom mh-delete-yanked-msg-window-flag nil
1070 "*Non-nil means delete any window displaying the message.
1071 Controls window display when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
1072 If non-nil, yanking the current message into a draft letter deletes any
1073 windows displaying the message."
1074 :type 'boolean
1075 :group 'mh-letter)
1076
1077 (defcustom mh-extract-from-attribution-verb "wrote:"
1078 "*Verb to use for attribution when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg]."
1079 :type '(choice (const "wrote:")
1080 (const "a écrit :")
1081 (string :tag "Custom string"))
1082 :group 'mh-letter)
1083
1084 (defcustom mh-forward-subject-format "%s: %s"
1085 "*Format to generate the Subject: line contents for a forwarded message.
1086 The two string arguments to the format are the sender of the original
1087 message and the original subject line."
1088 :type 'string
1089 :group 'mh-letter)
1090
1091 (defcustom mh-ins-buf-prefix "> "
1092 "*String to put before each non-blank line of a yanked or inserted message.
1093 \\<mh-letter-mode-map>Used when the message is inserted into an outgoing letter
1094 by \\[mh-insert-letter] or \\[mh-yank-cur-msg]."
1095 :type 'string
1096 :group 'mh-letter)
1097
1098 (defcustom mh-insert-mail-followup-to-flag t
1099 "Non-nil means maybe append a Mail-Followup-To field to the header.
1100 The insertion is done if the To: or Cc: fields matches an entry in
1101 `mh-insert-mail-followup-to-list'."
1102 :type 'boolean
1103 :group 'mh-letter)
1104
1105 (defcustom mh-insert-mail-followup-to-list nil
1106 "Alist of addresses for which a Mail-Followup-To field is inserted.
1107 Each element has the form (REGEXP ADDRESS).
1108 When the REGEXP appears in the To or cc fields of a message, the corresponding
1109 ADDRESS is inserted in a Mail-Followup-To field.
1110
1111 Here's a customization example:
1112
1113 regexp: mh-e-users@lists.s\\\\(ourceforge\\\\|f\\\\).net
1114 address: mh-e-users@lists.sourceforge.net
1115
1116 This corresponds to:
1117
1118 (setq mh-insert-mail-followup-to-list
1119 '((\"mh-e-users@lists.s\\\\(ourceforge\\\\|f\\\\).net\"
1120 \"mh-e-users@lists.sourceforge.net\")))
1121
1122 While it might be tempting to add a descriptive name to the mailing list
1123 address, consider that this field will appear in other people's outgoing
1124 mail in their To: field. It might be best to keep it simple."
1125 :type '(repeat (list (string :tag "regexp") (string :tag "address")))
1126 :group 'mh-letter)
1127
1128 (defcustom mh-insert-x-mailer-flag t
1129 "*Non-nil means append an X-Mailer field to the header."
1130 :type 'boolean
1131 :group 'mh-letter)
1132
1133 (defcustom mh-letter-fill-column 72
1134 "*Fill column to use in `mh-letter-mode'.
1135 This is usually less than in other text modes because email messages get
1136 quoted by some prefix (sometimes many times) when they are replied to,
1137 and it's best to avoid quoted lines that span more than 80 columns."
1138 :type 'integer
1139 :group 'mh-letter)
1140
1141 (defcustom mh-reply-default-reply-to nil
1142 "*Sets the person or persons to whom a reply will be sent.
1143 If nil, prompt for recipient. If non-nil, then \\<mh-folder-mode-map>`\\[mh-reply]' will use this
1144 value and it should be one of \"from\", \"to\", \"cc\", or \"all\".
1145 The values \"cc\" and \"all\" do the same thing."
1146 :type '(choice (const :tag "Prompt" nil)
1147 (const "from") (const "to")
1148 (const "cc") (const "all"))
1149 :group 'mh-letter)
1150
1151 (defcustom mh-reply-show-message-flag t
1152 "*Non-nil means the show buffer is displayed using \\<mh-letter-mode-map>\\[mh-reply].
1153
1154 The setting of this variable determines whether the MH `show-buffer' is
1155 displayed with the current message when using `mh-reply' without a prefix
1156 argument. Set it to nil if you already include the message automatically
1157 in your draft using
1158 repl: -filter repl.filter
1159 in your ~/.mh_profile file."
1160 :type 'boolean
1161 :group 'mh-letter)
1162
1163 (defcustom mh-signature-file-name "~/.signature"
1164 "*Name of file containing the user's signature.
1165 Inserted into message by \\<mh-letter-mode-map>\\[mh-insert-signature]."
1166 :type 'file
1167 :group 'mh-letter)
1168
1169 (defcustom mh-x-face-file "~/.face"
1170 "*File name containing the encoded X-Face string to insert in outgoing mail.
1171 If nil, or the file does not exist, nothing is added to message headers."
1172 :type 'file
1173 :group 'mh-letter)
1174
1175 (defvar mh-x-mailer-string nil
1176 "*String containing the contents of the X-Mailer header field.
1177 If nil, this variable is initialized to show the version of MH-E, Emacs, and
1178 MH the first time a message is composed.")
1179
1180 (defcustom mh-yank-from-start-of-msg 'attribution
1181 "*Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
1182 If t, include the entire message, with full headers. This is historically
1183 here for use with supercite, but is now deprecated in favor of the setting
1184 `supercite' below.
1185
1186 If the symbol `body', then yank the message minus the header.
1187
1188 If the symbol `supercite', include the entire message, with full headers.
1189 This also causes the invocation of `sc-cite-original' without the setting
1190 of `mail-citation-hook', now deprecated practice.
1191
1192 If the symbol `autosupercite', do as for `supercite' automatically when
1193 show buffer matches the message being replied-to. When this option is used,
1194 the -noformat switch is passed to the repl program to override a -filter or
1195 -format switch.
1196
1197 If the symbol `attribution', then yank the message minus the header and add
1198 a simple attribution line at the top.
1199
1200 If the symbol `autoattrib', do as for `attribution' automatically when show
1201 buffer matches the message being replied-to. You can make sure this is
1202 always the case by setting `mh-reply-show-message-flag' to t (which is the
1203 default) and optionally `mh-delete-yanked-msg-window-flag' to t as well such
1204 that the show window is never displayed. When the `autoattrib' option is
1205 used, the -noformat switch is passed to the repl program to override a
1206 -filter or -format switch.
1207
1208 If nil, yank only the portion of the message following the point.
1209
1210 If the show buffer has a region, this variable is ignored unless its value is
1211 one of `attribution' or `autoattrib' in which case the attribution is added
1212 to the yanked region."
1213 :type '(choice (const :tag "Below point" nil)
1214 (const :tag "Without header" body)
1215 (const :tag "Invoke supercite" supercite)
1216 (const :tag "Invoke supercite, automatically" autosupercite)
1217 (const :tag "Without header, with attribution" attribution)
1218 (const :tag "Without header, with attribution, automatically"
1219 autoattrib)
1220 (const :tag "Entire message with headers" t))
1221 :group 'mh-letter)
1222
1223 (defcustom mh-letter-complete-function 'ispell-complete-word
1224 "*Function to call when completing outside of fields specific to aliases."
1225 :type '(choice function (const nil))
1226 :group 'mh-letter)
1227
1228 ;;; Alias handling (:group 'mh-alias)
1229
1230 (defcustom mh-alias-system-aliases
1231 '("/etc/nmh/MailAliases" "/usr/lib/mh/MailAliases" "/etc/passwd")
1232 "*A list of system files from which to cull aliases.
1233 If these files are modified, they are automatically reread. This list need
1234 include only system aliases and the passwd file, since personal alias files
1235 listed in your \"AliasFile\" MH profile component are automatically included.
1236 You can update the alias list manually using \\[mh-alias-reload]."
1237 :group 'mh-alias
1238 :type '(choice (file) (repeat file)))
1239
1240 (defcustom mh-alias-expand-aliases-flag nil
1241 "*Non-nil means to expand aliases entered in the minibuffer.
1242 In other words, aliases entered in the minibuffer will be expanded to the full
1243 address in the message draft. By default, this expansion is not performed."
1244 :group 'mh-alias
1245 :type 'boolean)
1246
1247 (defcustom mh-alias-completion-ignore-case-flag t
1248 "*Non-nil means don't consider case significant in MH alias completion.
1249 This is the default in plain MH, so it is the default here as well. It
1250 can be useful to set this to t if, for example, you use lowercase
1251 aliases for people and uppercase for mailing lists."
1252 :group 'mh-alias
1253 :type 'boolean)
1254
1255 (defcustom mh-alias-flash-on-comma t
1256 "*Specify whether to flash or warn on translation.
1257 When a [comma] is pressed while entering aliases or addresses, setting this
1258 variable to the following values has the listed effects:
1259 t Flash alias translation but don't warn if there is no translation.
1260 1 Flash alias translation and warn if there is no translation.
1261 nil Do not flash alias translation nor warn if there is no translation."
1262 :group 'mh-alias
1263 :type '(choice (const :tag "Flash but don't warn if no translation" t)
1264 (const :tag "Flash and warn if no translation" 1)
1265 (const :tag "Don't flash nor warn if no translation" nil)))
1266
1267 (defcustom mh-alias-local-users t
1268 "*If t, local users are completed in MH-E To: and Cc: prompts.
1269
1270 Users with a userid greater than some magic number (usually 200) are available
1271 for completion.
1272
1273 If you set this variable to a string, it will be executed to generate a
1274 password file. A value of \"ypcat passwd\" is helpful if NIS is in use."
1275 :group 'mh-alias
1276 :type '(choice (boolean) (string)))
1277
1278 (defcustom mh-alias-insert-file nil
1279 "*Filename to use to store new MH-E aliases.
1280 This variable can also be a list of filenames, in which case MH-E will prompt
1281 for one of them. If nil, the default, then MH-E will use the first file found
1282 in the \"AliasFile\" component of the MH profile."
1283 :group 'mh-alias
1284 :type '(choice (const :tag "Use AliasFile MH profile component" nil)
1285 (file :tag "Alias file")
1286 (repeat :tag "List of alias files" file)))
1287
1288 (defcustom mh-alias-insertion-location 'sorted
1289 "Specifies where new aliases are entered in alias files.
1290 Options are sorted alphabetically, at the top of the file or at the bottom."
1291 :type '(choice (const :tag "Sorted alphabetically" sorted)
1292 (const :tag "At the top of file" top)
1293 (const :tag "At the bottom of file" bottom))
1294 :group 'mh-alias)
1295
1296 ;;; Indexed searching (:group 'mh-index)
1297
1298 (defcustom mh-index-program nil
1299 "Indexing program that MH-E shall use.
1300 The possible choices are swish++, swish-e, namazu, glimpse and grep. By
1301 default this variable is nil which means that the programs are tried in order
1302 and the first one found is used."
1303 :type '(choice (const :tag "auto-detect" nil)
1304 (const :tag "swish++" swish++)
1305 (const :tag "swish-e" swish)
1306 (const :tag "namazu" namazu)
1307 (const :tag "glimpse" glimpse)
1308 (const :tag "grep" grep))
1309 :group 'mh-index)
1310
1311 ;;; Multiple personalities (:group 'mh-identity)
1312
1313 (defcustom mh-identity-list nil
1314 "*List holding MH-E identity.
1315 Omit the colon and trailing space from the field names.
1316 The keyword name \"none\" is reversed for internal use.
1317 Use the keyname name \"signature\" to specify either a signature file or a
1318 function to call to insert a signature at point.
1319
1320 Providing an empty Value (\"\") will cause the field to be deleted.
1321
1322 Example entries using the customize interface:
1323 Keyword name: work
1324 From
1325 Value: John Doe <john@work.com>
1326 Organization
1327 Value: Acme Inc.
1328 Keyword name: home
1329 From
1330 Value: John Doe <johndoe@home.net>
1331 Organization
1332 Value:
1333
1334 This would produce the equivalent of:
1335 (setq mh-identity-list
1336 '((\"work\"
1337 ((\"From\" . \"John Doe <john@work.com>\")
1338 (\"Organization\" . \"Acme Inc.\")))
1339 (\"home\"
1340 ((\"From\" . \"John Doe <johndoe@home.net>\")
1341 (\"Organization\" . \"\")))))"
1342 :type '(repeat (list :tag ""
1343 (string :tag "Keyword name")
1344 (repeat :tag "At least one pair from below"
1345 (choice (cons :tag "From field"
1346 (const "From")
1347 (string :tag "Value"))
1348 (cons :tag "Organization field"
1349 (const "Organization")
1350 (string :tag "Value"))
1351 (cons :tag "Signature"
1352 (const "signature")
1353 (choice (file) (function)))
1354 (cons :tag "Other field & value pair"
1355 (string :tag "Field")
1356 (string :tag "Value"))))))
1357 :set 'mh-identity-list-set
1358 :group 'mh-identity)
1359
1360 (defcustom mh-identity-default nil
1361 "Default identity to use when `mh-letter-mode' is called."
1362 ;; Dynamically render :type corresponding to `mh-identity-list' entries,
1363 ;; e.g.:
1364 ;; :type '(radio (const :tag "none" nil)
1365 ;; (const "home")
1366 ;; (const "work"))
1367 :type (append
1368 '(radio)
1369 (cons '(const :tag "none" nil)
1370 (mapcar (function (lambda (arg) `(const ,arg)))
1371 (mapcar 'car mh-identity-list))))
1372 :group 'mh-identity)
1373
1374 ;;; Hooks (:group 'mh-hooks + group where hook defined)
1375
1376 ;;; These are alphabetized. All hooks should be placed in the 'mh-hook group;
1377 ;;; in addition, add the group in which the hook is defined in the manual (or,
1378 ;;; if it is new, where it would be defined).
1379
1380 (defcustom mh-before-quit-hook nil
1381 "Invoked by \\<mh-folder-mode-map>`\\[mh-quit]' before quitting MH-E.
1382 See also `mh-quit-hook'."
1383 :type 'hook
1384 :group 'mh-hooks
1385 :group 'mh-folder)
1386
1387 (defcustom mh-before-send-letter-hook nil
1388 "Invoked at the beginning of the \\<mh-letter-mode-map>\\[mh-send-letter] command."
1389 :type 'hook
1390 :group 'mh-hooks
1391 :group 'mh-letter)
1392
1393 (defcustom mh-delete-msg-hook nil
1394 "Invoked after marking each message for deletion."
1395 :type 'hook
1396 :group 'mh-hooks
1397 :group 'mh-folder)
1398
1399 (defcustom mh-edit-mhn-hook nil
1400 "Invoked on the formatted letter by \\<mh-letter-mode-map>\\[mh-edit-mhn]."
1401 :type 'hook
1402 :group 'mh-hooks
1403 :group 'mh-letter)
1404
1405 (defcustom mh-find-path-hook nil
1406 "Invoked by `mh-find-path' after reading the user's MH profile."
1407 :type 'hook
1408 :group 'mh-hooks
1409 :group 'mh-folder)
1410
1411 (defcustom mh-folder-list-change-hook nil
1412 "Invoked whenever the cached folder list `mh-folder-list' is changed."
1413 :type 'hook
1414 :group 'mh-hooks
1415 :group 'mh-folder)
1416
1417 (defcustom mh-folder-mode-hook nil
1418 "Invoked in `mh-folder-mode' on a new folder."
1419 :type 'hook
1420 :group 'mh-hooks
1421 :group 'mh-folder)
1422
1423 (defcustom mh-folder-updated-hook nil
1424 "Invoked when the folder actions (such as moves and deletes) are performed.
1425 Variables that are useful in this hook include `mh-delete-list' and
1426 `mh-refile-list' which can be used to see which changes are being made to
1427 current folder, `mh-current-folder'."
1428 :type 'hook
1429 :group 'mh-hooks)
1430
1431 (defcustom mh-inc-folder-hook nil
1432 "Invoked by \\<mh-folder-mode-map>`\\[mh-inc-folder]' after incorporating mail into a folder."
1433 :type 'hook
1434 :group 'mh-hooks
1435 :group 'mh-folder)
1436
1437 (defcustom mh-index-show-hook nil
1438 "Invoked after the message has been displayed."
1439 :type 'hook
1440 :group 'mh-hooks
1441 :group 'mh-index)
1442
1443 (defcustom mh-letter-insert-signature-hook nil
1444 "Invoked at the beginning of the \\<mh-letter-mode-map>\\[mh-insert-signature] command.
1445 Can be used to determine which signature file to use based on message content.
1446 On return, if `mh-signature-file-name' is non-nil that file will be inserted at
1447 the current point in the buffer."
1448 :type 'hook
1449 :group 'mh-hooks
1450 :group 'mh-letter)
1451
1452 (defcustom mh-letter-mode-hook nil
1453 "Invoked in `mh-letter-mode' on a new letter."
1454 :type 'hook
1455 :group 'mh-hooks
1456 :group 'mh-letter)
1457
1458 (defcustom mh-pick-mode-hook nil
1459 "Invoked upon entry to `mh-pick-mode'."
1460 :type 'hook
1461 :group 'mh-hooks
1462 :group 'mh-folder)
1463
1464 (defcustom mh-quit-hook nil
1465 "Invoked after \\<mh-folder-mode-map>`\\[mh-quit]' quits MH-E.
1466 See also `mh-before-quit-hook'."
1467 :type 'hook
1468 :group 'mh-hooks
1469 :group 'mh-folder)
1470
1471 (defcustom mh-refile-msg-hook nil
1472 "Invoked after marking each message for refiling."
1473 :type 'hook
1474 :group 'mh-hooks
1475 :group 'mh-folder)
1476
1477 (defcustom mh-show-hook nil
1478 "Invoked after \\<mh-folder-mode-map>`\\[mh-show]' shows a message."
1479 :type 'hook
1480 :group 'mh-hooks
1481 :group 'mh-show)
1482
1483 (defcustom mh-show-mode-hook nil
1484 "Invoked upon entry to `mh-show-mode'."
1485 :type 'hook
1486 :group 'mh-hooks
1487 :group 'mh-show)
1488
1489 (defcustom mh-unseen-updated-hook nil
1490 "Invoked after the unseen sequence has been updated.
1491 The variable `mh-seen-list' can be used to obtain the list of messages which
1492 will be removed from the unseen sequence."
1493 :type 'hook
1494 :group 'mh-hooks
1495 :group 'mh-folder)
1496
1497
1498
1499 ;;; Faces
1500
1501 ;;; Faces used in speedbar (:group mh-speed-faces)
1502
1503 (defface mh-speedbar-folder-face
1504 '((((class color) (background light))
1505 (:foreground "blue4"))
1506 (((class color) (background dark))
1507 (:foreground "light blue")))
1508 "Face used for folders in the speedbar buffer."
1509 :group 'mh-speed-faces)
1510
1511 (defface mh-speedbar-selected-folder-face
1512 '((((class color) (background light))
1513 (:foreground "red" :underline t))
1514 (((class color) (background dark))
1515 (:foreground "red" :underline t))
1516 (t (:underline t)))
1517 "Face used for the current folder."
1518 :group 'mh-speed-faces)
1519
1520 (defface mh-speedbar-folder-with-unseen-messages-face
1521 '((t (:inherit mh-speedbar-folder-face :bold t)))
1522 "Face used for folders in the speedbar buffer which have unread messages."
1523 :group 'mh-speed-faces)
1524
1525 (defface mh-speedbar-selected-folder-with-unseen-messages-face
1526 '((t (:inherit mh-speedbar-selected-folder-face :bold t)))
1527 "Face used for the current folder when it has unread messages."
1528 :group 'mh-speed-faces)
1529
1530 ;;; Faces used in scan listing (:group mh-folder-faces)
1531
1532 (defvar mh-folder-body-face 'mh-folder-body-face
1533 "Face for highlighting body text in MH-Folder buffers.")
1534 (defface mh-folder-body-face
1535 '((((type tty) (class color)) (:foreground "green"))
1536 (((class grayscale) (background light)) (:foreground "DimGray" :italic t))
1537 (((class grayscale) (background dark)) (:foreground "LightGray" :italic t))
1538 (((class color) (background light)) (:foreground "RosyBrown"))
1539 (((class color) (background dark)) (:foreground "LightSalmon"))
1540 (t (:italic t)))
1541 "Face for highlighting body text in MH-Folder buffers."
1542 :group 'mh-folder-faces)
1543
1544 (defvar mh-folder-cur-msg-face 'mh-folder-cur-msg-face
1545 "Face for the current message line in MH-Folder buffers.")
1546 (defface mh-folder-cur-msg-face
1547 '((((type tty pc) (class color))
1548 (:background "LightGreen"))
1549 (((class color) (background light))
1550 (:background "LightGreen") ;Use this for solid background colour
1551 ;; (:underline t) ;Use this for underlining
1552 )
1553 (((class color) (background dark))
1554 (:background "DarkOliveGreen4"))
1555 (t (:underline t)))
1556 "Face for the current message line in MH-Folder buffers."
1557 :group 'mh-folder-faces)
1558
1559 (defvar mh-folder-cur-msg-number-face 'mh-folder-cur-msg-number-face
1560 "Face for highlighting the current message in MH-Folder buffers.")
1561 (defface mh-folder-cur-msg-number-face
1562 '((((type tty) (class color)) (:foreground "cyan" :weight bold))
1563 (((class grayscale) (background light)) (:foreground "LightGray" :bold t))
1564 (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
1565 (((class color) (background light)) (:foreground "Purple"))
1566 (((class color) (background dark)) (:foreground "Cyan"))
1567 (t (:bold t)))
1568 "Face for highlighting the current message in MH-Folder buffers."
1569 :group 'mh-folder-faces)
1570
1571 (defvar mh-folder-date-face 'mh-folder-date-face
1572 "Face for highlighting the date in MH-Folder buffers.")
1573 (defface mh-folder-date-face
1574 '((((class color) (background light))
1575 (:foreground "snow4"))
1576 (((class color) (background dark))
1577 (:foreground "snow3"))
1578 (t
1579 (:bold t)))
1580 "Face for highlighting the date in MH-Folder buffers."
1581 :group 'mh-folder-faces)
1582
1583 (defvar mh-folder-followup-face 'mh-folder-followup-face
1584 "Face for highlighting Re: (followup) subject text in MH-Folder buffers.")
1585 (defface mh-folder-followup-face
1586 '((((class color) (background light))
1587 (:foreground "blue3"))
1588 (((class color) (background dark))
1589 (:foreground "LightGoldenRod"))
1590 (t
1591 (:bold t)))
1592 "Face for highlighting Re: (followup) subject text in MH-Folder buffers."
1593 :group 'mh-folder-faces)
1594
1595 (defvar mh-folder-msg-number-face 'mh-folder-msg-number-face
1596 "Face for highlighting the message number in MH-Folder buffers.")
1597 (defface mh-folder-msg-number-face
1598 '((((class color) (background light))
1599 (:foreground "snow4"))
1600 (((class color) (background dark))
1601 (:foreground "snow3"))
1602 (t
1603 (:bold t)))
1604 "Face for highlighting the message number in MH-Folder buffers."
1605 :group 'mh-folder-faces)
1606
1607 (defvar mh-folder-deleted-face 'mh-folder-deleted-face
1608 "Face for highlighting deleted messages in MH-Folder buffers.")
1609 (copy-face 'mh-folder-msg-number-face 'mh-folder-deleted-face)
1610
1611 (defvar mh-folder-refiled-face 'mh-folder-refiled-face
1612 "Face for highlighting refiled messages in MH-Folder buffers.")
1613 (defface mh-folder-refiled-face
1614 '((((type tty) (class color)) (:foreground "yellow" :weight light))
1615 (((class grayscale) (background light))
1616 (:foreground "Gray90" :bold t :italic t))
1617 (((class grayscale) (background dark))
1618 (:foreground "DimGray" :bold t :italic t))
1619 (((class color) (background light)) (:foreground "DarkGoldenrod"))
1620 (((class color) (background dark)) (:foreground "LightGoldenrod"))
1621 (t (:bold t :italic t)))
1622 "Face for highlighting refiled messages in MH-Folder buffers."
1623 :group 'mh-folder-faces)
1624
1625 (defvar mh-folder-subject-face 'mh-folder-subject-face
1626 "Face for highlighting subject text in MH-Folder buffers.")
1627 (if (boundp 'facemenu-unlisted-faces)
1628 (add-to-list 'facemenu-unlisted-faces "^mh-folder"))
1629 (defface mh-folder-subject-face
1630 '((((class color) (background light))
1631 (:foreground "blue4"))
1632 (((class color) (background dark))
1633 (:foreground "yellow"))
1634 (t
1635 (:bold t)))
1636 "Face for highlighting subject text in MH-Folder buffers."
1637 :group 'mh-folder-faces)
1638
1639 (defvar mh-folder-address-face 'mh-folder-address-face
1640 "Face for highlighting the address in MH-Folder buffers.")
1641 (copy-face 'mh-folder-subject-face 'mh-folder-address-face)
1642
1643 (defvar mh-folder-scan-format-face 'mh-folder-scan-format-face
1644 "Face for highlighting `mh-scan-format-regexp' matches in MH-Folder buffers.")
1645 (copy-face 'mh-folder-followup-face 'mh-folder-scan-format-face)
1646
1647 (defvar mh-folder-to-face 'mh-folder-to-face
1648 "Face for highlighting the To: string in MH-Folder buffers.")
1649 (defface mh-folder-to-face
1650 '((((type tty) (class color)) (:foreground "green"))
1651 (((class grayscale) (background light)) (:foreground "DimGray" :italic t))
1652 (((class grayscale) (background dark)) (:foreground "LightGray" :italic t))
1653 (((class color) (background light)) (:foreground "RosyBrown"))
1654 (((class color) (background dark)) (:foreground "LightSalmon"))
1655 (t (:italic t)))
1656 "Face for highlighting the To: string in MH-Folder buffers."
1657 :group 'mh-folder-faces)
1658
1659 ;;; Faces used in message display (:group mh-show-faces)
1660
1661 (defvar mh-show-cc-face 'mh-show-cc-face
1662 "Face for highlighting cc header fields.")
1663 (defface mh-show-cc-face
1664 '((((type tty) (class color)) (:foreground "yellow" :weight light))
1665 (((class grayscale) (background light))
1666 (:foreground "Gray90" :bold t :italic t))
1667 (((class grayscale) (background dark))
1668 (:foreground "DimGray" :bold t :italic t))
1669 (((class color) (background light)) (:foreground "DarkGoldenrod"))
1670 (((class color) (background dark)) (:foreground "LightGoldenrod"))
1671 (t (:bold t :italic t)))
1672 "Face for highlighting cc header fields."
1673 :group 'mh-show-faces)
1674
1675 (defvar mh-show-date-face 'mh-show-date-face
1676 "Face for highlighting the Date header field.")
1677 (defface mh-show-date-face
1678 '((((type tty) (class color)) (:foreground "green"))
1679 (((class grayscale) (background light)) (:foreground "Gray90" :bold t))
1680 (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
1681 (((class color) (background light)) (:foreground "ForestGreen"))
1682 (((class color) (background dark)) (:foreground "PaleGreen"))
1683 (t (:bold t :underline t)))
1684 "Face for highlighting the Date header field."
1685 :group 'mh-show-faces)
1686
1687 (defvar mh-show-header-face 'mh-show-header-face
1688 "Face used to deemphasize unspecified header fields.")
1689 (defface mh-show-header-face
1690 '((((type tty) (class color)) (:foreground "green"))
1691 (((class grayscale) (background light)) (:foreground "DimGray" :italic t))
1692 (((class grayscale) (background dark)) (:foreground "LightGray" :italic t))
1693 (((class color) (background light)) (:foreground "RosyBrown"))
1694 (((class color) (background dark)) (:foreground "LightSalmon"))
1695 (t (:italic t)))
1696 "Face used to deemphasize unspecified header fields."
1697 :group 'mh-show-faces)
1698
1699 (defvar mh-show-to-face 'mh-show-to-face
1700 "Face for highlighting the To: header field.")
1701 (if (boundp 'facemenu-unlisted-faces)
1702 (add-to-list 'facemenu-unlisted-faces "^mh-show"))
1703 (defface mh-show-to-face
1704 '((((class grayscale) (background light))
1705 (:foreground "DimGray" :underline t))
1706 (((class grayscale) (background dark))
1707 (:foreground "LightGray" :underline t))
1708 (((class color) (background light)) (:foreground "SaddleBrown"))
1709 (((class color) (background dark)) (:foreground "burlywood"))
1710 (t (:underline t)))
1711 "Face for highlighting the To: header field."
1712 :group 'mh-show-faces)
1713
1714 (defvar mh-show-from-face 'mh-show-from-face
1715 "Face for highlighting the From: header field.")
1716 (defface mh-show-from-face
1717 '((((class color) (background light))
1718 (:foreground "red3"))
1719 (((class color) (background dark))
1720 (:foreground "cyan"))
1721 (t
1722 (:bold t)))
1723 "Face for highlighting the From: header field."
1724 :group 'mh-show-faces)
1725
1726 (defvar mh-show-subject-face 'mh-show-subject-face
1727 "Face for highlighting the Subject header field.")
1728 (copy-face 'mh-folder-subject-face 'mh-show-subject-face)
1729
1730 ;;; Faces used in indexed searches (:group mh-index-faces)
1731
1732 (defvar mh-index-folder-face 'mh-index-folder-face
1733 "Face for highlighting folders in MH-Index buffers.")
1734 (defface mh-index-folder-face
1735 '((((class color) (background light))
1736 (:foreground "dark green" :bold t))
1737 (((class color) (background dark))
1738 (:foreground "indian red" :bold t))
1739 (t
1740 (:bold t)))
1741 "Face for highlighting folders in MH-Index buffers."
1742 :group 'mh-index-faces)
1743
1744 (provide 'mh-customize)
1745
1746 ;;; Local Variables:
1747 ;;; indent-tabs-mode: nil
1748 ;;; sentence-end-double-space: nil
1749 ;;; End:
1750
1751 ;;; mh-customize.el ends here