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