|
49120
|
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.18 2003/01/08 00:45:37 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
|
