Mercurial > emacs
annotate lisp/mh-e/mh-e.el @ 69186:4eb7009c53f4
* mh-compat.el (mh-display-color-cells): Return 2 if
device-color-cells returns nil (closes SF #1436924).
* mh-e.el (mh-compiling-flag): Delete. No longer needed by
mh-display-color-cells.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Mon, 27 Feb 2006 22:25:07 +0000 |
parents | f5bc6bf5c294 |
children | 6c74df3ce672 |
rev | line source |
---|---|
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1 ;;; mh-e.el --- GNU Emacs interface to the MH mail system |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
2 |
62847
aa8c2e12ee24
Upgraded to MH-E version 7.84.
Bill Wohler <wohler@newt.com>
parents:
62465
diff
changeset
|
3 ;; Copyright (C) 1985, 1986, 1987, 1988, |
aa8c2e12ee24
Upgraded to MH-E version 7.84.
Bill Wohler <wohler@newt.com>
parents:
62465
diff
changeset
|
4 ;; 1990, 1992, 1993, 1994, 1995, 1997, 1999, |
67988
7882fc7df359
* mh-alias.el (mh-alias-grab-from-field): Remove leading * from
Bill Wohler <wohler@newt.com>
parents:
67969
diff
changeset
|
5 ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
6 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
7 ;; Author: Bill Wohler <wohler@newt.com> |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
8 ;; Maintainer: Bill Wohler <wohler@newt.com> |
68996
ef46b6afadc4
(Version, mh-version): Add +cvs to version.
Bill Wohler <wohler@newt.com>
parents:
68988
diff
changeset
|
9 ;; Version: 7.92+cvs |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
10 ;; Keywords: mail |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
11 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
12 ;; This file is part of GNU Emacs. |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
13 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
14 ;; GNU Emacs is free software; you can redistribute it and/or modify |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
15 ;; it under the terms of the GNU General Public License as published by |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
16 ;; the Free Software Foundation; either version 2, or (at your option) |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
17 ;; any later version. |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
18 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
19 ;; GNU Emacs is distributed in the hope that it will be useful, |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
22 ;; GNU General Public License for more details. |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
23 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
24 ;; You should have received a copy of the GNU General Public License |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
25 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
27 ;; Boston, MA 02110-1301, USA. | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
28 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
29 ;;; Commentary: |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
30 |
68465 | 31 ;; How to use: |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
32 ;; M-x mh-rmail to read mail. Type C-h m there for a list of commands. |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
33 ;; C-u M-x mh-rmail to visit any folder. |
68465 | 34 ;; M-x mh-smail to send mail. From within the mail reader, "s" works, too. |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
35 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
36 ;; Your .emacs might benefit from these bindings: |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
37 ;; (global-set-key "\C-cr" 'mh-rmail) |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
38 ;; (global-set-key "\C-xm" 'mh-smail) |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
39 ;; (global-set-key "\C-x4m" 'mh-smail-other-window) |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
40 |
68465 | 41 ;; If Emacs can't find mh-rmail or mh-smail, add the following to ~/.emacs: |
42 ;; (require 'mh-autoloads) | |
43 | |
44 ;; If you want to customize MH-E before explicitly loading it, add this: | |
45 ;; (require 'mh-cus-load) | |
46 | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
47 ;; MH (Message Handler) is a powerful mail reader. |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
48 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
49 ;; The MH newsgroup is comp.mail.mh; the mailing list is mh-users@ics.uci.edu |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
50 ;; (send to mh-users-request to be added). See the monthly Frequently Asked |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
51 ;; Questions posting there for information on getting MH and MH-E: |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
52 ;; http://www.faqs.org/faqs/mail/mh-faq/part1/preamble.html |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
53 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
54 ;; N.B. MH must have been compiled with the MHE compiler flag or several |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
55 ;; features necessary for MH-E will be missing from MH commands, specifically |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
56 ;; the -build switch to repl and forw. |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
57 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
58 ;; MH-E is an Emacs interface to the MH mail system. |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
59 |
68096
57c4e7929f99
* mh-alias.el (mh-alias-gecos-name): Use replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68014
diff
changeset
|
60 ;; MH-E is supported in GNU Emacs 21 and 22 as well as XEmacs 21 |
57c4e7929f99
* mh-alias.el (mh-alias-gecos-name): Use replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68014
diff
changeset
|
61 ;; (except for versions 21.5.9-21.5.16), with MH 6.8.4 on, nmh 1.0.4 |
57c4e7929f99
* mh-alias.el (mh-alias-gecos-name): Use replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68014
diff
changeset
|
62 ;; on, and GNU mailutils 0.4 on. |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
63 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
64 ;; Mailing Lists: |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
65 ;; mh-e-users@lists.sourceforge.net |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
66 ;; mh-e-announce@lists.sourceforge.net |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
67 ;; mh-e-devel@lists.sourceforge.net |
68465 | 68 |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
69 ;; Subscribe by sending a "subscribe" message to |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
70 ;; <list>-request@lists.sourceforge.net, or by using the web interface at |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
71 ;; https://sourceforge.net/mail/?group_id=13357 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
72 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
73 ;; Bug Reports: |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
74 ;; https://sourceforge.net/tracker/?group_id=13357&atid=113357 |
68465 | 75 ;; Include the output of M-x mh-version in the bug report unless |
76 ;; you're 110% sure we won't ask for it. | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
77 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
78 ;; Feature Requests: |
68465 | 79 ;; https://sourceforge.net/tracker/?group_id=13357&atid=363357 |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
80 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
81 ;; Support: |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
82 ;; https://sourceforge.net/tracker/?group_id=13357&atid=213357 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
83 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
84 ;;; Change Log: |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
85 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
86 ;; Original version for Gosling emacs by Brian Reid, Stanford, 1982. |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
87 ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. |
56673
e9a6cbc8ca5e
Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents:
56407
diff
changeset
|
88 ;; Rewritten for GNU Emacs, James Larus, 1985. |
e9a6cbc8ca5e
Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents:
56407
diff
changeset
|
89 ;; Modified by Stephen Gildea, 1988. |
e9a6cbc8ca5e
Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents:
56407
diff
changeset
|
90 ;; Maintenance picked up by Bill Wohler and the |
e9a6cbc8ca5e
Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents:
56407
diff
changeset
|
91 ;; SourceForge Crew <http://mh-e.sourceforge.net/>, 2001. |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
92 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
93 ;;; Code: |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
94 |
68465 | 95 ;; Provide functions to the rest of MH-E. However, mh-e.el must not |
96 ;; use any definitions in files that require mh-e from mh-loaddefs, | |
97 ;; for if it does it will introduce a require loop. | |
98 (require 'mh-loaddefs) | |
99 | |
56406
d36b00b98db0
Upgraded to MH-E version 7.4.4.
Bill Wohler <wohler@newt.com>
parents:
55151
diff
changeset
|
100 (mh-require-cl) |
68096
57c4e7929f99
* mh-alias.el (mh-alias-gecos-name): Use replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68014
diff
changeset
|
101 |
68465 | 102 (eval-and-compile |
103 (defvar mh-xemacs-flag (featurep 'xemacs) | |
69186
4eb7009c53f4
* mh-compat.el (mh-display-color-cells): Return 2 if
Bill Wohler <wohler@newt.com>
parents:
69074
diff
changeset
|
104 "Non-nil means the current Emacs is XEmacs.")) |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68484
diff
changeset
|
105 |
68465 | 106 (mh-do-in-xemacs |
107 (require 'mh-xemacs)) | |
108 | |
68135
03bac2d0a4aa
* Makefile (MH_E_SRC): Add mh-buffers.el.
Bill Wohler <wohler@newt.com>
parents:
68112
diff
changeset
|
109 (require 'mh-buffers) |
68465 | 110 (require 'mh-compat) |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
111 |
56673
e9a6cbc8ca5e
Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents:
56407
diff
changeset
|
112 |
67681 | 113 |
68465 | 114 ;;; Global Variables |
115 | |
116 ;; Try to keep variables local to a single file. Provide accessors if | |
117 ;; variables are shared. Use this section as a last resort. | |
118 | |
68996
ef46b6afadc4
(Version, mh-version): Add +cvs to version.
Bill Wohler <wohler@newt.com>
parents:
68988
diff
changeset
|
119 (defconst mh-version "7.92+cvs" "Version number of MH-E.") |
68465 | 120 |
121 ;; Variants | |
122 | |
123 (defvar mh-sys-path | |
124 '("/usr/local/nmh/bin" ; nmh default | |
125 "/usr/local/bin/mh/" | |
126 "/usr/local/mh/" | |
127 "/usr/bin/mh/" ; Ultrix 4.2, Linux | |
128 "/usr/new/mh/" ; Ultrix < 4.2 | |
129 "/usr/contrib/mh/bin/" ; BSDI | |
130 "/usr/pkg/bin/" ; NetBSD | |
131 "/usr/local/bin/" | |
132 "/usr/local/bin/mu-mh/" ; GNU mailutils - default | |
133 "/usr/bin/mu-mh/") ; GNU mailutils - packaged | |
134 "List of directories to search for variants of the MH variant. | |
135 The list `exec-path' is searched in addition to this list. | |
136 There's no need for users to modify this list. Instead add extra | |
137 directories to the customizable variable `mh-path'.") | |
138 | |
139 (defvar mh-variants nil | |
140 "List describing known MH variants. | |
141 Do not access this variable directly as it may not have yet been initialized. | |
142 Use the function `mh-variants' instead.") | |
143 | |
144 (defvar mh-variant-in-use nil | |
145 "The MH variant currently in use; a string with variant and version number. | |
146 This differs from `mh-variant' when the latter is set to | |
147 \"autodetect\".") | |
148 | |
149 (defvar mh-progs nil | |
150 "Directory containing MH commands, such as inc, repl, and rmm.") | |
151 | |
152 ;;;###autoload | |
153 (put 'mh-progs 'risky-local-variable t) | |
154 | |
155 (defvar mh-lib nil | |
156 "Directory containing the MH library. | |
157 This directory contains, among other things, the components file.") | |
158 | |
159 ;;;###autoload | |
160 (put 'mh-lib 'risky-local-variable t) | |
161 | |
162 (defvar mh-lib-progs nil | |
163 "Directory containing MH helper programs. | |
164 This directory contains, among other things, the mhl program.") | |
165 | |
166 ;;;###autoload | |
167 (put 'mh-lib-progs 'risky-local-variable t) | |
168 | |
169 ;; Profile Components | |
170 | |
171 (defvar mh-draft-folder nil | |
172 "Cached value of the \"Draft-Folder:\" MH profile component. | |
173 Name of folder containing draft messages. | |
174 Nil means do not use a draft folder.") | |
175 | |
176 (defvar mh-inbox nil | |
177 "Cached value of the \"Inbox:\" MH profile component. | |
178 Set to \"+inbox\" if no such component. | |
179 Name of the Inbox folder.") | |
180 | |
181 (defvar mh-user-path nil | |
182 "Cached value of the \"Path:\" MH profile component. | |
183 User's mail folder directory.") | |
184 | |
185 ;; Maps declared here so that they can be used in docstrings. | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
186 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
187 (defvar mh-folder-mode-map (make-keymap) |
68465 | 188 "Keymap for MH-Folder mode.") |
189 | |
190 (defvar mh-folder-seq-tool-bar-map nil | |
191 "Keymap for MH-Folder tool bar.") | |
192 | |
193 (defvar mh-folder-tool-bar-map nil | |
194 "Keymap for MH-Folder tool bar.") | |
195 | |
196 (defvar mh-inc-spool-map (make-sparse-keymap) | |
197 "Keymap for MH-E's mh-inc-spool commands.") | |
198 | |
199 (defvar mh-letter-mode-map (copy-keymap text-mode-map) | |
200 "Keymap for MH-Letter mode.") | |
201 | |
202 (defvar mh-letter-tool-bar-map nil | |
203 "Keymap for MH-Letter tool bar.") | |
204 | |
205 (defvar mh-search-mode-map (make-sparse-keymap) | |
206 "Keymap for MH-Search mode.") | |
207 | |
208 (defvar mh-show-mode-map (make-sparse-keymap) | |
209 "Keymap MH-Show mode.") | |
210 | |
211 (defvar mh-show-seq-tool-bar-map nil | |
212 "Keymap for MH-Show tool bar.") | |
213 | |
214 (defvar mh-show-tool-bar-map nil | |
215 "Keymap for MH-Show tool bar.") | |
216 | |
217 ;; MH-Folder Locals (alphabetical) | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
218 |
67756
7ff92ad99326
* mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents:
67689
diff
changeset
|
219 (defvar mh-arrow-marker nil |
7ff92ad99326
* mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents:
67689
diff
changeset
|
220 "Marker for arrow display in fringe.") |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
221 |
68465 | 222 (defvar mh-colors-available-flag nil |
223 "Non-nil means colors are available.") | |
224 | |
225 (defvar mh-current-folder nil | |
226 "Name of current folder, a string.") | |
227 | |
67756
7ff92ad99326
* mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents:
67689
diff
changeset
|
228 (defvar mh-delete-list nil |
7ff92ad99326
* mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents:
67689
diff
changeset
|
229 "List of message numbers to delete. |
67758
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67756
diff
changeset
|
230 This variable can be used by |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67756
diff
changeset
|
231 `mh-before-commands-processed-hook'.") |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
232 |
68465 | 233 (defvar mh-folder-view-stack nil |
67756
7ff92ad99326
* mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents:
67689
diff
changeset
|
234 "Stack of previous folder views.") |
7ff92ad99326
* mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents:
67689
diff
changeset
|
235 |
7ff92ad99326
* mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents:
67689
diff
changeset
|
236 (defvar mh-index-data nil |
7ff92ad99326
* mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents:
67689
diff
changeset
|
237 "Info about index search results.") |
7ff92ad99326
* mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents:
67689
diff
changeset
|
238 |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
239 (defvar mh-index-previous-search nil) |
68465 | 240 |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
241 (defvar mh-index-msg-checksum-map nil) |
68465 | 242 |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
243 (defvar mh-index-checksum-origin-map nil) |
68465 | 244 |
56406
d36b00b98db0
Upgraded to MH-E version 7.4.4.
Bill Wohler <wohler@newt.com>
parents:
55151
diff
changeset
|
245 (defvar mh-index-sequence-search-flag nil) |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
246 |
67756
7ff92ad99326
* mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents:
67689
diff
changeset
|
247 (defvar mh-mode-line-annotation nil |
7ff92ad99326
* mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents:
67689
diff
changeset
|
248 "Message range displayed in buffer.") |
56406
d36b00b98db0
Upgraded to MH-E version 7.4.4.
Bill Wohler <wohler@newt.com>
parents:
55151
diff
changeset
|
249 |
68465 | 250 (defvar mh-next-direction 'forward |
251 "Direction to move to next message.") | |
252 | |
253 (defvar mh-previous-window-config nil | |
254 "Window configuration before MH-E command.") | |
255 | |
256 (defvar mh-refile-list nil | |
257 "List of folder names in `mh-seq-list'. | |
258 This variable can be used by | |
259 `mh-before-commands-processed-hook'.") | |
260 | |
261 (defvar mh-seen-list nil | |
262 "List of displayed messages to be removed from the \"Unseen\" sequence.") | |
263 | |
264 (defvar mh-seq-list nil | |
265 "Alist of this folder's sequences. | |
266 Elements have the form (SEQUENCE . MESSAGES).") | |
267 | |
67756
7ff92ad99326
* mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents:
67689
diff
changeset
|
268 (defvar mh-sequence-notation-history nil |
7ff92ad99326
* mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents:
67689
diff
changeset
|
269 "Remember original notation that is overwritten by `mh-note-seq'.") |
7ff92ad99326
* mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents:
67689
diff
changeset
|
270 |
68465 | 271 (defvar mh-show-buffer nil |
272 "Buffer that displays message for this folder.") | |
273 | |
274 (defvar mh-showing-mode nil | |
275 "If non-nil, show the message in a separate window.") | |
276 | |
277 (defvar mh-view-ops nil | |
278 "Stack of operations that change the folder view. | |
279 These operations include narrowing or threading.") | |
280 | |
281 ;; MH-Show Locals (alphabetical) | |
282 | |
283 (defvar mh-globals-hash (make-hash-table) | |
284 "Keeps track of MIME data on a per buffer basis.") | |
285 | |
286 (defvar mh-show-folder-buffer nil | |
287 "Keeps track of folder whose message is being displayed.") | |
288 | |
289 ;; MH-Letter Locals | |
290 | |
291 (defvar mh-folders-changed nil | |
292 "Lists which folders were affected by deletes and refiles. | |
293 This list will always include the current folder | |
294 `mh-current-folder'. This variable can be used by | |
295 `mh-after-commands-processed-hook'.") | |
296 | |
297 (defvar mh-mail-header-separator "--------" | |
298 "*Line used by MH to separate headers from text in messages being composed. | |
299 | |
300 This variable should not be used directly in programs. Programs | |
301 should use `mail-header-separator' instead. | |
302 `mail-header-separator' is initialized to | |
303 `mh-mail-header-separator' in `mh-letter-mode'; in other | |
304 contexts, you may have to perform this initialization yourself. | |
305 | |
306 Do not make this a regular expression as it may be the argument | |
307 to `insert' and it is passed through `regexp-quote' before being | |
308 used by functions like `re-search-forward'.") | |
309 | |
310 (defvar mh-sent-from-folder nil | |
311 "Folder of msg assoc with this letter.") | |
312 | |
313 (defvar mh-sent-from-msg nil | |
314 "Number of msg assoc with this letter.") | |
315 | |
316 ;; Sequences | |
317 | |
318 (defvar mh-unseen-seq nil | |
319 "Cached value of the \"Unseen-Sequence:\" MH profile component. | |
320 Name of the Unseen sequence.") | |
321 | |
322 (defvar mh-previous-seq nil | |
323 "Cached value of the \"Previous-Sequence:\" MH profile component. | |
324 Name of the Previous sequence.") | |
325 | |
326 ;; Etc. (alphabetical) | |
327 | |
328 (defvar mh-flists-present-flag nil | |
329 "Non-nil means that we have \"flists\".") | |
330 | |
331 (defvar mh-index-data-file ".mhe_index" | |
332 "MH-E specific file where index seach info is stored.") | |
333 | |
334 (defvar mh-letter-header-field-regexp "^\\([A-Za-z][A-Za-z0-9-]*\\):") | |
335 | |
336 (defvar mh-page-to-next-msg-flag nil | |
337 "Non-nil means next SPC or whatever goes to next undeleted message.") | |
338 | |
339 (defvar mh-pgp-support-flag (not (not (locate-library "mml2015"))) | |
340 "Non-nil means PGP support is available.") | |
341 | |
342 (defvar mh-signature-separator "-- \n" | |
343 "Text of a signature separator. | |
344 | |
345 A signature separator is used to separate the body of a message | |
346 from the signature. This can be used by user agents such as MH-E | |
347 to render the signature differently or to suppress the inclusion | |
348 of the signature in a reply. Use `mh-signature-separator-regexp' | |
349 when searching for a separator.") | |
350 | |
351 (defvar mh-signature-separator-regexp "^-- $" | |
352 "This regular expression matches the signature separator. | |
353 See `mh-signature-separator'.") | |
354 | |
355 (defvar mh-thread-scan-line-map nil | |
356 "Map of message index to various parts of the scan line.") | |
357 (make-variable-buffer-local 'mh-thread-scan-line-map) | |
358 | |
359 (defvar mh-thread-scan-line-map-stack nil | |
360 "Old map of message index to various parts of the scan line. | |
361 This is the original map that is stored when the folder is | |
362 narrowed.") | |
363 (make-variable-buffer-local 'mh-thread-scan-line-map-stack) | |
364 | |
365 (defvar mh-x-mailer-string nil | |
366 "*String containing the contents of the X-Mailer header field. | |
367 If nil, this variable is initialized to show the version of MH-E, | |
368 Emacs, and MH the first time a message is composed.") | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
369 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
370 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
371 |
68465 | 372 ;;; MH-E Entry Points |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
373 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
374 (eval-when-compile (require 'gnus)) |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
375 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
376 (defmacro mh-macro-expansion-time-gnus-version () |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
377 "Return Gnus version available at macro expansion time. |
67758
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67756
diff
changeset
|
378 The macro evaluates the Gnus version at macro expansion time. If |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67756
diff
changeset
|
379 MH-E was compiled then macro expansion happens at compile time." |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67756
diff
changeset
|
380 gnus-version) |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
381 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
382 (defun mh-run-time-gnus-version () |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
383 "Return Gnus version available at run time." |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
384 (require 'gnus) |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
385 gnus-version) |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
386 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
387 ;;;###autoload |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
388 (defun mh-version () |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
389 "Display version information about MH-E and the MH mail handling system." |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
390 (interactive) |
49578
b35587af8747
Upgraded to MH-E version 7.2.
Bill Wohler <wohler@newt.com>
parents:
49459
diff
changeset
|
391 (set-buffer (get-buffer-create mh-info-buffer)) |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
392 (erase-buffer) |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
393 ;; MH-E version. |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
394 (insert "MH-E " mh-version "\n\n") |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
395 ;; MH-E compilation details. |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
396 (insert "MH-E compilation details:\n") |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
397 (let* ((compiled-mhe (byte-code-function-p (symbol-function 'mh-version))) |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
398 (gnus-compiled-version (if compiled-mhe |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
399 (mh-macro-expansion-time-gnus-version) |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
400 "N/A"))) |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
401 (insert " Byte compiled:\t\t" (if compiled-mhe "yes" "no") "\n" |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
402 " Gnus (compile-time):\t" gnus-compiled-version "\n" |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
403 " Gnus (run-time):\t" (mh-run-time-gnus-version) "\n\n")) |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
404 ;; Emacs version. |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
405 (insert (emacs-version) "\n\n") |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
406 ;; MH version. |
56673
e9a6cbc8ca5e
Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents:
56407
diff
changeset
|
407 (if mh-variant-in-use |
e9a6cbc8ca5e
Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents:
56407
diff
changeset
|
408 (insert mh-variant-in-use "\n" |
e9a6cbc8ca5e
Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents:
56407
diff
changeset
|
409 " mh-progs:\t" mh-progs "\n" |
e9a6cbc8ca5e
Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents:
56407
diff
changeset
|
410 " mh-lib:\t" mh-lib "\n" |
e9a6cbc8ca5e
Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents:
56407
diff
changeset
|
411 " mh-lib-progs:\t" mh-lib-progs "\n\n") |
e9a6cbc8ca5e
Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents:
56407
diff
changeset
|
412 (insert "No MH variant detected\n")) |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
413 ;; Linux version. |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
414 (condition-case () |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
415 (call-process "uname" nil t nil "-a") |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
416 (file-error)) |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
417 (goto-char (point-min)) |
49578
b35587af8747
Upgraded to MH-E version 7.2.
Bill Wohler <wohler@newt.com>
parents:
49459
diff
changeset
|
418 (display-buffer mh-info-buffer)) |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
419 |
68465 | 420 |
421 | |
422 ;;; Support Routines | |
423 | |
424 (defun mh-list-to-string (l) | |
425 "Flatten the list L and make every element of the new list into a string." | |
426 (nreverse (mh-list-to-string-1 l))) | |
427 | |
428 (defun mh-list-to-string-1 (l) | |
429 "Flatten the list L and make every element of the new list into a string." | |
430 (let ((new-list nil)) | |
431 (while l | |
432 (cond ((null (car l))) | |
433 ((symbolp (car l)) | |
434 (setq new-list (cons (symbol-name (car l)) new-list))) | |
435 ((numberp (car l)) | |
436 (setq new-list (cons (int-to-string (car l)) new-list))) | |
437 ((equal (car l) "")) | |
438 ((stringp (car l)) (setq new-list (cons (car l) new-list))) | |
439 ((listp (car l)) | |
440 (setq new-list (nconc (mh-list-to-string-1 (car l)) | |
441 new-list))) | |
442 (t (error "Bad element in `mh-list-to-string': %s" (car l)))) | |
443 (setq l (cdr l))) | |
444 new-list)) | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
445 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
446 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
447 |
68465 | 448 ;;; MH-E Process Support |
449 | |
450 (defvar mh-index-max-cmdline-args 500 | |
451 "Maximum number of command line args.") | |
452 | |
453 (defun mh-xargs (cmd &rest args) | |
454 "Partial imitation of xargs. | |
455 The current buffer contains a list of strings, one on each line. | |
456 The function will execute CMD with ARGS and pass the first | |
457 `mh-index-max-cmdline-args' strings to it. This is repeated till | |
458 all the strings have been used." | |
459 (goto-char (point-min)) | |
460 (let ((current-buffer (current-buffer))) | |
461 (with-temp-buffer | |
462 (let ((out (current-buffer))) | |
463 (set-buffer current-buffer) | |
464 (while (not (eobp)) | |
465 (let ((arg-list (reverse args)) | |
466 (count 0)) | |
467 (while (and (not (eobp)) (< count mh-index-max-cmdline-args)) | |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68484
diff
changeset
|
468 (push (buffer-substring-no-properties (point) |
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68484
diff
changeset
|
469 (mh-line-end-position)) |
68465 | 470 arg-list) |
471 (incf count) | |
472 (forward-line)) | |
473 (apply #'call-process cmd nil (list out nil) nil | |
474 (nreverse arg-list)))) | |
475 (erase-buffer) | |
476 (insert-buffer-substring out))))) | |
477 | |
478 ;; XXX This should be applied anywhere MH-E calls out to /bin/sh. | |
479 (defun mh-quote-for-shell (string) | |
480 "Quote STRING for /bin/sh. | |
481 Adds double-quotes around entire string and quotes the characters | |
482 \\, `, and $ with a backslash." | |
483 (concat "\"" | |
484 (loop for x across string | |
485 concat (format (if (memq x '(?\\ ?` ?$)) "\\%c" "%c") x)) | |
486 "\"")) | |
487 | |
488 (defun mh-exec-cmd (command &rest args) | |
489 "Execute mh-command COMMAND with ARGS. | |
490 The side effects are what is desired. Any output is assumed to be | |
491 an error and is shown to the user. The output is not read or | |
492 parsed by MH-E." | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
493 (save-excursion |
68465 | 494 (set-buffer (get-buffer-create mh-log-buffer)) |
495 (let* ((initial-size (mh-truncate-log-buffer)) | |
496 (start (point)) | |
497 (args (mh-list-to-string args))) | |
498 (apply 'call-process (expand-file-name command mh-progs) nil t nil args) | |
499 (when (> (buffer-size) initial-size) | |
500 (save-excursion | |
501 (goto-char start) | |
502 (insert "Errors when executing: " command) | |
503 (loop for arg in args do (insert " " arg)) | |
504 (insert "\n")) | |
505 (save-window-excursion | |
506 (switch-to-buffer-other-window mh-log-buffer) | |
507 (sit-for 5)))))) | |
508 | |
509 (defun mh-exec-cmd-error (env command &rest args) | |
510 "In environment ENV, execute mh-command COMMAND with ARGS. | |
511 ENV is nil or a string of space-separated \"var=value\" elements. | |
512 Signals an error if process does not complete successfully." | |
49578
b35587af8747
Upgraded to MH-E version 7.2.
Bill Wohler <wohler@newt.com>
parents:
49459
diff
changeset
|
513 (save-excursion |
68465 | 514 (set-buffer (get-buffer-create mh-temp-buffer)) |
515 (erase-buffer) | |
516 (let ((process-environment process-environment)) | |
517 ;; XXX: We should purge the list that split-string returns of empty | |
518 ;; strings. This can happen in XEmacs if leading or trailing spaces | |
519 ;; are present. | |
520 (dolist (elem (if (stringp env) (split-string env " ") ())) | |
521 (push elem process-environment)) | |
522 (mh-handle-process-error | |
523 command (apply #'call-process (expand-file-name command mh-progs) | |
524 nil t nil (mh-list-to-string args)))))) | |
525 | |
526 (defun mh-exec-cmd-daemon (command filter &rest args) | |
527 "Execute MH command COMMAND in the background. | |
528 | |
529 If FILTER is non-nil then it is used to process the output | |
530 otherwise the default filter `mh-process-daemon' is used. See | |
531 `set-process-filter' for more details of FILTER. | |
532 | |
533 ARGS are passed to COMMAND as command line arguments." | |
534 (save-excursion | |
535 (set-buffer (get-buffer-create mh-log-buffer)) | |
536 (mh-truncate-log-buffer)) | |
537 (let* ((process-connection-type nil) | |
538 (process (apply 'start-process | |
539 command nil | |
540 (expand-file-name command mh-progs) | |
541 (mh-list-to-string args)))) | |
542 (set-process-filter process (or filter 'mh-process-daemon)) | |
543 process)) | |
544 | |
545 (defun mh-exec-cmd-env-daemon (env command filter &rest args) | |
546 "In ennvironment ENV, execute mh-command COMMAND in the background. | |
547 | |
548 ENV is nil or a string of space-separated \"var=value\" elements. | |
549 Signals an error if process does not complete successfully. | |
550 | |
551 If FILTER is non-nil then it is used to process the output | |
552 otherwise the default filter `mh-process-daemon' is used. See | |
553 `set-process-filter' for more details of FILTER. | |
554 | |
555 ARGS are passed to COMMAND as command line arguments." | |
556 (let ((process-environment process-environment)) | |
557 (dolist (elem (if (stringp env) (split-string env " ") ())) | |
558 (push elem process-environment)) | |
559 (apply #'mh-exec-cmd-daemon command filter args))) | |
560 | |
561 (defun mh-process-daemon (process output) | |
562 "PROCESS daemon that puts OUTPUT into a temporary buffer. | |
563 Any output from the process is displayed in an asynchronous | |
564 pop-up window." | |
565 (with-current-buffer (get-buffer-create mh-log-buffer) | |
566 (insert-before-markers output) | |
567 (display-buffer mh-log-buffer))) | |
568 | |
569 (defun mh-exec-cmd-quiet (raise-error command &rest args) | |
570 "Signal RAISE-ERROR if COMMAND with ARGS fails. | |
571 Execute MH command COMMAND with ARGS. ARGS is a list of strings. | |
572 Return at start of mh-temp buffer, where output can be parsed and | |
573 used. | |
574 Returns value of `call-process', which is 0 for success, unless | |
575 RAISE-ERROR is non-nil, in which case an error is signaled if | |
576 `call-process' returns non-0." | |
577 (set-buffer (get-buffer-create mh-temp-buffer)) | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
578 (erase-buffer) |
68465 | 579 (let ((value |
580 (apply 'call-process | |
581 (expand-file-name command mh-progs) nil t nil | |
582 args))) | |
583 (goto-char (point-min)) | |
584 (if raise-error | |
585 (mh-handle-process-error command value) | |
586 value))) | |
587 | |
588 (defun mh-exec-cmd-output (command display &rest args) | |
589 "Execute MH command COMMAND with DISPLAY flag and ARGS. | |
590 Put the output into buffer after point. | |
591 Set mark after inserted text. | |
592 Output is expected to be shown to user, not parsed by MH-E." | |
593 (push-mark (point) t) | |
594 (apply 'call-process | |
595 (expand-file-name command mh-progs) nil t display | |
596 (mh-list-to-string args)) | |
597 | |
598 ;; The following is used instead of 'exchange-point-and-mark because the | |
599 ;; latter activates the current region (between point and mark), which | |
600 ;; turns on highlighting. So prior to this bug fix, doing "inc" would | |
601 ;; highlight a region containing the new messages, which is undesirable. | |
602 ;; The bug wasn't seen in emacs21 but still occurred in XEmacs21.4. | |
603 (mh-exchange-point-and-mark-preserving-active-mark)) | |
56673
e9a6cbc8ca5e
Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents:
56407
diff
changeset
|
604 |
68102
dbf20754c3a7
Use consistent verbiage with compiler defvars.
Bill Wohler <wohler@newt.com>
parents:
68096
diff
changeset
|
605 ;; Shush compiler. |
68465 | 606 (eval-when-compile (mh-do-in-xemacs (defvar mark-active))) |
607 | |
608 (defun mh-exchange-point-and-mark-preserving-active-mark () | |
609 "Put the mark where point is now, and point where the mark is now. | |
610 This command works even when the mark is not active, and | |
611 preserves whether the mark is active or not." | |
612 (interactive nil) | |
613 (let ((is-active (and (boundp 'mark-active) mark-active))) | |
614 (let ((omark (mark t))) | |
615 (if (null omark) | |
616 (error "No mark set in this buffer")) | |
617 (set-mark (point)) | |
618 (goto-char omark) | |
619 (if (boundp 'mark-active) | |
620 (setq mark-active is-active)) | |
621 nil))) | |
622 | |
623 (defun mh-exec-lib-cmd-output (command &rest args) | |
624 "Execute MH library command COMMAND with ARGS. | |
625 Put the output into buffer after point. | |
626 Set mark after inserted text." | |
627 (apply 'mh-exec-cmd-output (expand-file-name command mh-lib-progs) nil args)) | |
628 | |
629 (defun mh-handle-process-error (command status) | |
630 "Raise error if COMMAND returned non-zero STATUS, otherwise return STATUS." | |
631 (if (equal status 0) | |
632 status | |
633 (goto-char (point-min)) | |
634 (insert (if (integerp status) | |
635 (format "%s: exit code %d\n" command status) | |
636 (format "%s: %s\n" command status))) | |
637 (save-excursion | |
638 (let ((error-message (buffer-substring (point-min) (point-max)))) | |
639 (set-buffer (get-buffer-create mh-log-buffer)) | |
640 (mh-truncate-log-buffer) | |
641 (insert error-message))) | |
642 (error "%s failed, check buffer %s for error message" | |
643 command mh-log-buffer))) | |
644 | |
645 | |
646 | |
647 ;;; Variant Support | |
648 | |
649 (defcustom mh-path nil | |
650 "*Additional list of directories to search for MH. | |
651 See `mh-variant'." | |
652 :group 'mh-e | |
653 :type '(repeat (directory))) | |
654 | |
655 (defun mh-variants () | |
656 "Return a list of installed variants of MH on the system. | |
657 This function looks for MH in `mh-sys-path', `mh-path' and | |
658 `exec-path'. The format of the list of variants that is returned | |
659 is described by the variable `mh-variants'." | |
660 (if mh-variants | |
661 mh-variants | |
662 (let ((list-unique)) | |
663 ;; Make a unique list of directories, keeping the given order. | |
664 ;; We don't want the same MH variant to be listed multiple times. | |
665 (loop for dir in (append mh-path mh-sys-path exec-path) do | |
666 (setq dir (file-chase-links (directory-file-name dir))) | |
667 (add-to-list 'list-unique dir)) | |
668 (loop for dir in (nreverse list-unique) do | |
669 (when (and dir (file-directory-p dir) (file-readable-p dir)) | |
670 (let ((variant (mh-variant-info dir))) | |
671 (if variant | |
672 (add-to-list 'mh-variants variant))))) | |
673 mh-variants))) | |
674 | |
675 (defun mh-variant-info (dir) | |
676 "Return MH variant found in DIR, or nil if none present." | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
677 (save-excursion |
68465 | 678 (let ((tmp-buffer (get-buffer-create mh-temp-buffer))) |
679 (set-buffer tmp-buffer) | |
680 (cond | |
681 ((mh-variant-mh-info dir)) | |
682 ((mh-variant-nmh-info dir)) | |
683 ((mh-variant-mu-mh-info dir)))))) | |
684 | |
685 (defun mh-variant-mh-info (dir) | |
686 "Return info for MH variant in DIR assuming a temporary buffer is setup." | |
687 ;; MH does not have the -version option. | |
688 ;; Its version number is included in the output of "-help" as: | |
689 ;; | |
690 ;; version: MH 6.8.4 #2[UCI] (burrito) of Fri Jan 15 20:01:39 EST 1999 | |
691 ;; options: [ATHENA] [BIND] [DUMB] [LIBLOCKFILE] [LOCALE] [MAILGROUP] [MHE] | |
692 ;; [MHRC] [MIME] [MORE='"/usr/bin/sensible-pager"'] [NLINK_HACK] | |
693 ;; [NORUSERPASS] [OVERHEAD] [POP] [POPSERVICE='"pop-3"'] [RENAME] | |
694 ;; [RFC1342] [RPATHS] [RPOP] [SENDMTS] [SMTP] [SOCKETS] | |
695 ;; [SPRINTFTYPE=int] [SVR4] [SYS5] [SYS5DIR] [TERMINFO] | |
696 ;; [TYPESIG=void] [UNISTD] [UTK] [VSPRINTF] | |
697 (let ((mhparam (expand-file-name "mhparam" dir))) | |
698 (when (mh-file-command-p mhparam) | |
699 (erase-buffer) | |
700 (call-process mhparam nil '(t nil) nil "-help") | |
701 (goto-char (point-min)) | |
702 (when (search-forward-regexp "version: MH \\(\\S +\\)" nil t) | |
703 (let ((version (format "MH %s" (match-string 1)))) | |
704 (erase-buffer) | |
705 (call-process mhparam nil '(t nil) nil "libdir") | |
706 (goto-char (point-min)) | |
707 (when (search-forward-regexp "^.*$" nil t) | |
708 (let ((libdir (match-string 0))) | |
709 `(,version | |
710 (variant mh) | |
711 (mh-lib-progs ,libdir) | |
712 (mh-lib ,libdir) | |
713 (mh-progs ,dir) | |
714 (flists nil))))))))) | |
715 | |
716 (defun mh-variant-mu-mh-info (dir) | |
717 "Return info for GNU mailutils variant in DIR. | |
718 This assumes that a temporary buffer is setup." | |
719 ;; 'mhparam -version' output: | |
720 ;; mhparam (GNU mailutils 0.3.2) | |
721 (let ((mhparam (expand-file-name "mhparam" dir))) | |
722 (when (mh-file-command-p mhparam) | |
723 (erase-buffer) | |
724 (call-process mhparam nil '(t nil) nil "-version") | |
725 (goto-char (point-min)) | |
726 (when (search-forward-regexp "mhparam (\\(GNU [Mm]ailutils \\S +\\))" | |
727 nil t) | |
728 (let ((version (match-string 1)) | |
729 (mh-progs dir)) | |
730 `(,version | |
731 (variant mu-mh) | |
732 (mh-lib-progs ,(mh-profile-component "libdir")) | |
733 (mh-lib ,(mh-profile-component "etcdir")) | |
734 (mh-progs ,dir) | |
735 (flists ,(file-exists-p | |
736 (expand-file-name "flists" dir))))))))) | |
737 | |
738 (defun mh-variant-nmh-info (dir) | |
739 "Return info for nmh variant in DIR assuming a temporary buffer is setup." | |
740 ;; `mhparam -version' outputs: | |
741 ;; mhparam -- nmh-1.1-RC1 [compiled on chaak at Fri Jun 20 11:03:28 PDT 2003] | |
742 (let ((mhparam (expand-file-name "mhparam" dir))) | |
743 (when (mh-file-command-p mhparam) | |
744 (erase-buffer) | |
745 (call-process mhparam nil '(t nil) nil "-version") | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
746 (goto-char (point-min)) |
68465 | 747 (when (search-forward-regexp "mhparam -- nmh-\\(\\S +\\)" nil t) |
748 (let ((version (format "nmh %s" (match-string 1))) | |
749 (mh-progs dir)) | |
750 `(,version | |
751 (variant nmh) | |
752 (mh-lib-progs ,(mh-profile-component "libdir")) | |
753 (mh-lib ,(mh-profile-component "etcdir")) | |
754 (mh-progs ,dir) | |
755 (flists ,(file-exists-p | |
756 (expand-file-name "flists" dir))))))))) | |
757 | |
758 (defun mh-file-command-p (file) | |
759 "Return t if file FILE is the name of a executable regular file." | |
760 (and (file-regular-p file) (file-executable-p file))) | |
761 | |
762 (defun mh-variant-set-variant (variant) | |
763 "Setup the system variables for the MH variant named VARIANT. | |
764 If VARIANT is a string, use that key in the alist returned by the | |
765 function `mh-variants'. | |
766 If VARIANT is a symbol, select the first entry that matches that | |
767 variant." | |
768 (cond | |
769 ((stringp variant) ;e.g. "nmh 1.1-RC1" | |
770 (when (assoc variant (mh-variants)) | |
771 (let* ((alist (cdr (assoc variant (mh-variants)))) | |
772 (lib-progs (cadr (assoc 'mh-lib-progs alist))) | |
773 (lib (cadr (assoc 'mh-lib alist))) | |
774 (progs (cadr (assoc 'mh-progs alist))) | |
775 (flists (cadr (assoc 'flists alist)))) | |
776 ;;(set-default mh-variant variant) | |
777 (setq mh-x-mailer-string nil | |
778 mh-flists-present-flag flists | |
779 mh-lib-progs lib-progs | |
780 mh-lib lib | |
781 mh-progs progs | |
782 mh-variant-in-use variant)))) | |
783 ((symbolp variant) ;e.g. 'nmh (pick the first match) | |
784 (loop for variant-list in (mh-variants) | |
785 when (eq variant (cadr (assoc 'variant (cdr variant-list)))) | |
786 return (let* ((version (car variant-list)) | |
787 (alist (cdr variant-list)) | |
788 (lib-progs (cadr (assoc 'mh-lib-progs alist))) | |
789 (lib (cadr (assoc 'mh-lib alist))) | |
790 (progs (cadr (assoc 'mh-progs alist))) | |
791 (flists (cadr (assoc 'flists alist)))) | |
792 ;;(set-default mh-variant flavor) | |
793 (setq mh-x-mailer-string nil | |
794 mh-flists-present-flag flists | |
795 mh-lib-progs lib-progs | |
796 mh-lib lib | |
797 mh-progs progs | |
798 mh-variant-in-use version) | |
799 t))))) | |
800 | |
801 (defun mh-variant-p (&rest variants) | |
802 "Return t if variant is any of VARIANTS. | |
803 Currently known variants are 'MH, 'nmh, and 'mu-mh." | |
804 (let ((variant-in-use | |
805 (cadr (assoc 'variant (assoc mh-variant-in-use (mh-variants)))))) | |
806 (not (null (member variant-in-use variants))))) | |
807 | |
808 (defun mh-profile-component (component) | |
809 "Return COMPONENT value from mhparam, or nil if unset." | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
810 (save-excursion |
68465 | 811 (mh-exec-cmd-quiet nil "mhparam" "-components" component) |
812 (mh-profile-component-value component))) | |
813 | |
814 (defun mh-profile-component-value (component) | |
815 "Find and return the value of COMPONENT in the current buffer. | |
816 Returns nil if the component is not in the buffer." | |
817 (let ((case-fold-search t)) | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
818 (goto-char (point-min)) |
68465 | 819 (cond ((not (re-search-forward (format "^%s:" component) nil t)) nil) |
820 ((looking-at "[\t ]*$") nil) | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
821 (t |
68465 | 822 (re-search-forward "[\t ]*\\([^\t \n].*\\)$" nil t) |
823 (let ((start (match-beginning 1))) | |
824 (end-of-line) | |
825 (buffer-substring start (point))))))) | |
826 | |
827 (defun mh-variant-set (variant) | |
828 "Set the MH variant to VARIANT. | |
829 Sets `mh-progs', `mh-lib', `mh-lib-progs' and | |
830 `mh-flists-present-flag'. | |
831 If the VARIANT is \"autodetect\", then first try nmh, then MH and | |
832 finally GNU mailutils." | |
833 (interactive | |
834 (list (completing-read | |
835 "MH variant: " | |
836 (mapcar (lambda (x) (list (car x))) (mh-variants)) | |
837 nil t))) | |
838 (let ((valid-list (mapcar (lambda (x) (car x)) (mh-variants)))) | |
839 (cond | |
840 ((eq variant 'none)) | |
841 ((eq variant 'autodetect) | |
842 (cond | |
843 ((mh-variant-set-variant 'nmh) | |
844 (message "%s installed as MH variant" mh-variant-in-use)) | |
845 ((mh-variant-set-variant 'mh) | |
846 (message "%s installed as MH variant" mh-variant-in-use)) | |
847 ((mh-variant-set-variant 'mu-mh) | |
848 (message "%s installed as MH variant" mh-variant-in-use)) | |
849 (t | |
850 (message "No MH variant found on the system")))) | |
851 ((member variant valid-list) | |
852 (when (not (mh-variant-set-variant variant)) | |
853 (message "Warning: %s variant not found. Autodetecting..." variant) | |
854 (mh-variant-set 'autodetect))) | |
855 (t | |
856 (message "Unknown variant; use %s" | |
857 (mapconcat '(lambda (x) (format "%s" (car x))) | |
858 (mh-variants) " or ")))))) | |
859 | |
860 (defcustom mh-variant 'autodetect | |
861 "*Specifies the variant used by MH-E. | |
862 | |
863 The default setting of this option is \"Auto-detect\" which means | |
864 that MH-E will automatically choose the first of nmh, MH, or GNU | |
865 mailutils that it finds in the directories listed in | |
866 `mh-path' (which you can customize), `mh-sys-path', and | |
867 `exec-path'. If, for example, you have both nmh and mailutils | |
868 installed and `mh-variant-in-use' was initialized to nmh but you | |
869 want to use mailutils, then you can set this option to | |
870 \"mailutils\". | |
871 | |
872 When this variable is changed, MH-E resets `mh-progs', `mh-lib', | |
873 `mh-lib-progs', `mh-flists-present-flag', and `mh-variant-in-use' | |
874 accordingly." | |
875 :type `(radio | |
876 (const :tag "Auto-detect" autodetect) | |
877 ,@(mapcar (lambda (x) `(const ,(car x))) (mh-variants))) | |
878 :set (lambda (symbol value) | |
879 (set-default symbol value) ;Done in mh-variant-set-variant! | |
880 (mh-variant-set value)) | |
881 :group 'mh-e) | |
882 | |
883 | |
884 | |
885 ;;; MH-E Customization | |
886 | |
887 ;; All of the defgroups, defcustoms, and deffaces in MH-E are found | |
888 ;; here. This makes it possible to customize modules that aren't | |
889 ;; loaded yet. It also makes it easier to organize the customization | |
890 ;; groups. | |
891 | |
892 ;; This section contains the following sub-sections: | |
893 | |
894 ;; 1. MH-E Customization Groups | |
895 | |
896 ;; These are the customization group definitions. Every group has a | |
897 ;; associated manual node. The ordering is alphabetical, except for | |
898 ;; the groups mh-faces and mh-hooks which are last . | |
899 | |
900 ;; 2. MH-E Customization | |
901 | |
902 ;; These are the actual customization variables. There is a | |
903 ;; sub-section for each group in the MH-E Customization Groups | |
904 ;; section, in the same order, separated by page breaks. Within | |
905 ;; each section, variables are sorted alphabetically. | |
906 | |
907 ;; 3. Hooks | |
908 | |
909 ;; All hooks must be placed in the mh-hook group; in addition, add | |
910 ;; the group associated with the manual node in which the hook is | |
911 ;; described. Since the mh-hook group appears near the end of this | |
912 ;; section, the hooks will appear at the end of these other groups. | |
913 | |
914 ;; 4. Faces | |
915 | |
916 ;; All faces must be placed in the mh-faces group; in addition, add | |
917 ;; the group associated with the manual node in which the face is | |
918 ;; described. Since the mh-faces group appears near the end of this | |
919 ;; section, the faces will appear at the end of these other groups. | |
920 | |
921 (defun mh-customize (&optional delete-other-windows-flag) | |
922 "Customize MH-E variables. | |
923 If optional argument DELETE-OTHER-WINDOWS-FLAG is non-nil, other | |
924 windows in the frame are removed." | |
925 (interactive "P") | |
926 (customize-group 'mh-e) | |
927 (when delete-other-windows-flag | |
928 (delete-other-windows))) | |
929 | |
930 | |
931 | |
932 ;;; MH-E Customization Groups | |
933 | |
934 (defgroup mh-e nil | |
935 "Emacs interface to the MH mail system. | |
936 MH is the Rand Mail Handler. Other implementations include nmh | |
937 and GNU mailutils." | |
938 :link '(custom-manual "(mh-e)Top") | |
939 :group 'mail) | |
940 | |
941 (defgroup mh-alias nil | |
942 "Aliases." | |
943 :link '(custom-manual "(mh-e)Aliases") | |
944 :prefix "mh-alias-" | |
945 :group 'mh-e) | |
946 | |
947 (defgroup mh-folder nil | |
948 "Organizing your mail with folders." | |
949 :prefix "mh-" | |
950 :link '(custom-manual "(mh-e)Folders") | |
951 :group 'mh-e) | |
952 | |
953 (defgroup mh-folder-selection nil | |
954 "Folder selection." | |
955 :prefix "mh-" | |
956 :link '(custom-manual "(mh-e)Folder Selection") | |
957 :group 'mh-e) | |
958 | |
959 (defgroup mh-identity nil | |
960 "Identities." | |
961 :link '(custom-manual "(mh-e)Identities") | |
962 :prefix "mh-identity-" | |
963 :group 'mh-e) | |
964 | |
965 (defgroup mh-inc nil | |
966 "Incorporating your mail." | |
967 :prefix "mh-inc-" | |
968 :link '(custom-manual "(mh-e)Incorporating Mail") | |
969 :group 'mh-e) | |
970 | |
971 (defgroup mh-junk nil | |
972 "Dealing with junk mail." | |
973 :link '(custom-manual "(mh-e)Junk") | |
974 :prefix "mh-junk-" | |
975 :group 'mh-e) | |
976 | |
977 (defgroup mh-letter nil | |
978 "Editing a draft." | |
979 :prefix "mh-" | |
980 :link '(custom-manual "(mh-e)Editing Drafts") | |
981 :group 'mh-e) | |
982 | |
983 (defgroup mh-ranges nil | |
984 "Ranges." | |
985 :prefix "mh-" | |
986 :link '(custom-manual "(mh-e)Ranges") | |
987 :group 'mh-e) | |
988 | |
989 (defgroup mh-scan-line-formats nil | |
990 "Scan line formats." | |
991 :link '(custom-manual "(mh-e)Scan Line Formats") | |
992 :prefix "mh-" | |
993 :group 'mh-e) | |
994 | |
995 (defgroup mh-search nil | |
996 "Searching." | |
997 :link '(custom-manual "(mh-e)Searching") | |
998 :prefix "mh-search-" | |
999 :group 'mh-e) | |
1000 | |
1001 (defgroup mh-sending-mail nil | |
1002 "Sending mail." | |
1003 :prefix "mh-" | |
1004 :link '(custom-manual "(mh-e)Sending Mail") | |
1005 :group 'mh-e) | |
1006 | |
1007 (defgroup mh-sequences nil | |
1008 "Sequences." | |
1009 :prefix "mh-" | |
1010 :link '(custom-manual "(mh-e)Sequences") | |
1011 :group 'mh-e) | |
1012 | |
1013 (defgroup mh-show nil | |
1014 "Reading your mail." | |
1015 :prefix "mh-" | |
1016 :link '(custom-manual "(mh-e)Reading Mail") | |
1017 :group 'mh-e) | |
1018 | |
1019 (defgroup mh-speedbar nil | |
1020 "The speedbar." | |
1021 :prefix "mh-speed-" | |
1022 :link '(custom-manual "(mh-e)Speedbar") | |
1023 :group 'mh-e) | |
1024 | |
1025 (defgroup mh-thread nil | |
1026 "Threading." | |
1027 :prefix "mh-thread-" | |
1028 :link '(custom-manual "(mh-e)Threading") | |
1029 :group 'mh-e) | |
1030 | |
1031 (defgroup mh-tool-bar nil | |
1032 "The tool bar" | |
1033 :link '(custom-manual "(mh-e)Tool Bar") | |
1034 :prefix "mh-" | |
1035 :group 'mh-e) | |
1036 | |
1037 (defgroup mh-hooks nil | |
1038 "MH-E hooks." | |
1039 :link '(custom-manual "(mh-e)Top") | |
1040 :prefix "mh-" | |
1041 :group 'mh-e) | |
1042 | |
1043 (defgroup mh-faces nil | |
1044 "Faces used in MH-E." | |
1045 :link '(custom-manual "(mh-e)Top") | |
1046 :prefix "mh-" | |
1047 :group 'faces | |
1048 :group 'mh-e) | |
1049 | |
1050 | |
1051 | |
1052 ;;; Emacs Interface to the MH Mail System (:group mh-e) | |
1053 | |
1054 ;; See Variant Support, above. | |
1055 | |
1056 ;;; Aliases (:group 'mh-alias) | |
1057 | |
1058 (defcustom mh-alias-completion-ignore-case-flag t | |
1059 "*Non-nil means don't consider case significant in MH alias completion. | |
1060 | |
1061 As MH ignores case in the aliases, so too does MH-E. However, you | |
1062 may turn off this option to make case significant which can be | |
1063 used to segregate completion of your aliases. You might use | |
1064 lowercase for mailing lists and uppercase for people." | |
1065 :type 'boolean | |
1066 :group 'mh-alias) | |
1067 | |
1068 (defcustom mh-alias-expand-aliases-flag nil | |
1069 "*Non-nil means to expand aliases entered in the minibuffer. | |
1070 | |
1071 In other words, aliases entered in the minibuffer will be | |
1072 expanded to the full address in the message draft. By default, | |
1073 this expansion is not performed." | |
1074 :type 'boolean | |
1075 :group 'mh-alias) | |
1076 | |
1077 (defcustom mh-alias-flash-on-comma t | |
1078 "*Specify whether to flash address or warn on translation. | |
1079 | |
1080 This option controls the behavior when a [comma] is pressed while | |
1081 entering aliases or addresses. The default setting flashes the | |
1082 address associated with an address in the minibuffer briefly, but | |
1083 does not display a warning if the alias is not found." | |
1084 :type '(choice (const :tag "Flash but Don't Warn If No Alias" t) | |
1085 (const :tag "Flash and Warn If No Alias" 1) | |
1086 (const :tag "Don't Flash Nor Warn If No Alias" nil)) | |
1087 :group 'mh-alias) | |
1088 | |
1089 (defcustom mh-alias-insert-file nil | |
1090 "*Filename used to store a new MH-E alias. | |
1091 | |
1092 The default setting of this option is \"Use Aliasfile Profile | |
1093 Component\". This option can also hold the name of a file or a | |
1094 list a file names. If this option is set to a list of file names, | |
1095 or the \"Aliasfile:\" profile component contains more than one file | |
1096 name, MH-E will prompt for one of them when MH-E adds an alias." | |
1097 :type '(choice (const :tag "Use Aliasfile Profile Component" nil) | |
1098 (file :tag "Alias File") | |
1099 (repeat :tag "List of Alias Files" file)) | |
1100 :group 'mh-alias) | |
1101 | |
1102 (defcustom mh-alias-insertion-location 'sorted | |
1103 "Specifies where new aliases are entered in alias files. | |
1104 | |
1105 This option is set to \"Alphabetical\" by default. If you organize | |
1106 your alias file in other ways, then adding aliases to the \"Top\" | |
1107 or \"Bottom\" of your alias file might be more appropriate." | |
1108 :type '(choice (const :tag "Alphabetical" sorted) | |
1109 (const :tag "Top" top) | |
1110 (const :tag "Bottom" bottom)) | |
1111 :group 'mh-alias) | |
1112 | |
1113 (defcustom mh-alias-local-users t | |
1114 "*If on, local users are added to alias completion. | |
1115 | |
1116 Aliases are created from \"/etc/passwd\" entries with a user ID | |
1117 larger than a magical number, typically 200. This can be a handy | |
1118 tool on a machine where you and co-workers exchange messages. | |
1119 These aliases have the form \"local.first.last\" if a real name is | |
1120 present in the password file. Otherwise, the alias will have the | |
1121 form \"local.login\". | |
1122 | |
1123 If you're on a system with thousands of users you don't know, and | |
1124 the loading of local aliases slows MH-E down noticeably, then | |
1125 turn this option off. | |
1126 | |
1127 This option also takes a string which is executed to generate the | |
1128 password file. For example, use \"ypcat passwd\" to obtain the | |
1129 NIS password file." | |
1130 :type '(choice (boolean) (string)) | |
1131 :group 'mh-alias) | |
1132 | |
1133 (defcustom mh-alias-local-users-prefix "local." | |
1134 "*String prefixed to the real names of users from the password file. | |
1135 This option can also be set to \"Use Login\". | |
1136 | |
1137 For example, consider the following password file entry: | |
1138 | |
1139 psg:x:1000:1000:Peter S Galbraith,,,:/home/psg:/bin/tcsh | |
1140 | |
1141 The following settings of this option will produce the associated | |
1142 aliases: | |
1143 | |
1144 \"local.\" local.peter.galbraith | |
1145 \"\" peter.galbraith | |
1146 Use Login psg | |
1147 | |
1148 This option has no effect if variable `mh-alias-local-users' is | |
1149 turned off." | |
1150 :type '(choice (const :tag "Use Login" nil) | |
1151 (string)) | |
1152 :group 'mh-alias) | |
1153 | |
1154 (defcustom mh-alias-passwd-gecos-comma-separator-flag t | |
1155 "*Non-nil means the gecos field in the password file uses a comma separator. | |
1156 | |
1157 In the example in `mh-alias-local-users-prefix', commas are used | |
1158 to separate different values within the so-called gecos field. | |
1159 This is a fairly common usage. However, in the rare case that the | |
1160 gecos field in your password file is not separated by commas and | |
1161 whose contents may contain commas, you can turn this option off." | |
1162 :type 'boolean | |
1163 :group 'mh-alias) | |
1164 | |
1165 | |
1166 | |
1167 ;;; Organizing Your Mail with Folders (:group 'mh-folder) | |
1168 | |
1169 (defcustom mh-new-messages-folders t | |
1170 "Folders searched for the \"unseen\" sequence. | |
1171 | |
1172 Set this option to \"Inbox\" to search the \"+inbox\" folder or | |
1173 \"All\" to search all of the top level folders. Otherwise, list | |
1174 the folders that should be searched with the \"Choose Folders\" | |
1175 menu item. | |
1176 | |
1177 See also `mh-recursive-folders-flag'." | |
1178 :type '(choice (const :tag "Inbox" t) | |
1179 (const :tag "All" nil) | |
1180 (repeat :tag "Choose Folders" (string :tag "Folder"))) | |
1181 :group 'mh-folder) | |
1182 | |
1183 (defcustom mh-ticked-messages-folders t | |
1184 "Folders searched for `mh-tick-seq'. | |
1185 | |
1186 Set this option to \"Inbox\" to search the \"+inbox\" folder or | |
1187 \"All\" to search all of the top level folders. Otherwise, list | |
1188 the folders that should be searched with the \"Choose Folders\" | |
1189 menu item. | |
1190 | |
1191 See also `mh-recursive-folders-flag'." | |
1192 :type '(choice (const :tag "Inbox" t) | |
1193 (const :tag "All" nil) | |
1194 (repeat :tag "Choose Folders" (string :tag "Folder"))) | |
1195 :group 'mh-folder) | |
1196 | |
1197 (defcustom mh-large-folder 200 | |
1198 "The number of messages that indicates a large folder. | |
1199 | |
1200 If a folder is deemed to be large, that is the number of messages | |
1201 in it exceed this value, then confirmation is needed when it is | |
1202 visited. Even when `mh-show-threads-flag' is non-nil, the folder | |
1203 is not automatically threaded, if it is large. If set to nil all | |
1204 folders are treated as if they are small." | |
1205 :type '(choice (const :tag "No Limit") integer) | |
1206 :group 'mh-folder) | |
1207 | |
1208 (defcustom mh-recenter-summary-flag nil | |
1209 "*Non-nil means to recenter the summary window. | |
1210 | |
1211 If this option is turned on, recenter the summary window when the | |
1212 show window is toggled off." | |
1213 :type 'boolean | |
1214 :group 'mh-folder) | |
1215 | |
1216 (defcustom mh-recursive-folders-flag nil | |
1217 "*Non-nil means that commands which operate on folders do so recursively." | |
1218 :type 'boolean | |
1219 :group 'mh-folder) | |
1220 | |
1221 (defcustom mh-sortm-args nil | |
1222 "*Additional arguments for \"sortm\"\\<mh-folder-mode-map>. | |
1223 | |
1224 This option is consulted when a prefix argument is used with | |
1225 \\[mh-sort-folder]. Normally default arguments to \"sortm\" are | |
1226 specified in the MH profile. This option may be used to provide | |
1227 an alternate view. For example, \"'(\"-nolimit\" \"-textfield\" | |
1228 \"subject\")\" is a useful setting." | |
1229 :type 'string | |
1230 :group 'mh-folder) | |
1231 | |
1232 | |
1233 | |
1234 ;;; Folder Selection (:group 'mh-folder-selection) | |
1235 | |
1236 (defcustom mh-default-folder-for-message-function nil | |
1237 "Function to select a default folder for refiling or \"Fcc:\". | |
1238 | |
1239 The current buffer is set to the message being refiled with point | |
1240 at the start of the message. This function should return the | |
1241 default folder as a string with a leading \"+\" sign. It can also | |
1242 return nil so that the last folder name is used as the default, | |
1243 or an empty string to suppress the default entirely." | |
1244 :type 'function | |
1245 :group 'mh-folder-selection) | |
1246 | |
1247 (defcustom mh-default-folder-list nil | |
1248 "*List of addresses and folders. | |
1249 | |
1250 The folder name associated with the first address found in this | |
1251 list is used as the default for `mh-refile-msg' and similar | |
1252 functions. Each element in this list contains a \"Check Recipient\" | |
1253 item. If this item is turned on, then the address is checked | |
1254 against the recipient instead of the sender. This is useful for | |
1255 mailing lists. | |
1256 | |
1257 See `mh-prompt-for-refile-folder' and `mh-folder-from-address' | |
1258 for more information." | |
1259 :type '(repeat (list (regexp :tag "Address") | |
1260 (string :tag "Folder") | |
1261 (boolean :tag "Check Recipient"))) | |
1262 :group 'mh-folder-selection) | |
1263 | |
1264 (defcustom mh-default-folder-must-exist-flag t | |
1265 "*Non-nil means guessed folder name must exist to be used. | |
1266 | |
1267 If the derived folder does not exist, and this option is on, then | |
1268 the last folder name used is suggested. This is useful if you get | |
1269 mail from various people for whom you have an alias, but file | |
1270 them all in the same project folder. | |
1271 | |
1272 See `mh-prompt-for-refile-folder' and `mh-folder-from-address' | |
1273 for more information." | |
1274 :type 'boolean | |
1275 :group 'mh-folder-selection) | |
1276 | |
1277 (defcustom mh-default-folder-prefix "" | |
1278 "*Prefix used for folder names generated from aliases. | |
1279 The prefix is used to prevent clutter in your mail directory. | |
1280 | |
1281 See `mh-prompt-for-refile-folder' and `mh-folder-from-address' | |
1282 for more information." | |
1283 :type 'string | |
1284 :group 'mh-folder-selection) | |
1285 | |
1286 | |
1287 | |
1288 ;;; Identities (:group 'mh-identity) | |
1289 | |
1290 (eval-and-compile | |
1291 (unless (fboundp 'mh-identity-make-menu-no-autoload) | |
1292 (defun mh-identity-make-menu-no-autoload () | |
1293 "Temporary definition. | |
1294 Real definition will take effect when mh-identity is loaded." | |
1295 nil))) | |
1296 | |
1297 (defcustom mh-identity-list nil | |
1298 "*List of identities. | |
1299 | |
1300 To customize this option, click on the \"INS\" button and enter a label | |
1301 such as \"Home\" or \"Work\". Then click on the \"INS\" button with the | |
1302 label \"Add at least one item below\". Then choose one of the items in | |
1303 the \"Value Menu\". | |
1304 | |
1305 You can specify an alternate \"From:\" header field using the \"From | |
1306 Field\" menu item. You must include a valid email address. A standard | |
1307 format is \"First Last <login@@host.domain>\". If you use an initial | |
1308 with a period, then you must quote your name as in '\"First I. Last\" | |
1309 <login@@host.domain>'. People usually list the name of the company | |
1310 where they work using the \"Organization Field\" menu item. Set any | |
1311 arbitrary header field and value in the \"Other Field\" menu item. | |
1312 Unless the header field is a standard one, precede the name of your | |
1313 field's label with \"X-\", as in \"X-Fruit-of-the-Day:\". The value of | |
1314 \"Attribution Verb\" overrides the setting of | |
1315 `mh-extract-from-attribution-verb'. Set your signature with the | |
1316 \"Signature\" menu item. You can specify the contents of | |
1317 `mh-signature-file-name', a file, or a function. Specify a different | |
1318 key to sign or encrypt messages with the \"GPG Key ID\" menu item. | |
1319 | |
1320 You can select the identities you have added via the menu called | |
1321 \"Identity\" in the MH-Letter buffer. You can also use | |
1322 \\[mh-insert-identity]. To clear the fields and signature added by the | |
1323 identity, select the \"None\" identity. | |
1324 | |
1325 The \"Identity\" menu contains two other items to save you from having | |
1326 to set the identity on every message. The menu item \"Set Default for | |
1327 Session\" can be used to set the default identity to the current | |
1328 identity until you exit Emacs. The menu item \"Save as Default\" sets | |
1329 the option `mh-identity-default' to the current identity setting. You | |
1330 can also customize the `mh-identity-default' option in the usual | |
1331 fashion." | |
1332 :type '(repeat (list :tag "" | |
1333 (string :tag "Label") | |
1334 (repeat :tag "Add at least one item below" | |
1335 (choice | |
1336 (cons :tag "From Field" | |
1337 (const "From") | |
1338 (string :tag "Value")) | |
1339 (cons :tag "Organization Field" | |
1340 (const "Organization") | |
1341 (string :tag "Value")) | |
1342 (cons :tag "Other Field" | |
1343 (string :tag "Field") | |
1344 (string :tag "Value")) | |
1345 (cons :tag "Attribution Verb" | |
1346 (const ":attribution-verb") | |
1347 (string :tag "Value")) | |
1348 (cons :tag "Signature" | |
1349 (const :tag "Signature" | |
1350 ":signature") | |
1351 (choice | |
1352 (const :tag "mh-signature-file-name" | |
1353 nil) | |
1354 (file) | |
1355 (function))) | |
1356 (cons :tag "GPG Key ID" | |
1357 (const :tag "GPG Key ID" | |
1358 ":pgg-default-user-id") | |
1359 (string :tag "Value")))))) | |
1360 :set (lambda (symbol value) | |
1361 (set-default symbol value) | |
1362 (mh-identity-make-menu-no-autoload)) | |
1363 :group 'mh-identity) | |
1364 | |
1365 (defcustom mh-auto-fields-list nil | |
1366 "List of recipients for which header lines are automatically inserted. | |
1367 | |
1368 This option can be used to set the identity depending on the | |
1369 recipient. To customize this option, click on the \"INS\" button and | |
1370 enter a regular expression for the recipient's address. Click on the | |
1371 \"INS\" button with the \"Add at least one item below\" label. Then choose | |
1372 one of the items in the \"Value Menu\". | |
1373 | |
1374 The \"Identity\" menu item is used to select an identity from those | |
1375 configured in `mh-identity-list'. All of the information for that | |
1376 identity will be added if the recipient matches. The \"Fcc Field\" menu | |
1377 item is used to select a folder that is used in the \"Fcc:\" header. | |
1378 When you send the message, MH will put a copy of your message in this | |
1379 folder. The \"Mail-Followup-To Field\" menu item is used to insert an | |
1380 \"Mail-Followup-To:\" header field with the recipients you provide. If | |
1381 the recipient's mail user agent supports this header field (as nmh | |
1382 does), then their replies will go to the addresses listed. This is | |
1383 useful if their replies go both to the list and to you and you don't | |
1384 have a mechanism to suppress duplicates. If you reply to someone not | |
1385 on the list, you must either remove the \"Mail-Followup-To:\" field, or | |
1386 ensure the recipient is also listed there so that he receives replies | |
1387 to your reply. Other header fields may be added using the \"Other | |
1388 Field\" menu item. | |
1389 | |
1390 These fields can only be added after the recipient is known. Once the | |
1391 header contains one or more recipients, run the | |
1392 \\[mh-insert-auto-fields] command or choose the \"Identity -> Insert | |
1393 Auto Fields\" menu item to insert these fields manually. However, you | |
1394 can just send the message and the fields will be added automatically. | |
1395 You are given a chance to see these fields and to confirm them before | |
1396 the message is actually sent. You can do away with this confirmation | |
1397 by turning off the option `mh-auto-fields-prompt-flag'. | |
1398 | |
1399 You should avoid using the same header field in `mh-auto-fields-list' | |
1400 and `mh-identity-list' definitions that may apply to the same message | |
1401 as the result is undefined." | |
1402 :type `(repeat | |
1403 (list :tag "" | |
1404 (string :tag "Recipient") | |
1405 (repeat :tag "Add at least one item below" | |
1406 (choice | |
1407 (cons :tag "Identity" | |
1408 (const ":identity") | |
1409 ,(append | |
1410 '(radio) | |
1411 (mapcar | |
1412 (function (lambda (arg) `(const ,arg))) | |
1413 (mapcar 'car mh-identity-list)))) | |
1414 (cons :tag "Fcc Field" | |
1415 (const "fcc") | |
1416 (string :tag "Value")) | |
1417 (cons :tag "Mail-Followup-To Field" | |
1418 (const "Mail-Followup-To") | |
1419 (string :tag "Value")) | |
1420 (cons :tag "Other Field" | |
1421 (string :tag "Field") | |
1422 (string :tag "Value")))))) | |
1423 :group 'mh-identity) | |
1424 | |
1425 (defcustom mh-auto-fields-prompt-flag t | |
1426 "*Non-nil means to prompt before sending if fields inserted. | |
1427 See `mh-auto-fields-list'." | |
1428 :type 'boolean | |
1429 :group 'mh-identity) | |
1430 | |
1431 (defcustom mh-identity-default nil | |
1432 "Default identity to use when `mh-letter-mode' is called. | |
1433 See `mh-identity-list'." | |
1434 :type (append | |
1435 '(radio) | |
1436 (cons '(const :tag "None" nil) | |
1437 (mapcar (function (lambda (arg) `(const ,arg))) | |
1438 (mapcar 'car mh-identity-list)))) | |
1439 :group 'mh-identity) | |
1440 | |
1441 (defcustom mh-identity-handlers | |
1442 '(("From" . mh-identity-handler-top) | |
1443 (":default" . mh-identity-handler-bottom) | |
1444 (":attribution-verb" . mh-identity-handler-attribution-verb) | |
1445 (":signature" . mh-identity-handler-signature) | |
1446 (":pgg-default-user-id" . mh-identity-handler-gpg-identity)) | |
1447 "Handler functions for fields in `mh-identity-list'. | |
1448 | |
1449 This option is used to change the way that fields, signatures, | |
1450 and attributions in `mh-identity-list' are added. To customize | |
1451 `mh-identity-handlers', replace the name of an existing handler | |
1452 function associated with the field you want to change with the | |
1453 name of a function you have written. You can also click on an | |
1454 \"INS\" button and insert a field of your choice and the name of | |
1455 the function you have written to handle it. | |
1456 | |
1457 The \"Field\" field can be any field that you've used in your | |
1458 `mh-identity-list'. The special fields \":attribution-verb\", | |
1459 \":signature\", or \":pgg-default-user-id\" are used for the | |
1460 `mh-identity-list' choices \"Attribution Verb\", \"Signature\", and | |
1461 \"GPG Key ID\" respectively. | |
1462 | |
1463 The handler associated with the \":default\" field is used when no | |
1464 other field matches. | |
1465 | |
1466 The handler functions are passed two or three arguments: the | |
1467 FIELD itself (for example, \"From\"), or one of the special | |
1468 fields (for example, \":signature\"), and the ACTION 'remove or | |
1469 'add. If the action is 'add, an additional argument | |
1470 containing the VALUE for the field is given." | |
1471 :type '(repeat (cons (string :tag "Field") function)) | |
1472 :group 'mh-identity) | |
1473 | |
1474 | |
1475 | |
1476 ;;; Incorporating Your Mail (:group 'mh-inc) | |
1477 | |
1478 (defcustom mh-inc-prog "inc" | |
1479 "*Program to incorporate new mail into a folder. | |
1480 | |
1481 This program generates a one-line summary for each of the new | |
1482 messages. Unless it is an absolute pathname, the file is assumed | |
1483 to be in the `mh-progs' directory. You may also link a file to | |
1484 \"inc\" that uses a different format. You'll then need to modify | |
1485 several scan line format variables appropriately." | |
1486 :type 'string | |
1487 :group 'mh-inc) | |
1488 | |
1489 (eval-and-compile | |
1490 (unless (fboundp 'mh-inc-spool-make-no-autoload) | |
1491 (defun mh-inc-spool-make-no-autoload () | |
1492 "Temporary definition. | |
1493 Real definition will take effect when mh-inc is loaded." | |
1494 nil))) | |
1495 | |
1496 (defcustom mh-inc-spool-list nil | |
1497 "*Alternate spool files. | |
1498 | |
1499 You can use the `mh-inc-spool-list' variable to direct MH-E to | |
1500 retrieve mail from arbitrary spool files other than your system | |
1501 mailbox, file it in folders other than your \"+inbox\", and assign | |
1502 key bindings to incorporate this mail. | |
1503 | |
1504 Suppose you are subscribed to the \"mh-e-devel\" mailing list and | |
1505 you use \"procmail\" to filter this mail into \"~/mail/mh-e\" with | |
1506 the following recipe in \".procmailrc\": | |
1507 | |
1508 MAILDIR=$HOME/mail | |
1509 :0: | |
1510 * ^From mh-e-devel-admin@stop.mail-abuse.org | |
1511 mh-e | |
1512 | |
1513 In order to incorporate \"~/mail/mh-e\" into \"+mh-e\" with an | |
1514 \"I m\" (mh-inc-spool-mh-e) command, customize this option, and click | |
1515 on the \"INS\" button. Enter a \"Spool File\" of \"~/mail/mh-e\", a | |
1516 \"Folder\" of \"mh-e\", and a \"Key Binding\" of \"m\". | |
1517 | |
1518 You can use \"xbuffy\" to automate the incorporation of this mail | |
68622
8e332f1560b0
(mh-inc-spool-list): Update example for Emacs 22 which has an
Bill Wohler <wohler@newt.com>
parents:
68605
diff
changeset
|
1519 using the Emacs 22 command \"emacsclient\" as follows: |
68465 | 1520 |
1521 box ~/mail/mh-e | |
1522 title mh-e | |
1523 origMode | |
1524 polltime 10 | |
1525 headertime 0 | |
68622
8e332f1560b0
(mh-inc-spool-list): Update example for Emacs 22 which has an
Bill Wohler <wohler@newt.com>
parents:
68605
diff
changeset
|
1526 command emacsclient --eval '(mh-inc-spool-mh-e)' |
8e332f1560b0
(mh-inc-spool-list): Update example for Emacs 22 which has an
Bill Wohler <wohler@newt.com>
parents:
68605
diff
changeset
|
1527 |
8e332f1560b0
(mh-inc-spool-list): Update example for Emacs 22 which has an
Bill Wohler <wohler@newt.com>
parents:
68605
diff
changeset
|
1528 In XEmacs, the command \"gnuclient\" is used in a similar |
8e332f1560b0
(mh-inc-spool-list): Update example for Emacs 22 which has an
Bill Wohler <wohler@newt.com>
parents:
68605
diff
changeset
|
1529 fashion." |
68465 | 1530 :type '(repeat (list (file :tag "Spool File") |
1531 (string :tag "Folder") | |
1532 (character :tag "Key Binding"))) | |
1533 :set (lambda (symbol value) | |
1534 (set-default symbol value) | |
1535 (mh-inc-spool-make-no-autoload)) | |
1536 :group 'mh-inc) | |
1537 | |
1538 | |
1539 | |
1540 ;;; Dealing with Junk Mail (:group 'mh-junk) | |
1541 | |
1542 (defvar mh-junk-choice nil | |
1543 "Chosen spam fighting program.") | |
1544 | |
1545 ;; Available spam filter interfaces | |
1546 (defvar mh-junk-function-alist | |
1547 '((spamassassin mh-spamassassin-blacklist mh-spamassassin-whitelist) | |
1548 (bogofilter mh-bogofilter-blacklist mh-bogofilter-whitelist) | |
1549 (spamprobe mh-spamprobe-blacklist mh-spamprobe-whitelist)) | |
1550 "Available choices of spam programs to use. | |
1551 | |
1552 This is an alist. For each element there are functions that | |
1553 blacklist a message as spam and whitelist a message incorrectly | |
1554 classified as spam.") | |
1555 | |
1556 (defun mh-junk-choose (symbol value) | |
1557 "Choose spam program to use. | |
1558 | |
1559 The function is always called with SYMBOL bound to | |
1560 `mh-junk-program' and VALUE bound to the new value of | |
1561 `mh-junk-program'. The function sets the variable | |
1562 `mh-junk-choice' in addition to `mh-junk-program'." | |
1563 (set symbol value) ;XXX shouldn't this be set-default? | |
1564 (setq mh-junk-choice | |
1565 (or value | |
1566 (loop for element in mh-junk-function-alist | |
1567 until (executable-find (symbol-name (car element))) | |
1568 finally return (car element))))) | |
1569 | |
1570 (defcustom mh-junk-background nil | |
1571 "If on, spam programs are run in background. | |
1572 | |
1573 By default, the programs are run in the foreground, but this can | |
1574 be slow when junking large numbers of messages. If you have | |
1575 enough memory or don't junk that many messages at the same time, | |
1576 you might try turning on this option." | |
1577 :type '(choice (const :tag "Off" nil) | |
1578 (const :tag "On" 0)) | |
1579 :group 'mh-junk) | |
1580 | |
1581 (defcustom mh-junk-disposition nil | |
1582 "Disposition of junk mail." | |
1583 :type '(choice (const :tag "Delete Spam" nil) | |
1584 (string :tag "Spam Folder")) | |
1585 :group 'mh-junk) | |
1586 | |
1587 (defcustom mh-junk-program nil | |
1588 "Spam program that MH-E should use. | |
1589 | |
1590 The default setting of this option is \"Auto-detect\" which means | |
1591 that MH-E will automatically choose one of SpamAssassin, | |
1592 bogofilter, or SpamProbe in that order. If, for example, you have | |
1593 both SpamAssassin and bogofilter installed and you want to use | |
1594 bogofilter, then you can set this option to \"Bogofilter\"." | |
1595 :type '(choice (const :tag "Auto-detect" nil) | |
1596 (const :tag "SpamAssassin" spamassassin) | |
1597 (const :tag "Bogofilter" bogofilter) | |
1598 (const :tag "SpamProbe" spamprobe)) | |
1599 :set 'mh-junk-choose | |
1600 :group 'mh-junk) | |
1601 | |
1602 | |
1603 | |
1604 ;;; Editing a Draft (:group 'mh-letter) | |
1605 | |
1606 (defcustom mh-compose-insertion (if (locate-library "mml") 'mml 'mh) | |
1607 "Type of tags used when composing MIME messages. | |
1608 | |
1609 In addition to MH-style directives, MH-E also supports MML (MIME | |
1610 Meta Language) tags. (see Info node `(emacs-mime)Composing'). | |
1611 This option can be used to choose between them. By default, this | |
1612 option is set to \"MML\" if it is supported since it provides a | |
1613 lot more functionality. This option can also be set to \"MH\" if | |
1614 MH-style directives are preferred." | |
1615 :type '(choice (const :tag "MML" mml) | |
1616 (const :tag "MH" mh)) | |
1617 :group 'mh-letter) | |
1618 | |
1619 (defcustom mh-compose-skipped-header-fields | |
1620 '("From" "Organization" "References" "In-Reply-To" | |
1621 "X-Face" "Face" "X-Image-URL" "X-Mailer") | |
1622 "List of header fields to skip over when navigating in draft." | |
1623 :type '(repeat (string :tag "Field")) | |
1624 :group 'mh-letter) | |
1625 | |
1626 (defcustom mh-compose-space-does-completion-flag nil | |
1627 "*Non-nil means \\<mh-letter-mode-map>\\[mh-letter-complete-or-space] does completion in message header." | |
1628 :type 'boolean | |
1629 :group 'mh-letter) | |
1630 | |
1631 (defcustom mh-delete-yanked-msg-window-flag nil | |
1632 "*Non-nil means delete any window displaying the message. | |
1633 | |
1634 This deletes the window containing the original message after | |
1635 yanking it with \\<mh-letter-mode-map>\\[mh-yank-cur-msg] to make | |
1636 more room on your screen for your reply." | |
1637 :type 'boolean | |
1638 :group 'mh-letter) | |
1639 | |
1640 (defcustom mh-extract-from-attribution-verb "wrote:" | |
1641 "*Verb to use for attribution when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg]. | |
1642 | |
1643 The attribution consists of the sender's name and email address | |
1644 followed by the content of this option. This option can be set to | |
1645 \"wrote:\", \"a écrit:\", and \"schrieb:\". You can also use the | |
1646 \"Custom String\" menu item to enter your own verb." | |
1647 :type '(choice (const "wrote:") | |
1648 (const "a écrit:") | |
1649 (const "schrieb:") | |
1650 (string :tag "Custom String")) | |
1651 :group 'mh-letter) | |
1652 | |
1653 (defcustom mh-ins-buf-prefix "> " | |
1654 "*String to put before each line of a yanked or inserted message. | |
1655 | |
1656 The prefix \"> \" is the default setting of this option. I | |
1657 suggest that you not modify this option since it is used by many | |
1658 mailers and news readers: messages are far easier to read if | |
1659 several included messages have all been indented by the same | |
1660 string. | |
1661 | |
1662 This prefix is not inserted if you use one of the supercite | |
1663 flavors of `mh-yank-behavior' or you have added a | |
1664 `mail-citation-hook'." | |
1665 :type 'string | |
1666 :group 'mh-letter) | |
1667 | |
1668 (defcustom mh-letter-complete-function 'ispell-complete-word | |
1669 "*Function to call when completing outside of address or folder fields. | |
1670 | |
1671 In the body of the message, | |
1672 \\<mh-letter-mode-map>\\[mh-letter-complete] runs this function, | |
1673 which is set to \"ispell-complete-word\" by default." | |
1674 :type '(choice function (const nil)) | |
1675 :group 'mh-letter) | |
1676 | |
1677 (defcustom mh-letter-fill-column 72 | |
1678 "*Fill column to use in MH Letter mode. | |
1679 | |
1680 By default, this option is 72 to allow others to quote your | |
1681 message without line wrapping." | |
1682 :type 'integer | |
1683 :group 'mh-letter) | |
1684 | |
1685 (defcustom mh-mml-method-default (if mh-pgp-support-flag "pgpmime" "none") | |
1686 "Default method to use in security tags. | |
1687 | |
1688 This option is used to select between a variety of mail security | |
1689 mechanisms. The default is \"PGP (MIME)\" if it is supported\; | |
1690 otherwise, the default is \"None\". Other mechanisms include | |
1691 vanilla \"PGP\" and \"S/MIME\". | |
1692 | |
1693 The `pgg' customization group may have some settings which may | |
1694 interest you (see Info node `(pgg)'). | |
1695 | |
1696 In particular, I turn on the option `pgg-encrypt-for-me' so that | |
1697 all messages I encrypt are encrypted with my public key as well. | |
1698 If you keep a copy of all of your outgoing mail with a \"Fcc:\" | |
1699 header field, this setting is vital so that you can read the mail | |
1700 you write!" | |
1701 :type '(choice (const :tag "PGP (MIME)" "pgpmime") | |
1702 (const :tag "PGP" "pgp") | |
1703 (const :tag "S/MIME" "smime") | |
1704 (const :tag "None" "none")) | |
1705 :group 'mh-letter) | |
1706 | |
1707 (defcustom mh-signature-file-name "~/.signature" | |
1708 "*Source of user's signature. | |
1709 | |
1710 By default, the text of your signature is taken from the file | |
1711 \"~/.signature\". You can read from other sources by changing this | |
1712 option. This file may contain a vCard in which case an attachment is | |
1713 added with the vCard. | |
1714 | |
1715 This option may also be a symbol, in which case that function is | |
1716 called. You may not want a signature separator to be added for you; | |
1717 instead you may want to insert one yourself. Options that you may find | |
1718 useful to do this include `mh-signature-separator' (when inserting a | |
1719 signature separator) and `mh-signature-separator-regexp' (for finding | |
1720 said separator). The function `mh-signature-separator-p', which | |
1721 reports t if the buffer contains a separator, may be useful as well. | |
1722 | |
1723 The signature is inserted into your message with the command | |
1724 \\<mh-letter-mode-map>\\[mh-insert-signature] or with the option | |
1725 `mh-identity-list'." | |
1726 :type 'file | |
1727 :group 'mh-letter) | |
1728 | |
1729 (defcustom mh-signature-separator-flag t | |
1730 "*Non-nil means a signature separator should be inserted. | |
1731 | |
1732 It is not recommended that you change this option since various | |
1733 mail user agents, including MH-E, use the separator to present | |
1734 the signature differently, and to suppress the signature when | |
1735 replying or yanking a letter into a draft." | |
1736 :type 'boolean | |
1737 :group 'mh-letter) | |
1738 | |
1739 (defcustom mh-x-face-file "~/.face" | |
1740 "*File containing face header field to insert in outgoing mail. | |
1741 | |
1742 If the file starts with either of the strings \"X-Face:\", \"Face:\" | |
1743 or \"X-Image-URL:\" then the contents are added to the message header | |
1744 verbatim. Otherwise it is assumed that the file contains the value of | |
1745 the \"X-Face:\" header field. | |
1746 | |
1747 The \"X-Face:\" header field, which is a low-resolution, black and | |
1748 white image, can be generated using the \"compface\" command (see URL | |
1749 `ftp://ftp.cs.indiana.edu/pub/faces/compface/compface.tar.Z'). The | |
1750 \"Online X-Face Converter\" is a useful resource for quick conversion | |
1751 of images into \"X-Face:\" header fields (see URL | |
1752 `http://www.dairiki.org/xface/'). | |
1753 | |
1754 Use the \"make-face\" script to convert a JPEG image to the higher | |
1755 resolution, color, \"Face:\" header field (see URL | |
1756 `http://quimby.gnus.org/circus/face/make-face'). | |
1757 | |
1758 The URL of any image can be used for the \"X-Image-URL:\" field and no | |
1759 processing of the image is required. | |
1760 | |
1761 To prevent the setting of any of these header fields, either set | |
1762 `mh-x-face-file' to nil, or simply ensure that the file defined by | |
1763 this option doesn't exist." | |
1764 :type 'file | |
1765 :group 'mh-letter) | |
1766 | |
1767 (defcustom mh-yank-behavior 'attribution | |
1768 "*Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg]. | |
1769 | |
1770 To include the entire message, including the entire header, use | |
1771 \"Body and Header\". Use \"Body\" to yank just the body without | |
1772 the header. To yank only the portion of the message following the | |
1773 point, set this option to \"Below Point\". | |
1774 | |
1775 Choose \"Invoke supercite\" to pass the entire message and header | |
1776 through supercite. | |
1777 | |
1778 If the \"Body With Attribution\" setting is used, then the | |
1779 message minus the header is yanked and a simple attribution line | |
1780 is added at the top using the value of the option | |
1781 `mh-extract-from-attribution-verb'. This is the default. | |
1782 | |
1783 If the \"Invoke supercite\" or \"Body With Attribution\" settings | |
1784 are used, the \"-noformat\" argument is passed to the \"repl\" | |
1785 program to override a \"-filter\" or \"-format\" argument. These | |
1786 settings also have \"Automatically\" variants that perform the | |
1787 action automatically when you reply so that you don't need to use | |
1788 \\[mh-yank-cur-msg] at all. Note that this automatic action is | |
1789 only performed if the show buffer matches the message being | |
1790 replied to. People who use the automatic variants tend to turn on | |
1791 the option `mh-delete-yanked-msg-window-flag' as well so that the | |
1792 show window is never displayed. | |
1793 | |
1794 If the show buffer has a region, the option `mh-yank-behavior' is | |
1795 ignored unless its value is one of Attribution variants in which | |
1796 case the attribution is added to the yanked region. | |
1797 | |
1798 If this option is set to one of the supercite flavors, the hook | |
1799 `mail-citation-hook' is ignored and `mh-ins-buf-prefix' is not | |
1800 inserted." | |
1801 :type '(choice (const :tag "Body and Header" t) | |
1802 (const :tag "Body" body) | |
1803 (const :tag "Below Point" nil) | |
1804 (const :tag "Invoke supercite" supercite) | |
1805 (const :tag "Invoke supercite, Automatically" autosupercite) | |
1806 (const :tag "Body With Attribution" attribution) | |
1807 (const :tag "Body With Attribution, Automatically" | |
1808 autoattrib)) | |
1809 :group 'mh-letter) | |
1810 | |
1811 | |
1812 | |
1813 ;;; Ranges (:group 'mh-ranges) | |
1814 | |
1815 (defcustom mh-interpret-number-as-range-flag t | |
1816 "*Non-nil means interpret a number as a range. | |
1817 | |
1818 Since one of the most frequent ranges used is \"last:N\", MH-E | |
1819 will interpret input such as \"200\" as \"last:200\" if this | |
1820 option is on (which is the default). If you need to scan just the | |
1821 message 200, then use the range \"200:200\"." | |
1822 :type 'boolean | |
1823 :group 'mh-ranges) | |
1824 | |
1825 | |
1826 | |
1827 ;;; Scan Line Formats (:group 'mh-scan-line-formats) | |
1828 | |
1829 (eval-and-compile | |
1830 (unless (fboundp 'mh-adaptive-cmd-note-flag-check) | |
1831 (defun mh-adaptive-cmd-note-flag-check (symbol value) | |
1832 "Temporary definition. | |
1833 Real definition, below, uses variables that aren't defined yet." | |
1834 (set-default symbol value)))) | |
1835 | |
1836 (defcustom mh-adaptive-cmd-note-flag t | |
1837 "*Non-nil means that the message number width is determined dynamically. | |
1838 | |
1839 If you've created your own format to handle long message numbers, | |
1840 you'll be pleased to know you no longer need it since MH-E adapts its | |
1841 internal format based upon the largest message number if this option | |
1842 is on (the default). This option may only be turned on when | |
1843 `mh-scan-format-file' is set to \"Use MH-E scan Format\". | |
1844 | |
1845 If you prefer fixed-width message numbers, turn off this option and | |
1846 call `mh-set-cmd-note' with the width specified by your format file | |
1847 \(see `mh-scan-format-file'). For example, the default width is 4, so | |
1848 you would use \"(mh-set-cmd-note 4)\"." | |
1849 :type 'boolean | |
1850 :group 'mh-scan-line-formats | |
1851 :set 'mh-adaptive-cmd-note-flag-check) | |
1852 | |
1853 (defun mh-scan-format-file-check (symbol value) | |
1854 "Check if desired setting is legal. | |
1855 Throw an error if user tries to set `mh-scan-format-file' to | |
1856 anything but t when `mh-adaptive-cmd-note-flag' is on. Otherwise, | |
1857 set SYMBOL to VALUE." | |
1858 (if (and (not (eq value t)) | |
68484
d5026c3051b9
(mh-scan-format-file-check): Allow any non-nil for
Bill Wohler <wohler@newt.com>
parents:
68475
diff
changeset
|
1859 mh-adaptive-cmd-note-flag) |
68465 | 1860 (error "%s %s" "You must turn off `mh-adaptive-cmd-note-flag'" |
1861 "unless you use \"Use MH-E scan Format\"") | |
1862 (set-default symbol value))) | |
1863 | |
1864 (defcustom mh-scan-format-file t | |
1865 "Specifies the format file to pass to the scan program. | |
1866 | |
1867 The default setting for this option is \"Use MH-E scan Format\". This | |
1868 means that the format string will be taken from the either | |
1869 `mh-scan-format-mh' or `mh-scan-format-nmh' depending on whether MH or | |
1870 nmh (or GNU mailutils) is in use. This setting also enables you to | |
1871 turn on the `mh-adaptive-cmd-note-flag' option. | |
1872 | |
1873 You can also set this option to \"Use Default scan Format\" to get the | |
1874 same output as you would get if you ran \"scan\" from the shell. If | |
1875 you have a format file that you want MH-E to use but not MH, you can | |
1876 set this option to \"Specify a scan Format File\" and enter the name | |
1877 of your format file. | |
1878 | |
1879 If you change the format of the scan lines you'll need to tell MH-E | |
1880 how to parse the new format. As you will see, quite a lot of variables | |
1881 are involved to do that. Use \"\\[apropos] RET mh-scan.*regexp\" to | |
1882 obtain a list of these variables. You will also have to call | |
1883 `mh-set-cmd-note' if your notations are not in column 4 (columns in | |
1884 Emacs start with 0)." | |
1885 :type '(choice (const :tag "Use MH-E scan Format" t) | |
1886 (const :tag "Use Default scan Format" nil) | |
1887 (file :tag "Specify a scan Format File")) | |
1888 :group 'mh-scan-line-formats | |
1889 :set 'mh-scan-format-file-check) | |
1890 | |
1891 (defun mh-adaptive-cmd-note-flag-check (symbol value) | |
1892 "Check if desired setting is legal. | |
1893 Throw an error if user tries to turn on | |
1894 `mh-adaptive-cmd-note-flag' when `mh-scan-format-file' isn't t. | |
1895 Otherwise, set SYMBOL to VALUE." | |
1896 (if (and value | |
1897 (not (eq mh-scan-format-file t))) | |
1898 (error "%s %s" "Can't turn on unless `mh-scan-format-file'" | |
1899 "is set to \"Use MH-E scan Format\"") | |
1900 (set-default symbol value))) | |
1901 | |
1902 (defcustom mh-scan-prog "scan" | |
1903 "*Program used to scan messages. | |
1904 | |
1905 The name of the program that generates a listing of one line per | |
1906 message is held in this option. Unless this variable contains an | |
1907 absolute pathname, it is assumed to be in the `mh-progs' | |
1908 directory. You may link another program to `scan' (see | |
1909 \"mh-profile(5)\") to produce a different type of listing." | |
1910 :type 'string | |
1911 :group 'mh-scan-line-formats) | |
1912 (make-variable-buffer-local 'mh-scan-prog) | |
1913 | |
1914 | |
1915 | |
1916 ;;; Searching (:group 'mh-search) | |
1917 | |
1918 (defcustom mh-search-program nil | |
1919 "Search program that MH-E shall use. | |
1920 | |
1921 The default setting of this option is \"Auto-detect\" which means | |
1922 that MH-E will automatically choose one of swish++, swish-e, | |
1923 mairix, namazu, pick and grep in that order. If, for example, you | |
1924 have both swish++ and mairix installed and you want to use | |
1925 mairix, then you can set this option to \"mairix\". | |
1926 | |
1927 More information about setting up an indexing program to use with | |
1928 MH-E can be found in the documentation of `mh-search'." | |
1929 :type '(choice (const :tag "Auto-detect" nil) | |
1930 (const :tag "swish++" swish++) | |
1931 (const :tag "swish-e" swish) | |
1932 (const :tag "mairix" mairix) | |
1933 (const :tag "namazu" namazu) | |
1934 (const :tag "pick" pick) | |
1935 (const :tag "grep" grep)) | |
1936 :group 'mh-search) | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1937 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1938 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1939 |
68465 | 1940 ;;; Sending Mail (:group 'mh-sending-mail) |
1941 | |
1942 (defcustom mh-compose-forward-as-mime-flag t | |
1943 "*Non-nil means that messages are forwarded as attachments. | |
1944 | |
1945 By default, this option is on which means that the forwarded | |
1946 messages are included as attachments. If you would prefer to | |
1947 forward your messages verbatim (as text, inline), then turn off | |
1948 this option. Forwarding messages verbatim works well for short, | |
1949 textual messages, but your recipient won't be able to view any | |
1950 non-textual attachments that were in the forwarded message. Be | |
1951 aware that if you have \"forw: -mime\" in your MH profile, then | |
1952 forwarded messages will always be included as attachments | |
1953 regardless of the settings of this option." | |
1954 :type 'boolean | |
1955 :group 'mh-sending-mail) | |
1956 | |
1957 (defcustom mh-compose-letter-function nil | |
1958 "Invoked when starting a new draft. | |
1959 | |
1960 However, it is the last function called before you edit your | |
1961 message. The consequence of this is that you can write a function | |
1962 to write and send the message for you. This function is passed | |
1963 three arguments: the contents of the TO, SUBJECT, and CC header | |
1964 fields." | |
1965 :type '(choice (const nil) function) | |
1966 :group 'mh-sending-mail) | |
1967 | |
1968 (defcustom mh-compose-prompt-flag nil | |
1969 "*Non-nil means prompt for header fields when composing a new draft." | |
1970 :type 'boolean | |
1971 :group 'mh-sending-mail) | |
1972 | |
1973 (defcustom mh-forward-subject-format "%s: %s" | |
1974 "*Format string for forwarded message subject. | |
1975 | |
1976 This option is a string which includes two escapes (\"%s\"). The | |
1977 first \"%s\" is replaced with the sender of the original message, | |
1978 and the second one is replaced with the original \"Subject:\"." | |
1979 :type 'string | |
1980 :group 'mh-sending-mail) | |
1981 | |
1982 (defcustom mh-insert-x-mailer-flag t | |
1983 "*Non-nil means append an \"X-Mailer:\" header field to the header. | |
1984 | |
1985 This header field includes the version of MH-E and Emacs that you | |
1986 are using. If you don't want to participate in our marketing, you | |
1987 can turn this option off." | |
1988 :type 'boolean | |
1989 :group 'mh-sending-mail) | |
1990 | |
1991 (defcustom mh-redist-full-contents-flag nil | |
1992 "*Non-nil means the \"dist\" command needs entire letter for redistribution. | |
1993 | |
1994 This option must be turned on if \"dist\" requires the whole | |
1995 letter for redistribution, which is the case if \"send\" is | |
1996 compiled with the BERK option (which many people abhor). If you | |
1997 find that MH will not allow you to redistribute a message that | |
1998 has been redistributed before, turn off this option." | |
1999 :type 'boolean | |
2000 :group 'mh-sending-mail) | |
2001 | |
2002 (defcustom mh-reply-default-reply-to nil | |
2003 "*Sets the person or persons to whom a reply will be sent. | |
2004 | |
2005 This option is set to \"Prompt\" by default so that you are | |
2006 prompted for the recipient of a reply. If you find that most of | |
2007 the time that you specify \"cc\" when you reply to a message, set | |
2008 this option to \"cc\". Other choices include \"from\", \"to\", or | |
2009 \"all\". You can always edit the recipients in the draft." | |
2010 :type '(choice (const :tag "Prompt" nil) | |
2011 (const "from") | |
2012 (const "to") | |
2013 (const "cc") | |
2014 (const "all")) | |
2015 :group 'mh-sending-mail) | |
2016 | |
2017 (defcustom mh-reply-show-message-flag t | |
2018 "*Non-nil means the MH-Show buffer is displayed when replying. | |
2019 | |
2020 If you include the message automatically, you can hide the | |
2021 MH-Show buffer by turning off this option. | |
2022 | |
2023 See also `mh-reply'." | |
2024 :type 'boolean | |
2025 :group 'mh-sending-mail) | |
2026 | |
2027 | |
2028 | |
2029 ;;; Sequences (:group 'mh-sequences) | |
2030 | |
2031 ;; If `mh-unpropagated-sequences' becomes a defcustom, add the following to | |
2032 ;; the docstring: "Additional sequences that should not to be preserved can be | |
2033 ;; specified by setting `mh-unpropagated-sequences' appropriately." XXX | |
2034 | |
2035 (defcustom mh-refile-preserves-sequences-flag t | |
2036 "*Non-nil means that sequences are preserved when messages are refiled. | |
2037 | |
2038 If a message is in any sequence (except \"Previous-Sequence:\" | |
2039 and \"cur\") when it is refiled, then it will still be in those | |
2040 sequences in the destination folder. If this behavior is not | |
2041 desired, then turn off this option." | |
2042 :type 'boolean | |
2043 :group 'mh-sequences) | |
2044 | |
2045 (defcustom mh-tick-seq 'tick | |
2046 "The name of the MH sequence for ticked messages. | |
2047 | |
2048 You can customize this option if you already use the \"tick\" | |
2049 sequence for your own use. You can also disable all of the | |
2050 ticking functions by choosing the \"Disable Ticking\" item but | |
2051 there isn't much advantage to that." | |
2052 :type '(choice (const :tag "Disable Ticking" nil) | |
2053 symbol) | |
2054 :group 'mh-sequences) | |
2055 | |
2056 (defcustom mh-update-sequences-after-mh-show-flag t | |
2057 "*Non-nil means flush MH sequences to disk after message is shown\\<mh-folder-mode-map>. | |
2058 | |
2059 Three sequences are maintained internally by MH-E and pushed out | |
2060 to MH when a message is shown. They include the sequence | |
2061 specified by your \"Unseen-Sequence:\" profile entry, \"cur\", | |
2062 and the sequence listed by the option `mh-tick-seq' which is | |
2063 \"tick\" by default. If you do not like this behavior, turn off | |
2064 this option. You can then update the state manually with the | |
2065 \\[mh-execute-commands], \\[mh-quit], or \\[mh-update-sequences] | |
2066 commands." | |
2067 :type 'boolean | |
2068 :group 'mh-sequences) | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
2069 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
2070 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
2071 |
68465 | 2072 ;;; Reading Your Mail (:group 'mh-show) |
2073 | |
2074 (defcustom mh-bury-show-buffer-flag t | |
2075 "*Non-nil means show buffer is buried. | |
2076 | |
2077 One advantage of not burying the show buffer is that one can | |
2078 delete the show buffer more easily in an electric buffer list | |
2079 because of its proximity to its associated MH-Folder buffer. Try | |
2080 running \\[electric-buffer-list] to see what I mean." | |
2081 :type 'boolean | |
2082 :group 'mh-show) | |
2083 | |
2084 (defcustom mh-clean-message-header-flag t | |
2085 "*Non-nil means remove extraneous header fields. | |
2086 | |
2087 See also `mh-invisible-header-fields-default' and | |
2088 `mh-invisible-header-fields'." | |
2089 :type 'boolean | |
2090 :group 'mh-show) | |
2091 | |
2092 (defcustom mh-decode-mime-flag (not (not (locate-library "mm-decode"))) | |
2093 "*Non-nil means attachments are handled\\<mh-folder-mode-map>. | |
2094 | |
2095 MH-E can handle attachments as well if the Gnus `mm-decode' | |
2096 library is present. If so, this option will be on. Otherwise, | |
2097 you'll see the MIME body parts rather than text or attachments. | |
2098 There isn't much point in turning off this option; however, you | |
2099 can inspect it if it appears that the body parts are not being | |
2100 interpreted correctly or toggle it with the command | |
2101 \\[mh-toggle-mh-decode-mime-flag] to view the raw message. | |
2102 | |
2103 This option also controls the display of quoted-printable | |
2104 messages and other graphical widgets. See the options | |
2105 `mh-graphical-smileys-flag' and `mh-graphical-emphasis-flag'." | |
2106 :type 'boolean | |
2107 :group 'mh-show) | |
2108 | |
2109 (defcustom mh-display-buttons-for-alternatives-flag nil | |
2110 "*Non-nil means display buttons for all alternative attachments. | |
2111 | |
2112 Sometimes, a mail program will produce multiple alternatives of | |
2113 the attachment in increasing degree of faithfulness to the | |
2114 original content. By default, only the preferred alternative is | |
2115 displayed. If this option is on, then the preferred part is shown | |
2116 inline and buttons are shown for each of the other alternatives." | |
2117 :type 'boolean | |
2118 :group 'mh-show) | |
2119 | |
2120 (defcustom mh-display-buttons-for-inline-parts-flag nil | |
2121 "*Non-nil means display buttons for all inline attachments\\<mh-folder-mode-map>. | |
2122 | |
2123 The sender can request that attachments should be viewed inline so | |
2124 that they do not really appear like an attachment at all to the | |
2125 reader. Most of the time, this is desirable, so by default MH-E | |
2126 suppresses the buttons for inline attachments. On the other hand, you | |
2127 may receive code or HTML which the sender has added to his message as | |
2128 inline attachments so that you can read them in MH-E. In this case, it | |
2129 is useful to see the buttons so that you know you don't have to cut | |
2130 and paste the code into a file; you can simply save the attachment. | |
2131 | |
2132 If you want to make the buttons visible for inline attachments, you | |
2133 can use the command \\[mh-toggle-mime-buttons] to toggle the | |
2134 visibility of these buttons. You can turn on these buttons permanently | |
2135 by turning on this option. | |
2136 | |
2137 MH-E cannot display all attachments inline however. It can display | |
2138 text (including HTML) and images." | |
2139 :type 'boolean | |
2140 :group 'mh-show) | |
2141 | |
2142 (defcustom mh-do-not-confirm-flag nil | |
2143 "*Non-nil means non-reversible commands do not prompt for confirmation. | |
2144 | |
2145 Commands such as `mh-pack-folder' prompt to confirm whether to | |
2146 process outstanding moves and deletes or not before continuing. | |
2147 Turning on this option means that these actions will be | |
2148 performed--which is usually desired but cannot be | |
2149 retracted--without question." | |
2150 :type 'boolean | |
2151 :group 'mh-show) | |
2152 | |
2153 (defcustom mh-fetch-x-image-url nil | |
2154 "*Control fetching of \"X-Image-URL:\" header field image. | |
2155 | |
2156 Ths option controls the fetching of the \"X-Image-URL:\" header | |
2157 field image with the following values: | |
2158 | |
2159 Ask Before Fetching | |
2160 You are prompted before the image is fetched. MH-E will | |
2161 remember your reply and will either use the already fetched | |
2162 image the next time the same URL is encountered or silently | |
2163 skip it if you didn't fetch it the first time. This is a | |
2164 good setting. | |
2165 | |
2166 Never Fetch | |
2167 Images are never fetched and only displayed if they are | |
2168 already present in the cache. This is the default. | |
2169 | |
2170 There isn't a value of \"Always Fetch\" for privacy and DOS (denial of | |
2171 service) reasons. For example, fetching a URL can tip off a spammer | |
2172 that you've read his email (which is why you shouldn't blindly answer | |
2173 yes if you've set this option to \"Ask Before Fetching\"). Someone may | |
2174 also flood your network and fill your disk drive by sending a torrent | |
2175 of messages, each specifying a unique URL to a very large file. | |
2176 | |
2177 The cache of images is found in the directory \".mhe-x-image-cache\" | |
2178 within your MH directory. You can add your own face to the \"From:\" | |
2179 field too. See Info node `(mh-e)Picture'. | |
2180 | |
2181 This setting only has effect if the option `mh-show-use-xface-flag' is | |
2182 turned on." | |
2183 | |
2184 :type '(choice (const :tag "Ask Before Fetching" ask) | |
2185 (const :tag "Never Fetch" nil)) | |
2186 :group 'mh-show) | |
2187 | |
2188 (defcustom mh-graphical-smileys-flag t | |
2189 "*Non-nil means graphical smileys are displayed. | |
2190 | |
2191 It is a long standing custom to inject body language using a | |
2192 cornucopia of punctuation, also known as the \"smileys\". MH-E | |
2193 can render these as graphical widgets if this option is turned | |
2194 on, which it is by default. Smileys include patterns such as :-) | |
2195 and ;-). | |
2196 | |
2197 This option is disabled if the option `mh-decode-mime-flag' is | |
2198 turned off." | |
2199 :type 'boolean | |
2200 :group 'mh-show) | |
2201 | |
2202 (defcustom mh-graphical-emphasis-flag t | |
2203 "*Non-nil means graphical emphasis is displayed. | |
2204 | |
2205 A few typesetting features are indicated in ASCII text with | |
2206 certain characters. If your terminal supports it, MH-E can render | |
2207 these typesetting directives naturally if this option is turned | |
2208 on, which it is by default. For example, _underline_ will be | |
2209 underlined, *bold* will appear in bold, /italics/ will appear in | |
2210 italics, and so on. See the option `gnus-emphasis-alist' for the | |
2211 whole list. | |
2212 | |
2213 This option is disabled if the option `mh-decode-mime-flag' is | |
2214 turned off." | |
2215 :type 'boolean | |
2216 :group 'mh-show) | |
2217 | |
2218 (defcustom mh-highlight-citation-style 'gnus | |
2219 "Style for highlighting citations. | |
2220 | |
2221 If the sender of the message has cited other messages in his | |
2222 message, then MH-E will highlight these citations to emphasize | |
2223 the sender's actual response. This option can be customized to | |
2224 change the highlighting style. The \"Multicolor\" method uses a | |
2225 different color for each indentation while the \"Monochrome\" | |
2226 method highlights all citations in red. To disable highlighting | |
2227 of citations entirely, choose \"None\"." | |
2228 :type '(choice (const :tag "Multicolor" gnus) | |
2229 (const :tag "Monochrome" font-lock) | |
2230 (const :tag "None" nil)) | |
2231 :group 'mh-show) | |
2232 | |
2233 ;; Keep fields alphabetized. Mention source, if known. | |
2234 (defvar mh-invisible-header-fields-internal | |
2235 '("Approved:" | |
2236 "Autoforwarded:" | |
2237 "Bestservhost:" | |
2238 "Cancel-Lock:" ; NNTP posts | |
2239 "Content-" ; RFC 2045 | |
2240 "Delivered-To:" ; Egroups/yahoogroups mailing list manager | |
2241 "Delivery-Date:" ; MH | |
2242 "Delivery:" | |
2243 "DomainKey-Signature:" ;http://antispam.yahoo.com/domainkeys | |
2244 "Encoding:" | |
2245 "Envelope-to:" | |
2246 "Errors-To:" | |
2247 "Face:" ; Gnus Face header | |
2248 "Forwarded:" ; MH | |
2249 "From " ; sendmail | |
2250 "Importance:" ; MS Outlook | |
2251 "In-Reply-To:" ; MH | |
2252 "Lines:" | |
2253 "List-" ; Mailman mailing list manager | |
2254 "List-" ; Unknown mailing list managers | |
2255 "List-Subscribe:" ; Unknown mailing list managers | |
2256 "List-Unsubscribe:" ; Unknown mailing list managers | |
2257 "Mail-from:" ; MH | |
2258 "Mailing-List:" ; Egroups/yahoogroups mailing list manager | |
2259 "Message-Id:" ; RFC 822 | |
2260 "Mime-Version" ; RFC 2045 | |
2261 "NNTP-" ; News | |
2262 "Old-Return-Path:" | |
2263 "Original-Encoded-Information-Types:" ; X400 | |
2264 "Original-Lines:" ; mail to news | |
2265 "Original-NNTP-" ; mail to news | |
2266 "Original-Newsgroups:" ; mail to news | |
2267 "Original-Path:" ; mail to news | |
2268 "Original-Received:" ; mail to news | |
2269 "Original-To:" ; mail to news | |
2270 "Original-X-" ; mail to news | |
2271 "Originator:" | |
2272 "P1-Content-Type:" ; X400 | |
2273 "P1-Message-Id:" ; X400 | |
2274 "P1-Recipient:" ; X400 | |
2275 "Path:" | |
2276 "Precedence:" | |
2277 "Prev-Resent" ; MH | |
2278 "Priority:" | |
2279 "Received:" ; RFC 822 | |
2280 "Received-SPF:" ; Gmail | |
2281 "References:" | |
2282 "Remailed-" ; MH | |
2283 "Replied:" ; MH | |
2284 "Resent" ; MH | |
2285 "Return-Path:" ; RFC 822 | |
2286 "Sensitivity:" ; MS Outlook | |
2287 "Status:" ; sendmail | |
2288 "Thread-" | |
2289 "Ua-Content-Id:" ; X400 | |
2290 ;; "User-Agent:" ; Similar to X-Mailer, so display it. | |
2291 "Via:" ; MH | |
2292 "X-Abuse-Info:" | |
2293 "X-Abuse-and-DMCA-" | |
2294 "X-Accept-Language:" | |
2295 "X-Accept-Language:" ; Netscape/Mozilla | |
2296 "X-Ack:" | |
2297 "X-Administrivia-To:" | |
2298 "X-AntiAbuse:" ; cPanel | |
2299 "X-Apparently-From:" ; MS Outlook | |
2300 "X-Apparently-To:" ; Egroups/yahoogroups mailing list manager | |
69058
2ac1a4fca640
* mh-e.el (mh-invisible-header-fields-internal): Added entries
Eric Ding <ericding@mit.edu>
parents:
69031
diff
changeset
|
2301 "X-Authenticated-Sender:" ; AT&T Message Center (webmail) |
68465 | 2302 "X-Authentication-Warning:" ; sendmail |
69058
2ac1a4fca640
* mh-e.el (mh-invisible-header-fields-internal): Added entries
Eric Ding <ericding@mit.edu>
parents:
69031
diff
changeset
|
2303 "X-Barracuda-" ; Barracuda spam scores |
68465 | 2304 "X-Beenthere:" ; Mailman mailing list manager |
2305 "X-Bogosity:" ; bogofilter | |
68725
e59bf34a8b21
* mh-e.el (mh-invisible-header-fields-internal): Added entries
Peter Galbraith <galbraith@mixing.qc.dfo.ca>
parents:
68622
diff
changeset
|
2306 "X-BrightmailFiltered:" ; Brightmail |
e59bf34a8b21
* mh-e.el (mh-invisible-header-fields-internal): Added entries
Peter Galbraith <galbraith@mixing.qc.dfo.ca>
parents:
68622
diff
changeset
|
2307 "X-Brightmail-Tracker:" ; Brightmail |
69058
2ac1a4fca640
* mh-e.el (mh-invisible-header-fields-internal): Added entries
Eric Ding <ericding@mit.edu>
parents:
69031
diff
changeset
|
2308 "X-Bugzilla-" ; Bugzilla |
68465 | 2309 "X-Complaints-To:" |
2310 "X-ContentStamp:" ; NetZero | |
2311 "X-Cron-Env:" | |
2312 "X-DMCA" | |
2313 "X-Delivered" | |
69058
2ac1a4fca640
* mh-e.el (mh-invisible-header-fields-internal): Added entries
Eric Ding <ericding@mit.edu>
parents:
69031
diff
changeset
|
2314 "X-EFL-Spamscore:" ; MIT alumni spam filtering |
68465 | 2315 "X-ELNK-Trace:" ; Earthlink mailer |
2316 "X-Envelope-Date:" ; GNU mailutils | |
2317 "X-Envelope-From:" | |
2318 "X-Envelope-Sender:" | |
2319 "X-Envelope-To:" | |
2320 "X-Evolution:" ; Evolution mail client | |
2321 "X-Face:" | |
2322 "X-Folder:" ; Spam | |
2323 "X-From-Line" | |
2324 "X-Gmail-" ; Gmail | |
2325 "X-Gnus-Mail-Source:" ; gnus | |
2326 "X-Greylist:" ; milter-greylist-1.2.1 | |
2327 "X-Habeas-SWE-1:" ; Spam | |
2328 "X-Habeas-SWE-2:" ; Spam | |
2329 "X-Habeas-SWE-3:" ; Spam | |
2330 "X-Habeas-SWE-4:" ; Spam | |
2331 "X-Habeas-SWE-5:" ; Spam | |
2332 "X-Habeas-SWE-6:" ; Spam | |
2333 "X-Habeas-SWE-7:" ; Spam | |
2334 "X-Habeas-SWE-8:" ; Spam | |
2335 "X-Habeas-SWE-9:" ; Spam | |
68725
e59bf34a8b21
* mh-e.el (mh-invisible-header-fields-internal): Added entries
Peter Galbraith <galbraith@mixing.qc.dfo.ca>
parents:
68622
diff
changeset
|
2336 "X-Hashcash:" ; hashcash |
68465 | 2337 "X-Info:" ; NTMail |
69058
2ac1a4fca640
* mh-e.el (mh-invisible-header-fields-internal): Added entries
Eric Ding <ericding@mit.edu>
parents:
69031
diff
changeset
|
2338 "X-IronPort-AV:" ; IronPort AV |
68465 | 2339 "X-Juno-" ; Juno |
2340 "X-List-Host:" ; Unknown mailing list managers | |
2341 "X-List-Subscribe:" ; Unknown mailing list managers | |
2342 "X-List-Unsubscribe:" ; Unknown mailing list managers | |
2343 "X-Listprocessor-" ; ListProc(tm) by CREN | |
2344 "X-Listserver:" ; Unknown mailing list managers | |
2345 "X-Loop:" ; Unknown mailing list managers | |
2346 "X-Lumos-SenderID:" ; Roving ConstantContact | |
2347 "X-MAIL-INFO:" ; NetZero | |
69058
2ac1a4fca640
* mh-e.el (mh-invisible-header-fields-internal): Added entries
Eric Ding <ericding@mit.edu>
parents:
69031
diff
changeset
|
2348 "X-MHE-Checksum:" ; Checksum added during index search |
68465 | 2349 "X-MIME-Autoconverted:" ; sendmail |
2350 "X-MIMETrack:" | |
2351 "X-MS-" ; MS Outlook | |
69058
2ac1a4fca640
* mh-e.el (mh-invisible-header-fields-internal): Added entries
Eric Ding <ericding@mit.edu>
parents:
69031
diff
changeset
|
2352 "X-Mail-from:" ; fastmail.fm |
68465 | 2353 "X-MailScanner" ; ListProc(tm) by CREN |
2354 "X-Mailing-List:" ; Unknown mailing list managers | |
69058
2ac1a4fca640
* mh-e.el (mh-invisible-header-fields-internal): Added entries
Eric Ding <ericding@mit.edu>
parents:
69031
diff
changeset
|
2355 "X-Mailman-Approved-At:" ; Mailman mailing list manager |
68465 | 2356 "X-Mailman-Version:" ; Mailman mailing list manager |
2357 "X-Majordomo:" ; Majordomo mailing list manager | |
2358 "X-Message-Id" | |
2359 "X-MessageWall-Score:" ; Unknown mailing list manager, AUC TeX | |
2360 "X-MimeOLE:" ; MS Outlook | |
2361 "X-Mms-" ; T-Mobile pictures | |
2362 "X-Mozilla-Status:" ; Netscape/Mozilla | |
2363 "X-Msmail-" ; MS Outlook | |
2364 "X-NAI-Spam-" ; Network Associates Inc. SpamKiller | |
2365 "X-News:" ; News | |
2366 "X-No-Archive:" | |
2367 "X-Notes-Item:" ; Lotus Notes Domino structured header | |
2368 "X-OperatingSystem:" | |
2369 ;;"X-Operator:" ; Similar to X-Mailer, so display it | |
2370 "X-Orcl-Content-Type:" | |
2371 "X-Original-Complaints-To:" | |
2372 "X-Original-Date:" ; SourceForge mailing list manager | |
2373 "X-Original-To:" | |
2374 "X-Original-Trace:" | |
2375 "X-OriginalArrivalTime:" ; Hotmail | |
2376 "X-Originating-IP:" ; Hotmail | |
2377 "X-Postfilter:" | |
2378 "X-Priority:" ; MS Outlook | |
2379 "X-Qotd-" ; User added | |
2380 "X-RM" | |
2381 "X-Received-Date:" | |
2382 "X-Received:" | |
2383 "X-Request-" | |
69058
2ac1a4fca640
* mh-e.el (mh-invisible-header-fields-internal): Added entries
Eric Ding <ericding@mit.edu>
parents:
69031
diff
changeset
|
2384 "X-Resolved-to:" ; fastmail.fm |
68465 | 2385 "X-Return-Path-Hint:" ; Roving ConstantContact |
69058
2ac1a4fca640
* mh-e.el (mh-invisible-header-fields-internal): Added entries
Eric Ding <ericding@mit.edu>
parents:
69031
diff
changeset
|
2386 "X-Roving-" ; Roving ConstantContact |
2ac1a4fca640
* mh-e.el (mh-invisible-header-fields-internal): Added entries
Eric Ding <ericding@mit.edu>
parents:
69031
diff
changeset
|
2387 "X-SA-Exim-" ; Exim SpamAssassin |
68465 | 2388 "X-SBClass:" ; Spam |
2389 "X-SBNote:" ; Spam | |
2390 "X-SBPass:" ; Spam | |
2391 "X-SBRule:" ; Spam | |
2392 "X-SMTP-" | |
69074
f5bc6bf5c294
* mh-e.el (mh-invisible-header-fields-internal): Added entry
Eric Ding <ericding@mit.edu>
parents:
69058
diff
changeset
|
2393 "X-Sasl-enc:" ; Apple Mail |
f5bc6bf5c294
* mh-e.el (mh-invisible-header-fields-internal): Added entry
Eric Ding <ericding@mit.edu>
parents:
69058
diff
changeset
|
2394 "X-Scanned-By:" |
68465 | 2395 "X-Sender:" |
2396 "X-Server-Date:" | |
2397 "X-Server-Uuid:" | |
2398 "X-Sieve:" ; Sieve filtering | |
2399 "X-Source" | |
2400 "X-Spam-" ; Spamassassin | |
2401 "X-SpamBouncer:" ; Spam | |
2402 "X-Status" | |
2403 "X-Submissions-To:" | |
2404 "X-Telecom-Digest" | |
2405 "X-Trace:" | |
2406 "X-UID" | |
2407 "X-UIDL:" | |
2408 "X-UNTD-" ; NetZero | |
2409 "X-USANET-" ; usa.net | |
2410 "X-UserInfo1:" | |
2411 "X-VSMLoop:" ; NTMail | |
2412 "X-Virus-Scanned" ; amavisd-new | |
2413 "X-Vms-To:" | |
2414 "X-WebTV-Signature:" | |
2415 "X-Wss-Id:" ; Worldtalk gateways | |
2416 "X-Yahoo" | |
2417 "X-eGroups-" ; Egroups/yahoogroups mailing list manager | |
2418 "X-pgp:" | |
2419 "X-submission-address:" | |
2420 "X400-" ; X400 | |
2421 "Xref:") | |
2422 "List of default header fields that are not to be shown. | |
2423 | |
2424 Do not alter this variable directly. Instead, add entries from | |
2425 here that you would like to be displayed in | |
2426 `mh-invisible-header-fields-default' and add entries to hide in | |
2427 `mh-invisible-header-fields'.") | |
2428 | |
2429 (eval-and-compile | |
2430 (unless (fboundp 'mh-invisible-headers) | |
2431 (defun mh-invisible-headers () | |
2432 "Temporary definition. | |
2433 Real definition, below, uses variables that aren't defined yet." | |
2434 nil))) | |
2435 | |
2436 (defvar mh-delay-invisible-header-generation-flag t | |
2437 "Non-nil means to delay the generation of invisible header fields. | |
2438 Because the function `mh-invisible-headers' uses both | |
2439 `mh-invisible-header-fields' and `mh-invisible-header-fields', it | |
2440 cannot be run until both variables have been initialized.") | |
2441 | |
2442 (defcustom mh-invisible-header-fields nil | |
2443 "*Additional header fields to hide. | |
2444 | |
2445 Header fields that you would like to hide that aren't listed in | |
2446 `mh-invisible-header-fields-default' can be added to this option | |
2447 with a couple of caveats. Regular expressions are not allowed. | |
2448 Unique fields should have a \":\" suffix; otherwise, the element | |
2449 can be used to render invisible an entire class of fields that | |
2450 start with the same prefix. If you think a header field should be | |
2451 generally ignored, report a bug (see URL | |
2452 `https://sourceforge.net/tracker/?group_id=13357&atid=113357'). | |
2453 | |
2454 See also `mh-clean-message-header-flag'." | |
2455 | |
2456 :type '(repeat (string :tag "Header field")) | |
2457 :set (lambda (symbol value) | |
2458 (set-default symbol value) | |
2459 (mh-invisible-headers)) | |
2460 :group 'mh-show) | |
2461 | |
2462 (defcustom mh-invisible-header-fields-default nil | |
2463 "*List of hidden header fields. | |
2464 | |
2465 The header fields listed in this option are hidden, although you | |
2466 can check off any field that you would like to see. | |
2467 | |
2468 Header fields that you would like to hide that aren't listed can | |
2469 be added to the option `mh-invisible-header-fields'. | |
2470 | |
2471 See also `mh-clean-message-header-flag'." | |
2472 :type `(set ,@(mapcar (lambda (x) `(const ,x)) | |
2473 mh-invisible-header-fields-internal)) | |
2474 :set (lambda (symbol value) | |
2475 (set-default symbol value) | |
2476 (mh-invisible-headers)) | |
2477 :group 'mh-show) | |
2478 | |
2479 (defvar mh-invisible-header-fields-compiled nil | |
2480 "*Regexp matching lines in a message header that are not to be shown. | |
2481 Do not alter this variable directly. Instead, customize | |
2482 `mh-invisible-header-fields-default' checking for fields normally | |
2483 hidden that you wish to display, and add extra entries to hide in | |
2484 `mh-invisible-header-fields'.") | |
2485 | |
2486 (defun mh-invisible-headers () | |
2487 "Make or remake the variable `mh-invisible-header-fields-compiled'. | |
2488 Done using `mh-invisible-header-fields-internal' as input, from | |
2489 which entries from `mh-invisible-header-fields-default' are | |
2490 removed and entries from `mh-invisible-header-fields' are added." | |
2491 (let ((fields mh-invisible-header-fields-internal)) | |
2492 (when mh-invisible-header-fields-default | |
2493 ;; Remove entries from `mh-invisible-header-fields-default' | |
2494 (setq fields | |
2495 (loop for x in fields | |
2496 unless (member x mh-invisible-header-fields-default) | |
2497 collect x))) | |
2498 (when (and (boundp 'mh-invisible-header-fields) | |
2499 mh-invisible-header-fields) | |
2500 (dolist (x mh-invisible-header-fields) | |
2501 (unless (member x fields) (setq fields (cons x fields))))) | |
2502 (if fields | |
2503 (setq mh-invisible-header-fields-compiled | |
2504 (concat | |
2505 "^" | |
2506 ;; workaround for insufficient default | |
2507 (let ((max-specpdl-size 1000)) | |
2508 (regexp-opt fields t)))) | |
2509 (setq mh-invisible-header-fields-compiled nil)))) | |
2510 | |
2511 ;; Compile invisible header fields. | |
2512 (mh-invisible-headers) | |
2513 | |
2514 (defcustom mh-lpr-command-format "lpr -J '%s'" | |
2515 "*Command used to print\\<mh-folder-mode-map>. | |
2516 | |
2517 This option contains the Unix command line which performs the | |
2518 actual printing for the \\[mh-print-msg] command. The string can | |
2519 contain one escape, \"%s\", which is replaced by the name of the | |
2520 folder and the message number and is useful for print job names. | |
2521 I use \"mpage -h'%s' -b Letter -H1of -mlrtb -P\" which produces a | |
2522 nice header and adds a bit of margin so the text fits within my | |
2523 printer's margins. | |
2524 | |
2525 This options is not used by the commands \\[mh-ps-print-msg] or | |
2526 \\[mh-ps-print-msg-file]." | |
2527 :type 'string | |
2528 :group 'mh-show) | |
2529 | |
2530 (defcustom mh-max-inline-image-height nil | |
2531 "*Maximum inline image height if \"Content-Disposition:\" is not present. | |
2532 | |
2533 Some older mail programs do not insert this needed plumbing to | |
2534 tell MH-E whether to display the attachments inline or not. If | |
2535 this is the case, MH-E will display these images inline if they | |
2536 are smaller than the window. However, you might want to allow | |
2537 larger images to be displayed inline. To do this, you can change | |
2538 the options `mh-max-inline-image-width' and | |
2539 `mh-max-inline-image-height' from their default value of zero to | |
2540 a large number. The size of your screen is a good choice for | |
2541 these numbers." | |
2542 :type '(choice (const nil) integer) | |
2543 :group 'mh-show) | |
2544 | |
2545 (defcustom mh-max-inline-image-width nil | |
2546 "*Maximum inline image width if \"Content-Disposition:\" is not present. | |
2547 | |
2548 Some older mail programs do not insert this needed plumbing to | |
2549 tell MH-E whether to display the attachments inline or not. If | |
2550 this is the case, MH-E will display these images inline if they | |
2551 are smaller than the window. However, you might want to allow | |
2552 larger images to be displayed inline. To do this, you can change | |
2553 the options `mh-max-inline-image-width' and | |
2554 `mh-max-inline-image-height' from their default value of zero to | |
2555 a large number. The size of your screen is a good choice for | |
2556 these numbers." | |
2557 :type '(choice (const nil) integer) | |
2558 :group 'mh-show) | |
2559 | |
2560 (defcustom mh-mhl-format-file nil | |
2561 "*Specifies the format file to pass to the \"mhl\" program. | |
2562 | |
2563 Normally MH-E takes care of displaying messages itself (rather than | |
2564 calling an MH program to do the work). If you'd rather have \"mhl\" | |
2565 display the message (within MH-E), change this option from its default | |
2566 value of \"Use Default mhl Format (Printing Only)\". | |
2567 | |
2568 You can set this option to \"Use Default mhl Format\" to get the same | |
2569 output as you would get if you ran \"mhl\" from the shell. | |
2570 | |
2571 If you have a format file that you want MH-E to use, you can set this | |
2572 option to \"Specify an mhl Format File\" and enter the name of your | |
2573 format file. Your format file should specify a non-zero value for | |
2574 \"overflowoffset\" to allow MH-E to parse the header. Note that | |
2575 \"mhl\" is always used for printing and forwarding; in this case, the | |
2576 value of this option is consulted if you have specified a format | |
2577 file." | |
2578 :type '(choice (const :tag "Use Default mhl Format (Printing Only)" nil) | |
2579 (const :tag "Use Default mhl Format" t) | |
2580 (file :tag "Specify an mhl Format File")) | |
2581 :group 'mh-show) | |
2582 | |
2583 (defcustom mh-mime-save-parts-default-directory t | |
2584 "Default directory to use for \\<mh-folder-mode-map>\\[mh-mime-save-parts]. | |
2585 | |
2586 The default value for this option is \"Prompt Always\" so that | |
2587 you are always prompted for the directory in which to save the | |
2588 attachments. However, if you usually use the same directory | |
2589 within a session, then you can set this option to \"Prompt the | |
2590 First Time\" to avoid the prompt each time. you can make this | |
2591 directory permanent by choosing \"Directory\" and entering the | |
2592 directory's name." | |
2593 :type '(choice (const :tag "Prompt the First Time" nil) | |
2594 (const :tag "Prompt Always" t) | |
2595 directory) | |
2596 :group 'mh-show) | |
2597 | |
2598 (defcustom mh-print-background-flag nil | |
2599 "*Non-nil means messages should be printed in the background\\<mh-folder-mode-map>. | |
2600 | |
2601 Normally messages are printed in the foreground. If this is slow on | |
2602 your system, you may elect to turn off this option to print in the | |
2603 background. | |
2604 | |
2605 WARNING: If you do this, do not delete the message until it is printed | |
2606 or else the output may be truncated. | |
2607 | |
2608 This option is not used by the commands \\[mh-ps-print-msg] or | |
2609 \\[mh-ps-print-msg-file]." | |
2610 :type 'boolean | |
2611 :group 'mh-show) | |
2612 | |
2613 (defcustom mh-show-maximum-size 0 | |
2614 "*Maximum size of message (in bytes) to display automatically. | |
2615 | |
2616 This option provides an opportunity to skip over large messages | |
2617 which may be slow to load. The default value of 0 means that all | |
2618 message are shown regardless of size." | |
2619 :type 'integer | |
2620 :group 'mh-show) | |
2621 | |
2622 (defcustom mh-show-use-xface-flag (>= emacs-major-version 21) | |
2623 "*Non-nil means display face images in MH-show buffers. | |
2624 | |
2625 MH-E can display the content of \"Face:\", \"X-Face:\", and | |
2626 \"X-Image-URL:\" header fields. If any of these fields occur in the | |
2627 header of your message, the sender's face will appear in the \"From:\" | |
2628 header field. If more than one of these fields appear, then the first | |
2629 field found in the order \"Face:\", \"X-Face:\", and \"X-Image-URL:\" | |
2630 will be used. | |
2631 | |
2632 The option `mh-show-use-xface-flag' is used to turn this feature on | |
2633 and off. This feature will be turned on by default if your system | |
2634 supports it. | |
2635 | |
2636 The first header field used, if present, is the Gnus-specific | |
2637 \"Face:\" field. The \"Face:\" field appeared in GNU Emacs 21 and | |
2638 XEmacs. For more information, see URL | |
2639 `http://quimby.gnus.org/circus/face/'. Next is the traditional | |
2640 \"X-Face:\" header field. The display of this field requires the | |
2641 \"uncompface\" program (see URL | |
2642 `ftp://ftp.cs.indiana.edu/pub/faces/compface/compface.tar.z'). Recent | |
2643 versions of XEmacs have internal support for \"X-Face:\" images. If | |
2644 your version of XEmacs does not, then you'll need both \"uncompface\" | |
2645 and the x-face package (see URL `ftp://ftp.jpl.org/pub/elisp/'). | |
2646 | |
2647 Finally, MH-E will display images referenced by the \"X-Image-URL:\" | |
2648 header field if neither the \"Face:\" nor the \"X-Face:\" fields are | |
2649 present. The display of the images requires \"wget\" (see URL | |
2650 `http://www.gnu.org/software/wget/wget.html'), \"fetch\", or \"curl\" | |
2651 to fetch the image and the \"convert\" program from the ImageMagick | |
2652 suite (see URL `http://www.imagemagick.org/'). Of the three header | |
2653 fields this is the most efficient in terms of network usage since the | |
2654 image doesn't need to be transmitted with every single mail. | |
2655 | |
2656 The option `mh-fetch-x-image-url' controls the fetching of the | |
2657 \"X-Image-URL:\" header field image." | |
2658 :type 'boolean | |
2659 :group 'mh-show) | |
2660 | |
2661 (defcustom mh-store-default-directory nil | |
2662 "*Default directory for \\<mh-folder-mode-map>\\[mh-store-msg]. | |
2663 | |
2664 If you would like to change the initial default directory, | |
2665 customize this option, change the value from \"Current\" to | |
2666 \"Directory\", and then enter the name of the directory for storing | |
2667 the content of these messages." | |
2668 :type '(choice (const :tag "Current" nil) | |
2669 directory) | |
2670 :group 'mh-show) | |
2671 | |
2672 (defcustom mh-summary-height nil | |
2673 "*Number of lines in MH-Folder buffer (including the mode line). | |
2674 | |
2675 The default value of this option is \"Automatic\" which means | |
2676 that the MH-Folder buffer will maintain the same proportional | |
2677 size if the frame is resized. If you'd prefer a fixed height, | |
2678 then choose the \"Fixed Size\" option and enter the number of | |
2679 lines you'd like to see." | |
2680 :type '(choice (const :tag "Automatic" nil) | |
2681 (integer :tag "Fixed Size")) | |
2682 :group 'mh-show) | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
2683 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
2684 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
2685 |
68465 | 2686 ;;; The Speedbar (:group 'mh-speedbar) |
2687 | |
2688 (defcustom mh-speed-update-interval 60 | |
2689 "Time between speedbar updates in seconds. | |
2690 Set to 0 to disable automatic update." | |
2691 :type 'integer | |
2692 :group 'mh-speedbar) | |
2693 | |
2694 | |
2695 | |
2696 ;;; Threading (:group 'mh-thread) | |
2697 | |
2698 (defcustom mh-show-threads-flag nil | |
2699 "*Non-nil means new folders start in threaded mode. | |
2700 | |
2701 Threading large number of messages can be time consuming so this | |
2702 option is turned off by default. If you turn this option on, then | |
2703 threading will be done only if the number of messages being | |
2704 threaded is less than `mh-large-folder'." | |
2705 :type 'boolean | |
2706 :group 'mh-thread) | |
2707 | |
2708 | |
2709 | |
2710 ;;; The Tool Bar (:group 'mh-tool-bar) | |
2711 | |
2712 ;; mh-tool-bar-folder-buttons and mh-tool-bar-letter-buttons defined | |
2713 ;; dynamically in mh-tool-bar.el. | |
2714 | |
2715 (defcustom mh-tool-bar-search-function 'mh-search | |
2716 "*Function called by the tool bar search button. | |
2717 | |
2718 By default, this is set to `mh-search'. You can also choose | |
2719 \"Other Function\" from the \"Value Menu\" and enter a function | |
2720 of your own choosing." | |
2721 :type '(choice (const mh-search) | |
2722 (function :tag "Other Function")) | |
2723 :group 'mh-tool-bar) | |
2724 | |
2725 ;; XEmacs has a couple of extra customizations... | |
2726 (mh-do-in-xemacs | |
2727 (defcustom mh-xemacs-use-tool-bar-flag mh-xemacs-has-tool-bar-flag | |
2728 "*If non-nil, use tool bar. | |
2729 | |
2730 This option controls whether to show the MH-E icons at all. By | |
2731 default, this option is turned on if the window system supports | |
2732 tool bars. If your system doesn't support tool bars, then you | |
2733 won't be able to turn on this option." | |
2734 :type 'boolean | |
2735 :group 'mh-tool-bar | |
2736 :set (lambda (symbol value) | |
2737 (if (and (eq value t) | |
2738 (not mh-xemacs-has-tool-bar-flag)) | |
2739 (error "Tool bar not supported")) | |
2740 (set-default symbol value))) | |
2741 | |
2742 (defcustom mh-xemacs-tool-bar-position nil | |
2743 "*Tool bar location. | |
2744 | |
2745 This option controls the placement of the tool bar along the four | |
2746 edges of the frame. You can choose from one of \"Same As Default | |
2747 Tool Bar\", \"Top\", \"Bottom\", \"Left\", or \"Right\". If this | |
2748 variable is set to anything other than \"Same As Default Tool | |
2749 Bar\" and the default tool bar is in a different location, then | |
2750 two tool bars will be displayed: the MH-E tool bar and the | |
2751 default tool bar." | |
2752 :type '(radio (const :tag "Same As Default Tool Bar" :value nil) | |
2753 (const :tag "Top" :value top) | |
2754 (const :tag "Bottom" :value bottom) | |
2755 (const :tag "Left" :value left) | |
2756 (const :tag "Right" :value right)) | |
2757 :group 'mh-tool-bar)) | |
2758 | |
2759 | |
2760 | |
2761 ;;; Hooks (:group 'mh-hooks + group where hook described) | |
2762 | |
2763 (defcustom mh-after-commands-processed-hook nil | |
68475
fef251da6e07
(mh-after-commands-processed-hook)
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
2764 "Hook run by \\<mh-folder-mode-map>\\[mh-execute-commands] after performing outstanding refile and delete requests. |
68465 | 2765 |
2766 Variables that are useful in this hook include | |
2767 `mh-folders-changed', which lists which folders were affected by | |
2768 deletes and refiles. This list will always include the current | |
2769 folder, which is also available in `mh-current-folder'." | |
2770 :type 'hook | |
2771 :group 'mh-hooks | |
2772 :group 'mh-folder) | |
2773 | |
2774 (defcustom mh-alias-reloaded-hook nil | |
2775 "Hook run by `mh-alias-reload' after loading aliases." | |
2776 :type 'hook | |
2777 :group 'mh-hooks | |
2778 :group 'mh-alias) | |
2779 | |
2780 (defcustom mh-before-commands-processed-hook nil | |
68475
fef251da6e07
(mh-after-commands-processed-hook)
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
2781 "Hook run by \\<mh-folder-mode-map>\\[mh-execute-commands] before performing outstanding refile and delete requests. |
68465 | 2782 |
2783 Variables that are useful in this hook include `mh-delete-list' | |
2784 and `mh-refile-list' which can be used to see which changes will | |
2785 be made to the current folder, `mh-current-folder'." | |
2786 :type 'hook | |
2787 :group 'mh-hooks | |
2788 :group 'mh-folder) | |
2789 | |
2790 (defcustom mh-before-quit-hook nil | |
2791 "Hook run by \\<mh-folder-mode-map>\\[mh-quit] before quitting MH-E. | |
2792 | |
2793 This hook is called before the quit occurs, so you might use it | |
2794 to perform any MH-E operations; you could perform some query and | |
2795 abort the quit or call `mh-execute-commands', for example. | |
2796 | |
2797 See also `mh-quit-hook'." | |
2798 :type 'hook | |
2799 :group 'mh-hooks | |
2800 :group 'mh-folder) | |
2801 | |
2802 (defcustom mh-before-send-letter-hook nil | |
2803 "Hook run at the beginning of the \\<mh-letter-mode-map>\\[mh-send-letter] command. | |
2804 | |
2805 For example, if you want to check your spelling in your message | |
2806 before sending, add the `ispell-message' function." | |
2807 :type 'hook | |
2808 :options '(ispell-message) | |
2809 :group 'mh-hooks | |
2810 :group 'mh-letter) | |
2811 | |
2812 (defcustom mh-delete-msg-hook nil | |
2813 "Hook run by \\<mh-letter-mode-map>\\[mh-delete-msg] after marking each message for deletion. | |
2814 | |
2815 For example, a past maintainer of MH-E used this once when he | |
2816 kept statistics on his mail usage." | |
2817 :type 'hook | |
2818 :group 'mh-hooks | |
2819 :group 'mh-show) | |
2820 | |
2821 (defcustom mh-find-path-hook nil | |
2822 "Hook run by `mh-find-path' after reading the user's MH profile. | |
2823 | |
2824 This hook can be used the change the value of the variables that | |
2825 `mh-find-path' sets if you need to run with different values | |
2826 between MH and MH-E." | |
2827 :type 'hook | |
2828 :group 'mh-hooks | |
2829 :group 'mh-e) | |
2830 | |
2831 (defcustom mh-folder-mode-hook nil | |
2832 "Hook run by `mh-folder-mode' when visiting a new folder." | |
2833 :type 'hook | |
2834 :group 'mh-hooks | |
2835 :group 'mh-folder) | |
2836 | |
2837 (defcustom mh-forward-hook nil | |
2838 "Hook run by `mh-forward' on a forwarded letter." | |
2839 :type 'hook | |
2840 :group 'mh-hooks | |
2841 :group 'mh-sending-mail) | |
2842 | |
2843 (defcustom mh-inc-folder-hook nil | |
2844 "Hook run by \\<mh-folder-mode-map>\\[mh-inc-folder] after incorporating mail into a folder." | |
2845 :type 'hook | |
2846 :group 'mh-hooks | |
2847 :group 'mh-inc) | |
2848 | |
2849 (defcustom mh-insert-signature-hook nil | |
2850 "Hook run by \\<mh-letter-mode-map>\\[mh-insert-signature] after signature has been inserted. | |
2851 | |
2852 Hook functions may access the actual name of the file or the | |
2853 function used to insert the signature with | |
2854 `mh-signature-file-name'." | |
2855 :type 'hook | |
2856 :group 'mh-hooks | |
2857 :group 'mh-letter) | |
2858 | |
2859 (defcustom mh-kill-folder-suppress-prompt-hooks '(mh-search-p) | |
2860 "Abnormal hook run at the beginning of \\<mh-folder-mode-map>\\[mh-kill-folder]. | |
2861 | |
2862 The hook functions are called with no arguments and should return | |
2863 a non-nil value to suppress the normal prompt when you remove a | |
2864 folder. This is useful for folders that are easily regenerated. | |
2865 | |
2866 The default value of `mh-search-p' suppresses the prompt on | |
2867 folders generated by searching. | |
2868 | |
2869 WARNING: Use this hook with care. If there is a bug in your hook | |
2870 which returns t on \"+inbox\" and you hit \\[mh-kill-folder] by | |
2871 accident in the \"+inbox\" folder, you will not be happy." | |
2872 :type 'hook | |
2873 :group 'mh-hooks | |
2874 :group 'mh-folder) | |
2875 | |
2876 (defcustom mh-letter-mode-hook nil | |
2877 "Hook run by `mh-letter-mode' on a new letter. | |
2878 | |
2879 This hook allows you to do some processing before editing a | |
2880 letter. For example, you may wish to modify the header after | |
2881 \"repl\" has done its work, or you may have a complicated | |
2882 \"components\" file and need to tell MH-E where the cursor should | |
2883 go." | |
2884 :type 'hook | |
2885 :group 'mh-hooks | |
2886 :group 'mh-sending-mail) | |
2887 | |
2888 (defcustom mh-mh-to-mime-hook nil | |
2889 "Hook run on the formatted letter by \\<mh-letter-mode-map>\\[mh-mh-to-mime]." | |
2890 :type 'hook | |
2891 :group 'mh-hooks | |
2892 :group 'mh-letter) | |
2893 | |
2894 (defcustom mh-search-mode-hook nil | |
2895 "Hook run upon entry to `mh-search-mode'\\<mh-folder-mode-map>. | |
2896 | |
2897 If you find that you do the same thing over and over when editing | |
2898 the search template, you may wish to bind some shortcuts to keys. | |
2899 This can be done with this hook which is called when | |
2900 \\[mh-search] is run on a new pattern." | |
2901 :type 'hook | |
2902 :group 'mh-hooks | |
2903 :group 'mh-search) | |
2904 | |
2905 (defcustom mh-quit-hook nil | |
2906 "Hook run by \\<mh-folder-mode-map>\\[mh-quit] after quitting MH-E. | |
2907 | |
2908 This hook is not run in an MH-E context, so you might use it to | |
2909 modify the window setup. | |
2910 | |
2911 See also `mh-before-quit-hook'." | |
2912 :type 'hook | |
2913 :group 'mh-hooks | |
2914 :group 'mh-folder) | |
2915 | |
2916 (defcustom mh-refile-msg-hook nil | |
2917 "Hook run by \\<mh-folder-mode-map>\\[mh-refile-msg] after marking each message for refiling." | |
2918 :type 'hook | |
2919 :group 'mh-hooks | |
2920 :group 'mh-folder) | |
2921 | |
2922 (defcustom mh-show-hook nil | |
2923 "Hook run after \\<mh-folder-mode-map>\\[mh-show] shows a message. | |
2924 | |
2925 It is the last thing called after messages are displayed. It's | |
2926 used to affect the behavior of MH-E in general or when | |
2927 `mh-show-mode-hook' is too early. See `mh-show-mode-hook'." | |
2928 :type 'hook | |
2929 :group 'mh-hooks | |
2930 :group 'mh-show) | |
2931 | |
2932 (defcustom mh-show-mode-hook nil | |
2933 "Hook run upon entry to `mh-show-mode'. | |
2934 | |
2935 This hook is called early on in the process of the message | |
2936 display. It is usually used to perform some action on the | |
2937 message's content. See `mh-show-hook'." | |
2938 :type 'hook | |
2939 :group 'mh-hooks | |
2940 :group 'mh-show) | |
2941 | |
2942 (defcustom mh-unseen-updated-hook nil | |
2943 "Hook run after the unseen sequence has been updated. | |
2944 | |
2945 The variable `mh-seen-list' can be used by this hook to obtain | |
2946 the list of messages which were removed from the unseen | |
2947 sequence." | |
2948 :type 'hook | |
2949 :group 'mh-hooks | |
2950 :group 'mh-sequences) | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
2951 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
2952 |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
2953 |
68465 | 2954 ;;; Faces (:group 'mh-faces + group where faces described) |
2955 | |
2956 (if (boundp 'facemenu-unlisted-faces) | |
2957 (add-to-list 'facemenu-unlisted-faces "^mh-")) | |
2958 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
2959 ;; Temporary function and data structure used for defining faces. |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
2960 ;; These will be unbound after the faces are defined. |
68465 | 2961 (defvar mh-min-colors-defined-flag (and (not mh-xemacs-flag) |
2962 (>= emacs-major-version 22)) | |
2963 "Non-nil means defface supports min-colors display requirement.") | |
2964 | |
2965 (defun mh-defface-compat (spec) | |
2966 "Convert SPEC for defface if necessary to run on older platforms. | |
2967 Modifies SPEC in place and returns it. See `defface' for the spec definition. | |
2968 | |
2969 When `mh-min-colors-defined-flag' is nil, this function finds | |
2970 display entries with \"min-colors\" requirements and either | |
2971 removes the \"min-colors\" requirement or strips the display | |
2972 entirely if the display does not support the number of specified | |
2973 colors." | |
2974 (if mh-min-colors-defined-flag | |
2975 spec | |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68484
diff
changeset
|
2976 (let ((cells (mh-display-color-cells)) |
68465 | 2977 new-spec) |
2978 ;; Remove entries with min-colors, or delete them if we have fewer colors | |
2979 ;; than they specify. | |
2980 (loop for entry in (reverse spec) do | |
2981 (let ((requirement (if (eq (car entry) t) | |
2982 nil | |
2983 (assoc 'min-colors (car entry))))) | |
2984 (if requirement | |
2985 (when (>= cells (nth 1 requirement)) | |
2986 (setq new-spec (cons (cons (delq requirement (car entry)) | |
2987 (cdr entry)) | |
2988 new-spec))) | |
2989 (setq new-spec (cons entry new-spec))))) | |
2990 new-spec))) | |
2991 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
2992 (defvar mh-inherit-face-flag (assq :inherit custom-face-attributes) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
2993 "Non-nil means that the `defface' :inherit keyword is available. |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
2994 The :inherit keyword is available on all supported versions of |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
2995 GNU Emacs and XEmacs from at least 21.5.23 on.") |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
2996 |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
2997 (defvar mh-face-data |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
2998 '((mh-folder-followup |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
2999 ((((class color) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3000 (:foreground "blue3")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3001 (((class color) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3002 (:foreground "LightGoldenRod")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3003 (t |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3004 (:bold t)))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3005 (mh-folder-msg-number |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3006 ((((class color) (min-colors 64) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3007 (:foreground "snow4")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3008 (((class color) (min-colors 64) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3009 (:foreground "snow3")) |
68977
c6014dab558d
(mh-folder-msg-number): Use purple on low-color, light backgrounds per
Bill Wohler <wohler@newt.com>
parents:
68948
diff
changeset
|
3010 (((class color) (background light)) |
c6014dab558d
(mh-folder-msg-number): Use purple on low-color, light backgrounds per
Bill Wohler <wohler@newt.com>
parents:
68948
diff
changeset
|
3011 (:foreground "purple")) |
c6014dab558d
(mh-folder-msg-number): Use purple on low-color, light backgrounds per
Bill Wohler <wohler@newt.com>
parents:
68948
diff
changeset
|
3012 (((class color) (background dark)) |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3013 (:foreground "cyan")))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3014 (mh-folder-refiled |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3015 ((((class color) (min-colors 64) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3016 (:foreground "DarkGoldenrod")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3017 (((class color) (min-colors 64) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3018 (:foreground "LightGoldenrod")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3019 (((class color)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3020 (:foreground "yellow" :weight light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3021 (((class grayscale) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3022 (:foreground "Gray90" :bold t :italic t)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3023 (((class grayscale) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3024 (:foreground "DimGray" :bold t :italic t)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3025 (t |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3026 (:bold t :italic t)))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3027 (mh-folder-subject |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3028 ((((class color) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3029 (:foreground "blue4")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3030 (((class color) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3031 (:foreground "yellow")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3032 (t |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3033 (:bold t)))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3034 (mh-folder-tick |
68977
c6014dab558d
(mh-folder-msg-number): Use purple on low-color, light backgrounds per
Bill Wohler <wohler@newt.com>
parents:
68948
diff
changeset
|
3035 ((((class color) (background light)) |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3036 (:background "#dddf7e")) |
68977
c6014dab558d
(mh-folder-msg-number): Use purple on low-color, light backgrounds per
Bill Wohler <wohler@newt.com>
parents:
68948
diff
changeset
|
3037 (((class color) (background dark)) |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3038 (:background "#dddf7e")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3039 (t |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3040 (:underline t)))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3041 (mh-folder-to |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3042 ((((class color) (min-colors 64) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3043 (:foreground "RosyBrown")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3044 (((class color) (min-colors 64) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3045 (:foreground "LightSalmon")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3046 (((class color)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3047 (:foreground "green")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3048 (((class grayscale) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3049 (:foreground "DimGray" :italic t)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3050 (((class grayscale) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3051 (:foreground "LightGray" :italic t)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3052 (t |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3053 (:italic t)))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3054 (mh-letter-header-field |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3055 ((((class color) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3056 (:background "gray90")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3057 (((class color) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3058 (:background "gray10")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3059 (t |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3060 (:bold t)))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3061 (mh-search-folder |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3062 ((((class color) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3063 (:foreground "dark green" :bold t)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3064 (((class color) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3065 (:foreground "indian red" :bold t)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3066 (t |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3067 (:bold t)))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3068 (mh-show-cc |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3069 ((((class color) (min-colors 64) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3070 (:foreground "DarkGoldenrod")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3071 (((class color) (min-colors 64) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3072 (:foreground "LightGoldenrod")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3073 (((class color)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3074 (:foreground "yellow" :weight light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3075 (((class grayscale) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3076 (:foreground "Gray90" :bold t :italic t)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3077 (((class grayscale) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3078 (:foreground "DimGray" :bold t :italic t)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3079 (t |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3080 (:bold t :italic t)))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3081 (mh-show-date |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3082 ((((class color) (min-colors 64) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3083 (:foreground "ForestGreen")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3084 (((class color) (min-colors 64) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3085 (:foreground "PaleGreen")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3086 (((class color)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3087 (:foreground "green")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3088 (((class grayscale) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3089 (:foreground "Gray90" :bold t)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3090 (((class grayscale) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3091 (:foreground "DimGray" :bold t)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3092 (t |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3093 (:bold t :underline t)))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3094 (mh-show-from |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3095 ((((class color) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3096 (:foreground "red3")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3097 (((class color) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3098 (:foreground "cyan")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3099 (t |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3100 (:bold t)))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3101 (mh-show-header |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3102 ((((class color) (min-colors 64) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3103 (:foreground "RosyBrown")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3104 (((class color) (min-colors 64) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3105 (:foreground "LightSalmon")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3106 (((class color)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3107 (:foreground "green")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3108 (((class grayscale) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3109 (:foreground "DimGray" :italic t)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3110 (((class grayscale) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3111 (:foreground "LightGray" :italic t)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3112 (t |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3113 (:italic t)))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3114 (mh-show-pgg-bad ((t (:bold t :foreground "DeepPink1")))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3115 (mh-show-pgg-good ((t (:bold t :foreground "LimeGreen")))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3116 (mh-show-pgg-unknown ((t (:bold t :foreground "DarkGoldenrod2")))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3117 (mh-show-signature ((t (:italic t)))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3118 (mh-show-to |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3119 ((((class color) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3120 (:foreground "SaddleBrown")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3121 (((class color) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3122 (:foreground "burlywood")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3123 (((class grayscale) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3124 (:foreground "DimGray" :underline t)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3125 (((class grayscale) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3126 (:foreground "LightGray" :underline t)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3127 (t (:underline t)))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3128 (mh-speedbar-folder |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3129 ((((class color) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3130 (:foreground "blue4")) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3131 (((class color) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3132 (:foreground "light blue")))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3133 (mh-speedbar-selected-folder |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3134 ((((class color) (background light)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3135 (:foreground "red1" :underline t)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3136 (((class color) (background dark)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3137 (:foreground "red1" :underline t)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3138 (t |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3139 (:underline t)))))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3140 |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3141 (defun mh-face-data (face &optional inherit) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3142 "Return spec for FACE. |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3143 If INHERIT is non-nil and `defface' supports the :inherit |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3144 keyword, return INHERIT literally; otherwise, return spec for FACE. |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3145 |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3146 This isn't a perfect implementation. In the case that |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3147 the :inherit keyword is not supported, any additional attributes |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3148 in the inherit parameter are not added to the returned spec." |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3149 (if (and inherit mh-inherit-face-flag) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3150 inherit |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3151 (mh-defface-compat (cadr (assoc face mh-face-data))))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3152 |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3153 (defface mh-folder-address |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3154 (mh-face-data 'mh-folder-subject '((t (:inherit mh-folder-subject)))) |
68465 | 3155 "Recipient face." |
3156 :group 'mh-faces | |
3157 :group 'mh-folder) | |
3158 | |
3159 (defface mh-folder-body | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3160 (mh-face-data 'mh-folder-msg-number |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3161 '((((class color)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3162 (:inherit mh-folder-msg-number)) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3163 (t |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3164 (:inherit mh-folder-msg-number :italic t)))) |
68465 | 3165 "Body text face." |
3166 :group 'mh-faces | |
3167 :group 'mh-folder) | |
3168 | |
3169 (defface mh-folder-cur-msg-number | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3170 (mh-face-data 'mh-folder-msg-number |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3171 '((t (:inherit mh-folder-msg-number :bold t)))) |
68465 | 3172 "Current message number face." |
3173 :group 'mh-faces | |
3174 :group 'mh-folder) | |
3175 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3176 (defface mh-folder-date |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3177 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-msg-number)))) |
68465 | 3178 "Date face." |
3179 :group 'mh-faces | |
3180 :group 'mh-folder) | |
3181 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3182 (defface mh-folder-deleted |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3183 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-msg-number)))) |
68465 | 3184 "Deleted message face." |
3185 :group 'mh-faces | |
3186 :group 'mh-folder) | |
3187 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3188 (defface mh-folder-followup (mh-face-data 'mh-folder-followup) |
68465 | 3189 "\"Re:\" face." |
3190 :group 'mh-faces | |
3191 :group 'mh-folder) | |
3192 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3193 (defface mh-folder-msg-number (mh-face-data 'mh-folder-msg-number) |
68465 | 3194 "Message number face." |
3195 :group 'mh-faces | |
3196 :group 'mh-folder) | |
3197 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3198 (defface mh-folder-refiled (mh-face-data 'mh-folder-refiled) |
68465 | 3199 "Refiled message face." |
3200 :group 'mh-faces | |
3201 :group 'mh-folder) | |
3202 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3203 (defface mh-folder-sent-to-me-hint |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3204 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-date)))) |
68465 | 3205 "Fontification hint face in messages sent directly to us. |
3206 The detection of messages sent to us is governed by the scan | |
3207 format `mh-scan-format-nmh' and the regular expression | |
3208 `mh-scan-sent-to-me-sender-regexp'." | |
3209 :group 'mh-faces | |
3210 :group 'mh-folder) | |
3211 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3212 (defface mh-folder-sent-to-me-sender |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3213 (mh-face-data 'mh-folder-followup '((t (:inherit mh-folder-followup)))) |
68465 | 3214 "Sender face in messages sent directly to us. |
3215 The detection of messages sent to us is governed by the scan | |
3216 format `mh-scan-format-nmh' and the regular expression | |
3217 `mh-scan-sent-to-me-sender-regexp'." | |
3218 :group 'mh-faces | |
3219 :group 'mh-folder) | |
3220 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3221 (defface mh-folder-subject (mh-face-data 'mh-folder-subject) |
68465 | 3222 "Subject face." |
3223 :group 'mh-faces | |
3224 :group 'mh-folder) | |
3225 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3226 (defface mh-folder-tick (mh-face-data 'mh-folder-tick) |
68465 | 3227 "Ticked message face." |
3228 :group 'mh-faces | |
3229 :group 'mh-folder) | |
3230 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3231 (defface mh-folder-to (mh-face-data 'mh-folder-to) |
68465 | 3232 "\"To:\" face." |
3233 :group 'mh-faces | |
3234 :group 'mh-folder) | |
3235 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3236 (defface mh-letter-header-field (mh-face-data 'mh-letter-header-field) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3237 "Editable header field value face in draft buffers." |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3238 :group 'mh-faces |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3239 :group 'mh-letter) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3240 |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3241 (defface mh-search-folder (mh-face-data 'mh-search-folder) |
68465 | 3242 "Folder heading face in MH-Folder buffers created by searches." |
3243 :group 'mh-faces | |
3244 :group 'mh-search) | |
3245 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3246 (defface mh-show-cc (mh-face-data 'mh-show-cc) |
68465 | 3247 "Face used to highlight \"cc:\" header fields." |
3248 :group 'mh-faces | |
3249 :group 'mh-show) | |
3250 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3251 (defface mh-show-date (mh-face-data 'mh-show-date) |
68465 | 3252 "Face used to highlight \"Date:\" header fields." |
3253 :group 'mh-faces | |
3254 :group 'mh-show) | |
3255 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3256 (defface mh-show-from (mh-face-data 'mh-show-from) |
68465 | 3257 "Face used to highlight \"From:\" header fields." |
3258 :group 'mh-faces | |
3259 :group 'mh-show) | |
3260 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3261 (defface mh-show-header (mh-face-data 'mh-show-header) |
68465 | 3262 "Face used to deemphasize less interesting header fields." |
3263 :group 'mh-faces | |
3264 :group 'mh-show) | |
3265 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3266 (defface mh-show-pgg-bad (mh-face-data 'mh-show-pgg-bad) |
68465 | 3267 "Bad PGG signature face." |
3268 :group 'mh-faces | |
3269 :group 'mh-show) | |
3270 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3271 (defface mh-show-pgg-good (mh-face-data 'mh-show-pgg-good) |
68465 | 3272 "Good PGG signature face." |
3273 :group 'mh-faces | |
3274 :group 'mh-show) | |
3275 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3276 (defface mh-show-pgg-unknown (mh-face-data 'mh-show-pgg-unknown) |
68465 | 3277 "Unknown or untrusted PGG signature face." |
3278 :group 'mh-faces | |
3279 :group 'mh-show) | |
3280 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3281 (defface mh-show-signature (mh-face-data 'mh-show-signature) |
68465 | 3282 "Signature face." |
3283 :group 'mh-faces | |
3284 :group 'mh-show) | |
3285 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3286 (defface mh-show-subject |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3287 (mh-face-data 'mh-folder-subject '((t (:inherit mh-folder-subject)))) |
68465 | 3288 "Face used to highlight \"Subject:\" header fields." |
3289 :group 'mh-faces | |
3290 :group 'mh-show) | |
3291 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3292 (defface mh-show-to (mh-face-data 'mh-show-to) |
68465 | 3293 "Face used to highlight \"To:\" header fields." |
3294 :group 'mh-faces | |
3295 :group 'mh-show) | |
3296 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3297 (defface mh-show-xface |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3298 (mh-face-data 'mh-show-from '((t (:inherit (mh-show-from highlight))))) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3299 |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3300 "X-Face image face. |
68465 | 3301 The background and foreground are used in the image." |
3302 :group 'mh-faces | |
3303 :group 'mh-show) | |
3304 | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3305 (defface mh-speedbar-folder (mh-face-data 'mh-speedbar-folder) |
68465 | 3306 "Basic folder face." |
3307 :group 'mh-faces | |
3308 :group 'mh-speedbar) | |
3309 | |
3310 (defface mh-speedbar-folder-with-unseen-messages | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3311 (mh-face-data 'mh-speedbar-folder |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3312 '((t (:inherit mh-speedbar-folder :bold t)))) |
68465 | 3313 "Folder face when folder contains unread messages." |
3314 :group 'mh-faces | |
3315 :group 'mh-speedbar) | |
3316 | |
3317 (defface mh-speedbar-selected-folder | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3318 (mh-face-data 'mh-speedbar-selected-folder) |
68465 | 3319 "Selected folder face." |
3320 :group 'mh-faces | |
3321 :group 'mh-speedbar) | |
3322 | |
3323 (defface mh-speedbar-selected-folder-with-unseen-messages | |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3324 (mh-face-data 'mh-speedbar-selected-folder |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3325 '((t (:inherit mh-speedbar-selected-folder :bold t)))) |
68465 | 3326 "Selected folder face when folder contains unread messages." |
3327 :group 'mh-faces | |
3328 :group 'mh-speedbar) | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
3329 |
68948
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3330 ;; Get rid of temporary functions and data structures. |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3331 (fmakunbound 'mh-defface-compat) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3332 (fmakunbound 'mh-face-data) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3333 (makunbound 'mh-face-data) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3334 (makunbound 'mh-inherit-face-flag) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3335 (makunbound 'mh-min-colors-defined-flag) |
ab0fd996e480
(mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents:
68725
diff
changeset
|
3336 |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
3337 (provide 'mh-e) |
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
3338 |
67681 | 3339 ;; Local Variables: |
3340 ;; indent-tabs-mode: nil | |
3341 ;; sentence-end-double-space: nil | |
3342 ;; End: | |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
3343 |
67681 | 3344 ;; arch-tag: cce884de-bd37-4104-9963-e4439d5ed22b |
49459
06b77df47802
* mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
3345 ;;; mh-e.el ends here |