annotate lisp/mh-e/mh-e.el @ 108444:8ce523466531

Merge from mainline.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sat, 03 Apr 2010 12:47:25 +0000
parents 1d1d5d9bd884
children 0b37f86b040e 376148b31b5e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 105867
diff changeset
5 ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
101470
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>
103412
4327a1ddce17 (Version, mh-version): Update for release 8.2.
Bill Wohler <wohler@newt.com>
parents: 101562
diff changeset
10 ;; Version: 8.2
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
b7b013a56424 Update commentary.
Bill Wohler <wohler@newt.com>
parents: 70264
diff changeset
30 ;; MH-E is an Emacs interface to the MH mail system.
b7b013a56424 Update commentary.
Bill Wohler <wohler@newt.com>
parents: 70264
diff changeset
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
b7b013a56424 Update commentary.
Bill Wohler <wohler@newt.com>
parents: 70264
diff changeset
33 ;; (except for versions 21.5.9-21.5.16). It is compatible with MH
b7b013a56424 Update commentary.
Bill Wohler <wohler@newt.com>
parents: 70264
diff changeset
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
b7b013a56424 Update commentary.
Bill Wohler <wohler@newt.com>
parents: 70264
diff changeset
37
b7b013a56424 Update commentary.
Bill Wohler <wohler@newt.com>
parents: 70264
diff changeset
38 ;; MH (Message Handler) is a powerful mail reader. See
b7b013a56424 Update commentary.
Bill Wohler <wohler@newt.com>
parents: 70264
diff changeset
39 ;; http://rand-mh.sourceforge.net/.
b7b013a56424 Update commentary.
Bill Wohler <wohler@newt.com>
parents: 70264
diff changeset
40
b7b013a56424 Update commentary.
Bill Wohler <wohler@newt.com>
parents: 70264
diff changeset
41 ;; N.B. MH must have been compiled with the MHE compiler flag or several
b7b013a56424 Update commentary.
Bill Wohler <wohler@newt.com>
parents: 70264
diff changeset
42 ;; features necessary for MH-E will be missing from MH commands, specifically
b7b013a56424 Update commentary.
Bill Wohler <wohler@newt.com>
parents: 70264
diff changeset
43 ;; the -build switch to repl and forw.
b7b013a56424 Update commentary.
Bill Wohler <wohler@newt.com>
parents: 70264
diff changeset
44
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
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
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
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
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
55 ;; If Emacs can't find mh-rmail or mh-smail, add the following to ~/.emacs:
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
56 ;; (require 'mh-autoloads)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
57
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
58 ;; If you want to customize MH-E before explicitly loading it, add this:
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
59 ;; (require 'mh-cus-load)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
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
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
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
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
72 ;; Include the output of M-x mh-version in the bug report unless
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
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
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
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
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
92 ;; Provide functions to the rest of MH-E. However, mh-e.el must not
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
93 ;; use any definitions in files that require mh-e from mh-loaddefs,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
94 ;; for if it does it will introduce a require loop.
105851
b7557958fa7d Load mh-loaddefs during compilation as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105844
diff changeset
95 (eval-and-compile
b7557958fa7d Load mh-loaddefs during compilation as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105844
diff changeset
96 ;; Load it during compilation as well, since it defines the macro
b7557958fa7d Load mh-loaddefs during compilation as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105844
diff changeset
97 ;; mh-require-cl.
b7557958fa7d Load mh-loaddefs during compilation as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105844
diff changeset
98 (load "mh-loaddefs" nil 'nomessage))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
99
56406
d36b00b98db0 Upgraded to MH-E version 7.4.4.
Bill Wohler <wohler@newt.com>
parents: 55151
diff changeset
100 (mh-require-cl)
68096
57c4e7929f99 * mh-alias.el (mh-alias-gecos-name): Use replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents: 68014
diff changeset
101
71598
2ca38a2a66e0 Require mh-buffers and mh-compat before mh-xemacs now that mh-xemacs
Bill Wohler <wohler@newt.com>
parents: 71414
diff changeset
102 (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
103 (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
104
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
105 (mh-do-in-xemacs
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
106 (require 'mh-xemacs))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
107
70026
a0de53f6c617 * mh-compat.el (mh-font-lock-add-keywords): New alias for
Bill Wohler <wohler@newt.com>
parents: 70022
diff changeset
108 (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
109 'emacs-lisp-mode
a0de53f6c617 * mh-compat.el (mh-font-lock-add-keywords): New alias for
Bill Wohler <wohler@newt.com>
parents: 70022
diff changeset
110 (eval-when-compile
a0de53f6c617 * mh-compat.el (mh-font-lock-add-keywords): New alias for
Bill Wohler <wohler@newt.com>
parents: 70022
diff changeset
111 `((,(concat "(\\("
a0de53f6c617 * mh-compat.el (mh-font-lock-add-keywords): New alias for
Bill Wohler <wohler@newt.com>
parents: 70022
diff changeset
112 ;; 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
113 "\\(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
114 ;; 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
115 "\\(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
116 ;; 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
117 "\\(defgroup-mh\\)"
70026
a0de53f6c617 * mh-compat.el (mh-font-lock-add-keywords): New alias for
Bill Wohler <wohler@newt.com>
parents: 70022
diff changeset
118 "\\)\\>"
a0de53f6c617 * mh-compat.el (mh-font-lock-add-keywords): New alias for
Bill Wohler <wohler@newt.com>
parents: 70022
diff changeset
119 ;; 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
120 "[ \t'\(]*"
a0de53f6c617 * mh-compat.el (mh-font-lock-add-keywords): New alias for
Bill Wohler <wohler@newt.com>
parents: 70022
diff changeset
121 "\\(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
122 (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
123 (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
124 ((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
125 (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
126 nil t)))))
a0de53f6c617 * mh-compat.el (mh-font-lock-add-keywords): New alias for
Bill Wohler <wohler@newt.com>
parents: 70022
diff changeset
127
56673
e9a6cbc8ca5e Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents: 56407
diff changeset
128
67681
3a8785724cca * mh-acros.el:
Bill Wohler <wohler@newt.com>
parents: 67656
diff changeset
129
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
130 ;;; Global Variables
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
131
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
132 ;; Try to keep variables local to a single file. Provide accessors if
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
133 ;; variables are shared. Use this section as a last resort.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
134
103412
4327a1ddce17 (Version, mh-version): Update for release 8.2.
Bill Wohler <wohler@newt.com>
parents: 101562
diff changeset
135 (defconst mh-version "8.2" "Version number of MH-E.")
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
136
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
137 ;; Variants
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
138
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
139 (defvar mh-sys-path
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
140 '("/usr/local/nmh/bin" ; nmh default
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
141 "/usr/local/bin/mh/"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
142 "/usr/local/mh/"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
143 "/usr/bin/mh/" ; Ultrix 4.2, Linux
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
144 "/usr/new/mh/" ; Ultrix < 4.2
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
145 "/usr/contrib/mh/bin/" ; BSDI
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
146 "/usr/pkg/bin/" ; NetBSD
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
147 "/usr/local/bin/"
97408
7cf98fa4941b (mh-variant-mh-info, mh-variant-nmh-info)
Bill Wohler <wohler@newt.com>
parents: 97189
diff changeset
148 "/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
149 "/usr/bin/mu-mh/") ; GNU mailutils MH - packaged
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
150 "List of directories to search for variants of the MH variant.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
151 The list `exec-path' is searched in addition to this list.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
152 There's no need for users to modify this list. Instead add extra
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
153 directories to the customizable variable `mh-path'.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
154
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
155 (defvar mh-variants nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
156 "List describing known MH variants.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
157 Do not access this variable directly as it may not have yet been initialized.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
158 Use the function `mh-variants' instead.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
159
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
160 (defvar mh-variant-in-use nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
161 "The MH variant currently in use; a string with variant and version number.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
162 This differs from `mh-variant' when the latter is set to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
163 \"autodetect\".")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
164
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
165 (defvar mh-progs nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
166 "Directory containing MH commands, such as inc, repl, and rmm.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
167
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
168 ;;;###autoload
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
169 (put 'mh-progs 'risky-local-variable t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
170
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
171 (defvar mh-lib nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
172 "Directory containing the MH library.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
173 This directory contains, among other things, the components file.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
174
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
175 ;;;###autoload
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
176 (put 'mh-lib 'risky-local-variable t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
177
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
178 (defvar mh-lib-progs nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
179 "Directory containing MH helper programs.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
180 This directory contains, among other things, the mhl program.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
181
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
182 ;;;###autoload
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
183 (put 'mh-lib-progs 'risky-local-variable t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
184
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
185 ;; Profile Components
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
186
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
187 (defvar mh-draft-folder nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
188 "Cached value of the \"Draft-Folder:\" MH profile component.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
189 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
190 Do not use a draft folder if nil.")
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
191
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
192 (defvar mh-inbox nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
193 "Cached value of the \"Inbox:\" MH profile component.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
194 Set to \"+inbox\" if no such component.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
195 Name of the Inbox folder.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
196
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
197 (defvar mh-user-path nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
198 "Cached value of the \"Path:\" MH profile component.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
199 User's mail folder directory.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
200
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
201 ;; 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
202
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
203 (defvar mh-folder-mode-map (make-keymap)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
204 "Keymap for MH-Folder mode.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
205
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
206 (defvar mh-folder-seq-tool-bar-map nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
207 "Keymap for MH-Folder tool bar.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
208
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
209 (defvar mh-folder-tool-bar-map nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
210 "Keymap for MH-Folder tool bar.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
211
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
212 (defvar mh-inc-spool-map (make-sparse-keymap)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
213 "Keymap for MH-E's mh-inc-spool commands.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
214
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
215 (defvar mh-letter-mode-map (copy-keymap text-mode-map)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
216 "Keymap for MH-Letter mode.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
217
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
218 (defvar mh-letter-tool-bar-map nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
219 "Keymap for MH-Letter tool bar.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
220
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
221 (defvar mh-search-mode-map (make-sparse-keymap)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
222 "Keymap for MH-Search mode.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
223
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
224 (defvar mh-show-mode-map (make-sparse-keymap)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
225 "Keymap MH-Show mode.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
226
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
227 (defvar mh-show-seq-tool-bar-map nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
228 "Keymap for MH-Show tool bar.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
229
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
230 (defvar mh-show-tool-bar-map nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
231 "Keymap for MH-Show tool bar.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
232
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
233 ;; 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
234
67756
7ff92ad99326 * mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents: 67689
diff changeset
235 (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
236 "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
237
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
238 (defvar mh-colors-available-flag nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
239 "Non-nil means colors are available.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
240
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
241 (defvar mh-current-folder nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
242 "Name of current folder, a string.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
243
67756
7ff92ad99326 * mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents: 67689
diff changeset
244 (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
245 "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
246 This variable can be used by
6b063593fdad Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents: 67756
diff changeset
247 `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
248
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
249 (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
250 "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
251
7ff92ad99326 * mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents: 67689
diff changeset
252 (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
253 "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
254
49459
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
255 (defvar mh-index-previous-search nil)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
256
49459
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
257 (defvar mh-index-msg-checksum-map nil)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
258
49459
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
259 (defvar mh-index-checksum-origin-map nil)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
260
56406
d36b00b98db0 Upgraded to MH-E version 7.4.4.
Bill Wohler <wohler@newt.com>
parents: 55151
diff changeset
261 (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
262
67756
7ff92ad99326 * mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents: 67689
diff changeset
263 (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
264 "Message range displayed in buffer.")
56406
d36b00b98db0 Upgraded to MH-E version 7.4.4.
Bill Wohler <wohler@newt.com>
parents: 55151
diff changeset
265
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
266 (defvar mh-next-direction 'forward
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
267 "Direction to move to next message.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
268
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
269 (defvar mh-previous-window-config nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
270 "Window configuration before MH-E command.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
271
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
272 (defvar mh-refile-list nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
273 "List of folder names in `mh-seq-list'.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
274 This variable can be used by
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
275 `mh-before-commands-processed-hook'.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
276
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
277 (defvar mh-seen-list nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
278 "List of displayed messages to be removed from the \"Unseen\" sequence.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
279
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
280 (defvar mh-seq-list nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
281 "Alist of this folder's sequences.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
282 Elements have the form (SEQUENCE . MESSAGES).")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
283
67756
7ff92ad99326 * mh-alias.el (mh-alias-reload): Sync docstrings with manual.
Bill Wohler <wohler@newt.com>
parents: 67689
diff changeset
284 (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
285 "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
286
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
287 (defvar mh-show-buffer nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
288 "Buffer that displays message for this folder.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
289
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
290 (defvar mh-showing-mode nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
291 "If non-nil, show the message in a separate window.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
292
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
293 (defvar mh-view-ops nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
294 "Stack of operations that change the folder view.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
295 These operations include narrowing or threading.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
296
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
297 ;; MH-Show Locals (alphabetical)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
298
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
299 (defvar mh-globals-hash (make-hash-table)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
300 "Keeps track of MIME data on a per buffer basis.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
301
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
302 (defvar mh-show-folder-buffer nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
303 "Keeps track of folder whose message is being displayed.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
304
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
305 ;; MH-Letter Locals
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
306
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
307 (defvar mh-folders-changed nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
308 "Lists which folders were affected by deletes and refiles.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
309 This list will always include the current folder
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
310 `mh-current-folder'. This variable can be used by
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
311 `mh-after-commands-processed-hook'.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
312
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
313 (defvar mh-mail-header-separator "--------"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
314 "*Line used by MH to separate headers from text in messages being composed.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
315
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
316 This variable should not be used directly in programs. Programs
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
317 should use `mail-header-separator' instead.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
318 `mail-header-separator' is initialized to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
319 `mh-mail-header-separator' in `mh-letter-mode'; in other
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
320 contexts, you may have to perform this initialization yourself.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
321
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
322 Do not make this a regular expression as it may be the argument
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
323 to `insert' and it is passed through `regexp-quote' before being
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
324 used by functions like `re-search-forward'.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
325
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
326 (defvar mh-sent-from-folder nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
327 "Folder of msg assoc with this letter.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
328
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
329 (defvar mh-sent-from-msg nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
330 "Number of msg assoc with this letter.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
331
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
332 ;; Sequences
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
333
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
334 (defvar mh-unseen-seq nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
335 "Cached value of the \"Unseen-Sequence:\" MH profile component.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
336 Name of the Unseen sequence.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
337
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
338 (defvar mh-previous-seq nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
339 "Cached value of the \"Previous-Sequence:\" MH profile component.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
340 Name of the Previous sequence.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
341
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
342 ;; Etc. (alphabetical)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
343
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
344 (defvar mh-flists-present-flag nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
345 "Non-nil means that we have \"flists\".")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
346
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
347 (defvar mh-index-data-file ".mhe_index"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
348 "MH-E specific file where index seach info is stored.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
349
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
350 (defvar mh-letter-header-field-regexp "^\\([A-Za-z][A-Za-z0-9-]*\\):")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
351
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
352 (defvar mh-page-to-next-msg-flag nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
353 "Non-nil means next SPC or whatever goes to next undeleted message.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
354
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
355 (defvar mh-pgp-support-flag (not (not (locate-library "mml2015")))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
356 "Non-nil means PGP support is available.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
357
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
358 (defvar mh-signature-separator "-- \n"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
359 "Text of a signature separator.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
360
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
361 A signature separator is used to separate the body of a message
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
362 from the signature. This can be used by user agents such as MH-E
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
363 to render the signature differently or to suppress the inclusion
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
364 of the signature in a reply. Use `mh-signature-separator-regexp'
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
365 when searching for a separator.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
366
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
367 (defvar mh-signature-separator-regexp "^-- $"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
368 "This regular expression matches the signature separator.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
369 See `mh-signature-separator'.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
370
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
371 (defvar mh-thread-scan-line-map nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
372 "Map of message index to various parts of the scan line.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
373 (make-variable-buffer-local 'mh-thread-scan-line-map)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
374
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
375 (defvar mh-thread-scan-line-map-stack nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
376 "Old map of message index to various parts of the scan line.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
377 This is the original map that is stored when the folder is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
378 narrowed.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
379 (make-variable-buffer-local 'mh-thread-scan-line-map-stack)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
380
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
381 (defvar mh-x-mailer-string nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
382 "*String containing the contents of the X-Mailer header field.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
383 If nil, this variable is initialized to show the version of MH-E,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
384 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
385
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
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
388 ;;; 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
389
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
390 (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
391
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
392 (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
393 "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
394 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
395 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
396 gnus-version)
49459
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
397
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
398 (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
399 "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
400 (require 'gnus)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
401 gnus-version)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
402
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
403 ;;;###autoload
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
404 (defun mh-version ()
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
405 "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
406 (interactive)
49578
b35587af8747 Upgraded to MH-E version 7.2.
Bill Wohler <wohler@newt.com>
parents: 49459
diff changeset
407 (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
408 (erase-buffer)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
409 ;; MH-E version.
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
410 (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
411 ;; 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
412 (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
413 (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
414 (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
415 (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
416 "N/A")))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
417 (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
418 " 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
419 " 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
420 ;; Emacs version.
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
421 (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
422 ;; MH version.
56673
e9a6cbc8ca5e Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents: 56407
diff changeset
423 (if mh-variant-in-use
e9a6cbc8ca5e Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents: 56407
diff changeset
424 (insert mh-variant-in-use "\n"
e9a6cbc8ca5e Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents: 56407
diff changeset
425 " mh-progs:\t" mh-progs "\n"
e9a6cbc8ca5e Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents: 56407
diff changeset
426 " mh-lib:\t" mh-lib "\n"
e9a6cbc8ca5e Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents: 56407
diff changeset
427 " 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
428 (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
429 ;; Linux version.
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
430 (condition-case ()
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
431 (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
432 (file-error))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
433 (goto-char (point-min))
49578
b35587af8747 Upgraded to MH-E version 7.2.
Bill Wohler <wohler@newt.com>
parents: 49459
diff changeset
434 (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
435
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
436
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
437
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
438 ;;; Support Routines
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
439
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
440 (defun mh-list-to-string (l)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
441 "Flatten the list L and make every element of the new list into a string."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
442 (nreverse (mh-list-to-string-1 l)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
443
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
444 (defun mh-list-to-string-1 (l)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
445 "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
446 (let (new-list)
e9f5e5650ade (mh-list-to-string-1): Use dolist.
Bill Wohler <wohler@newt.com>
parents: 69492
diff changeset
447 (dolist (element l)
e9f5e5650ade (mh-list-to-string-1): Use dolist.
Bill Wohler <wohler@newt.com>
parents: 69492
diff changeset
448 (cond ((null element))
e9f5e5650ade (mh-list-to-string-1): Use dolist.
Bill Wohler <wohler@newt.com>
parents: 69492
diff changeset
449 ((symbolp element)
e9f5e5650ade (mh-list-to-string-1): Use dolist.
Bill Wohler <wohler@newt.com>
parents: 69492
diff changeset
450 (push (symbol-name element) new-list))
e9f5e5650ade (mh-list-to-string-1): Use dolist.
Bill Wohler <wohler@newt.com>
parents: 69492
diff changeset
451 ((numberp element)
e9f5e5650ade (mh-list-to-string-1): Use dolist.
Bill Wohler <wohler@newt.com>
parents: 69492
diff changeset
452 (push (int-to-string element) new-list))
e9f5e5650ade (mh-list-to-string-1): Use dolist.
Bill Wohler <wohler@newt.com>
parents: 69492
diff changeset
453 ((equal element ""))
e9f5e5650ade (mh-list-to-string-1): Use dolist.
Bill Wohler <wohler@newt.com>
parents: 69492
diff changeset
454 ((stringp element)
e9f5e5650ade (mh-list-to-string-1): Use dolist.
Bill Wohler <wohler@newt.com>
parents: 69492
diff changeset
455 (push element new-list))
e9f5e5650ade (mh-list-to-string-1): Use dolist.
Bill Wohler <wohler@newt.com>
parents: 69492
diff changeset
456 ((listp element)
e9f5e5650ade (mh-list-to-string-1): Use dolist.
Bill Wohler <wohler@newt.com>
parents: 69492
diff changeset
457 (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
458 (t
e9f5e5650ade (mh-list-to-string-1): Use dolist.
Bill Wohler <wohler@newt.com>
parents: 69492
diff changeset
459 (error "Bad element: %s" element))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
460 new-list))
49459
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
461
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
462
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
463
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
464 ;;; MH-E Process Support
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
466 (defvar mh-index-max-cmdline-args 500
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
467 "Maximum number of command line args.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
468
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
469 (defun mh-xargs (cmd &rest args)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
470 "Partial imitation of xargs.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
471 The current buffer contains a list of strings, one on each line.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
472 The function will execute CMD with ARGS and pass the first
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
473 `mh-index-max-cmdline-args' strings to it. This is repeated till
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
474 all the strings have been used."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
475 (goto-char (point-min))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
476 (let ((current-buffer (current-buffer)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
477 (with-temp-buffer
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
478 (let ((out (current-buffer)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
479 (set-buffer current-buffer)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
480 (while (not (eobp))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
481 (let ((arg-list (reverse args))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
482 (count 0))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
483 (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
484 (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
485 (mh-line-end-position))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
486 arg-list)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
487 (incf count)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
488 (forward-line))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
489 (apply #'call-process cmd nil (list out nil) nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
490 (nreverse arg-list))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
491 (erase-buffer)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
492 (insert-buffer-substring out)))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
493
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
494 ;; XXX This should be applied anywhere MH-E calls out to /bin/sh.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
495 (defun mh-quote-for-shell (string)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
496 "Quote STRING for /bin/sh.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
497 Adds double-quotes around entire string and quotes the characters
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
498 \\, `, and $ with a backslash."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
499 (concat "\""
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
500 (loop for x across string
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
501 concat (format (if (memq x '(?\\ ?` ?$)) "\\%c" "%c") x))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
502 "\""))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
503
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
504 (defun mh-exec-cmd (command &rest args)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
505 "Execute mh-command COMMAND with ARGS.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
506 The side effects are what is desired. Any output is assumed to be
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
507 an error and is shown to the user. The output is not read or
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
508 parsed by MH-E."
105867
00c0adbb54a9 * mh-thread.el (mh-thread-set-tables):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105851
diff changeset
509 (with-current-buffer (get-buffer-create mh-log-buffer)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
510 (let* ((initial-size (mh-truncate-log-buffer))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
511 (start (point))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
512 (args (mh-list-to-string args)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
513 (apply 'call-process (expand-file-name command mh-progs) nil t nil args)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
514 (when (> (buffer-size) initial-size)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
515 (save-excursion
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
516 (goto-char start)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
517 (insert "Errors when executing: " command)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
518 (loop for arg in args do (insert " " arg))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
519 (insert "\n"))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
520 (save-window-excursion
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
521 (switch-to-buffer-other-window mh-log-buffer)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
522 (sit-for 5))))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
523
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
524 (defun mh-exec-cmd-error (env command &rest args)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
525 "In environment ENV, execute mh-command COMMAND with ARGS.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
526 ENV is nil or a string of space-separated \"var=value\" elements.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
527 Signals an error if process does not complete successfully."
105867
00c0adbb54a9 * mh-thread.el (mh-thread-set-tables):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105851
diff changeset
528 (with-current-buffer (get-buffer-create mh-temp-buffer)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
529 (erase-buffer)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
530 (let ((process-environment process-environment))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
531 ;; XXX: We should purge the list that split-string returns of empty
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
532 ;; strings. This can happen in XEmacs if leading or trailing spaces
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
533 ;; are present.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
534 (dolist (elem (if (stringp env) (split-string env " ") ()))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
535 (push elem process-environment))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
536 (mh-handle-process-error
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
537 command (apply #'call-process (expand-file-name command mh-progs)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
538 nil t nil (mh-list-to-string args))))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
539
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
540 (defun mh-exec-cmd-daemon (command filter &rest args)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
541 "Execute MH command COMMAND in the background.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
542
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
543 If FILTER is non-nil then it is used to process the output
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
544 otherwise the default filter `mh-process-daemon' is used. See
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
545 `set-process-filter' for more details of FILTER.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
546
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
547 ARGS are passed to COMMAND as command line arguments."
105867
00c0adbb54a9 * mh-thread.el (mh-thread-set-tables):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105851
diff changeset
548 (with-current-buffer (get-buffer-create mh-log-buffer)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
549 (mh-truncate-log-buffer))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
550 (let* ((process-connection-type nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
551 (process (apply 'start-process
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
552 command nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
553 (expand-file-name command mh-progs)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
554 (mh-list-to-string args))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
555 (set-process-filter process (or filter 'mh-process-daemon))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
556 process))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
557
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
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
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
560
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
561 ENV is nil or a string of space-separated \"var=value\" elements.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
562 Signals an error if process does not complete successfully.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
563
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
564 If FILTER is non-nil then it is used to process the output
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
565 otherwise the default filter `mh-process-daemon' is used. See
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
566 `set-process-filter' for more details of FILTER.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
567
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
568 ARGS are passed to COMMAND as command line arguments."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
569 (let ((process-environment process-environment))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
570 (dolist (elem (if (stringp env) (split-string env " ") ()))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
571 (push elem process-environment))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
572 (apply #'mh-exec-cmd-daemon command filter args)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
573
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
574 (defun mh-process-daemon (process output)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
575 "PROCESS daemon that puts OUTPUT into a temporary buffer.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
576 Any output from the process is displayed in an asynchronous
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
577 pop-up window."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
578 (with-current-buffer (get-buffer-create mh-log-buffer)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
579 (insert-before-markers output)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
580 (display-buffer mh-log-buffer)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
581
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
582 (defun mh-exec-cmd-quiet (raise-error command &rest args)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
583 "Signal RAISE-ERROR if COMMAND with ARGS fails.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
584 Execute MH command COMMAND with ARGS. ARGS is a list of strings.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
585 Return at start of mh-temp buffer, where output can be parsed and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
586 used.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
587 Returns value of `call-process', which is 0 for success, unless
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
588 RAISE-ERROR is non-nil, in which case an error is signaled if
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
589 `call-process' returns non-0."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
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
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
592 (let ((value
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
593 (apply 'call-process
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
594 (expand-file-name command mh-progs) nil t nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
595 args)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
596 (goto-char (point-min))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
597 (if raise-error
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
598 (mh-handle-process-error command value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
599 value)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
600
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
601 (defun mh-exec-cmd-output (command display &rest args)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
602 "Execute MH command COMMAND with DISPLAY flag and ARGS.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
603 Put the output into buffer after point.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
604 Set mark after inserted text.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
605 Output is expected to be shown to user, not parsed by MH-E."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
606 (push-mark (point) t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
607 (apply 'call-process
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
608 (expand-file-name command mh-progs) nil t display
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
609 (mh-list-to-string args))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
610
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
611 ;; The following is used instead of 'exchange-point-and-mark because the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
612 ;; latter activates the current region (between point and mark), which
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
613 ;; turns on highlighting. So prior to this bug fix, doing "inc" would
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
614 ;; highlight a region containing the new messages, which is undesirable.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
615 ;; The bug wasn't seen in emacs21 but still occurred in XEmacs21.4.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
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
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
620
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
621 (defun mh-exchange-point-and-mark-preserving-active-mark ()
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
622 "Put the mark where point is now, and point where the mark is now.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
623 This command works even when the mark is not active, and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
624 preserves whether the mark is active or not."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
625 (interactive nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
626 (let ((is-active (and (boundp 'mark-active) mark-active)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
627 (let ((omark (mark t)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
628 (if (null omark)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
629 (error "No mark set in this buffer"))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
630 (set-mark (point))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
631 (goto-char omark)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
632 (if (boundp 'mark-active)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
633 (setq mark-active is-active))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
634 nil)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
635
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
636 (defun mh-exec-lib-cmd-output (command &rest args)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
637 "Execute MH library command COMMAND with ARGS.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
638 Put the output into buffer after point.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
639 Set mark after inserted text."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
640 (apply 'mh-exec-cmd-output (expand-file-name command mh-lib-progs) nil args))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
641
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
642 (defun mh-handle-process-error (command status)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
643 "Raise error if COMMAND returned non-zero STATUS, otherwise return STATUS."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
644 (if (equal status 0)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
645 status
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
646 (goto-char (point-min))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
647 (insert (if (integerp status)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
648 (format "%s: exit code %d\n" command status)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
649 (format "%s: %s\n" command status)))
105867
00c0adbb54a9 * mh-thread.el (mh-thread-set-tables):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105851
diff changeset
650 (let ((error-message (buffer-substring (point-min) (point-max))))
00c0adbb54a9 * mh-thread.el (mh-thread-set-tables):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105851
diff changeset
651 (with-current-buffer (get-buffer-create mh-log-buffer)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
652 (mh-truncate-log-buffer)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
653 (insert error-message)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
654 (error "%s failed, check buffer %s for error message"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
655 command mh-log-buffer)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
656
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
657
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
658
69846
9942deb37276 (mh-path, mh-variant): Define with mh-defcustom and add
Bill Wohler <wohler@newt.com>
parents: 69749
diff changeset
659 ;;; 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
660
9942deb37276 (mh-path, mh-variant): Define with mh-defcustom and add
Bill Wohler <wohler@newt.com>
parents: 69749
diff changeset
661 ;; 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
662 (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
663
9942deb37276 (mh-path, mh-variant): Define with mh-defcustom and add
Bill Wohler <wohler@newt.com>
parents: 69749
diff changeset
664 ;; 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
665 ;; 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
666 (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
667 "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
668 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
669 ARGS is returned unchanged."
9942deb37276 (mh-path, mh-variant): Define with mh-defcustom and add
Bill Wohler <wohler@newt.com>
parents: 69749
diff changeset
670 `(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
671 ,args
9942deb37276 (mh-path, mh-variant): Define with mh-defcustom and add
Bill Wohler <wohler@newt.com>
parents: 69749
diff changeset
672 (let (seen)
9942deb37276 (mh-path, mh-variant): Define with mh-defcustom and add
Bill Wohler <wohler@newt.com>
parents: 69749
diff changeset
673 (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
674 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
675 (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
676 (t t))
9942deb37276 (mh-path, mh-variant): Define with mh-defcustom and add
Bill Wohler <wohler@newt.com>
parents: 69749
diff changeset
677 collect keyword))))
9942deb37276 (mh-path, mh-variant): Define with mh-defcustom and add
Bill Wohler <wohler@newt.com>
parents: 69749
diff changeset
678
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
679 (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
680 "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
681 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
682 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
683 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
684 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
685 (declare (doc-string 3))
9942deb37276 (mh-path, mh-variant): Define with mh-defcustom and add
Bill Wohler <wohler@newt.com>
parents: 69749
diff changeset
686 `(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
687 (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
688
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
689 (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
690 "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
691 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
692 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
693 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
694 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
695 (declare (doc-string 3))
9942deb37276 (mh-path, mh-variant): Define with mh-defcustom and add
Bill Wohler <wohler@newt.com>
parents: 69749
diff changeset
696 `(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
697 (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
698
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
699 (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
700 "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
701 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
702 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
703 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
704 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
705 (declare (doc-string 3))
9942deb37276 (mh-path, mh-variant): Define with mh-defcustom and add
Bill Wohler <wohler@newt.com>
parents: 69749
diff changeset
706 `(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
707 (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
708
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
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
711 ;;; Variant Support
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
712
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
713 (defcustom-mh mh-path nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
714 "*Additional list of directories to search for MH.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
715 See `mh-variant'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
716 :group 'mh-e
69846
9942deb37276 (mh-path, mh-variant): Define with mh-defcustom and add
Bill Wohler <wohler@newt.com>
parents: 69749
diff changeset
717 :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
718 :package-version '(MH-E . "8.0"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
719
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
720 (defun mh-variants ()
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
721 "Return a list of installed variants of MH on the system.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
722 This function looks for MH in `mh-sys-path', `mh-path' and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
723 `exec-path'. The format of the list of variants that is returned
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
724 is described by the variable `mh-variants'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
725 (if mh-variants
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
726 mh-variants
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
727 (let ((list-unique))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
728 ;; Make a unique list of directories, keeping the given order.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
729 ;; We don't want the same MH variant to be listed multiple times.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
730 (loop for dir in (append mh-path mh-sys-path exec-path) do
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
731 (setq dir (file-chase-links (directory-file-name dir)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
732 (add-to-list 'list-unique dir))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
733 (loop for dir in (nreverse list-unique) do
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
734 (when (and dir (file-directory-p dir) (file-readable-p dir))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
735 (let ((variant (mh-variant-info dir)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
736 (if variant
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
737 (add-to-list 'mh-variants variant)))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
738 mh-variants)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
739
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
740 (defun mh-variant-info (dir)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
741 "Return MH variant found in DIR, or nil if none present."
105867
00c0adbb54a9 * mh-thread.el (mh-thread-set-tables):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105851
diff changeset
742 (let ((tmp-buffer (get-buffer-create mh-temp-buffer)))
00c0adbb54a9 * mh-thread.el (mh-thread-set-tables):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105851
diff changeset
743 (with-current-buffer tmp-buffer
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
744 (cond
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
745 ((mh-variant-mh-info dir))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
746 ((mh-variant-nmh-info dir))
97408
7cf98fa4941b (mh-variant-mh-info, mh-variant-nmh-info)
Bill Wohler <wohler@newt.com>
parents: 97189
diff changeset
747 ((mh-variant-gnu-mh-info dir))))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
748
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
749 (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
750 "Return info for MH variant in DIR assuming a temporary buffer is set up."
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
751 ;; MH does not have the -version option.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
752 ;; Its version number is included in the output of "-help" as:
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
753 ;;
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
754 ;; version: MH 6.8.4 #2[UCI] (burrito) of Fri Jan 15 20:01:39 EST 1999
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
755 ;; options: [ATHENA] [BIND] [DUMB] [LIBLOCKFILE] [LOCALE] [MAILGROUP] [MHE]
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
756 ;; [MHRC] [MIME] [MORE='"/usr/bin/sensible-pager"'] [NLINK_HACK]
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
757 ;; [NORUSERPASS] [OVERHEAD] [POP] [POPSERVICE='"pop-3"'] [RENAME]
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
758 ;; [RFC1342] [RPATHS] [RPOP] [SENDMTS] [SMTP] [SOCKETS]
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
759 ;; [SPRINTFTYPE=int] [SVR4] [SYS5] [SYS5DIR] [TERMINFO]
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
760 ;; [TYPESIG=void] [UNISTD] [UTK] [VSPRINTF]
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
761 (let ((mhparam (expand-file-name "mhparam" dir)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
762 (when (mh-file-command-p mhparam)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
763 (erase-buffer)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
764 (call-process mhparam nil '(t nil) nil "-help")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
765 (goto-char (point-min))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
766 (when (search-forward-regexp "version: MH \\(\\S +\\)" nil t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
767 (let ((version (format "MH %s" (match-string 1))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
768 (erase-buffer)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
769 (call-process mhparam nil '(t nil) nil "libdir")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
770 (goto-char (point-min))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
771 (when (search-forward-regexp "^.*$" nil t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
772 (let ((libdir (match-string 0)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
773 `(,version
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
774 (variant mh)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
775 (mh-lib-progs ,libdir)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
776 (mh-lib ,libdir)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
777 (mh-progs ,dir)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
778 (flists nil)))))))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
779
97408
7cf98fa4941b (mh-variant-mh-info, mh-variant-nmh-info)
Bill Wohler <wohler@newt.com>
parents: 97189
diff changeset
780 (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
781 "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
782 This assumes that a temporary buffer is set up."
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
783 ;; 'mhparam -version' output:
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
784 ;; mhparam (GNU mailutils 0.3.2)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
785 (let ((mhparam (expand-file-name "mhparam" dir)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
786 (when (mh-file-command-p mhparam)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
787 (erase-buffer)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
788 (call-process mhparam nil '(t nil) nil "-version")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
789 (goto-char (point-min))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
790 (when (search-forward-regexp "mhparam (\\(GNU [Mm]ailutils \\S +\\))"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
791 nil t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
792 (let ((version (match-string 1))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
793 (mh-progs dir))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
794 `(,version
97408
7cf98fa4941b (mh-variant-mh-info, mh-variant-nmh-info)
Bill Wohler <wohler@newt.com>
parents: 97189
diff changeset
795 (variant gnu-mh)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
796 (mh-lib-progs ,(mh-profile-component "libdir"))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
797 (mh-lib ,(mh-profile-component "etcdir"))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
798 (mh-progs ,dir)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
799 (flists ,(file-exists-p
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
800 (expand-file-name "flists" dir)))))))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
801
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
802 (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
803 "Return info for nmh variant in DIR assuming a temporary buffer is set up."
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
804 ;; `mhparam -version' outputs:
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
805 ;; mhparam -- nmh-1.1-RC1 [compiled on chaak at Fri Jun 20 11:03:28 PDT 2003]
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
806 (let ((mhparam (expand-file-name "mhparam" dir)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
807 (when (mh-file-command-p mhparam)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
808 (erase-buffer)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
809 (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
810 (goto-char (point-min))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
811 (when (search-forward-regexp "mhparam -- nmh-\\(\\S +\\)" nil t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
812 (let ((version (format "nmh %s" (match-string 1)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
813 (mh-progs dir))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
814 `(,version
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
815 (variant nmh)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
816 (mh-lib-progs ,(mh-profile-component "libdir"))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
817 (mh-lib ,(mh-profile-component "etcdir"))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
818 (mh-progs ,dir)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
819 (flists ,(file-exists-p
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
820 (expand-file-name "flists" dir)))))))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
821
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
822 (defun mh-file-command-p (file)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
823 "Return t if file FILE is the name of a executable regular file."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
824 (and (file-regular-p file) (file-executable-p file)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
825
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
826 (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
827 "Set up the system variables for the MH variant named VARIANT.
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
828 If VARIANT is a string, use that key in the alist returned by the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
829 function `mh-variants'.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
830 If VARIANT is a symbol, select the first entry that matches that
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
831 variant."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
832 (cond
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
833 ((stringp variant) ;e.g. "nmh 1.1-RC1"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
834 (when (assoc variant (mh-variants))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
835 (let* ((alist (cdr (assoc variant (mh-variants))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
836 (lib-progs (cadr (assoc 'mh-lib-progs alist)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
837 (lib (cadr (assoc 'mh-lib alist)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
838 (progs (cadr (assoc 'mh-progs alist)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
839 (flists (cadr (assoc 'flists alist))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
840 ;;(set-default mh-variant variant)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
841 (setq mh-x-mailer-string nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
842 mh-flists-present-flag flists
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
843 mh-lib-progs lib-progs
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
844 mh-lib lib
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
845 mh-progs progs
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
846 mh-variant-in-use variant))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
847 ((symbolp variant) ;e.g. 'nmh (pick the first match)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
848 (loop for variant-list in (mh-variants)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
849 when (eq variant (cadr (assoc 'variant (cdr variant-list))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
850 return (let* ((version (car variant-list))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
851 (alist (cdr variant-list))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
852 (lib-progs (cadr (assoc 'mh-lib-progs alist)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
853 (lib (cadr (assoc 'mh-lib alist)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
854 (progs (cadr (assoc 'mh-progs alist)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
855 (flists (cadr (assoc 'flists alist))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
856 ;;(set-default mh-variant flavor)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
857 (setq mh-x-mailer-string nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
858 mh-flists-present-flag flists
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
859 mh-lib-progs lib-progs
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
860 mh-lib lib
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
861 mh-progs progs
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
862 mh-variant-in-use version)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
863 t)))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
864
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
865 (defun mh-variant-p (&rest variants)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
866 "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
867 Currently known variants are 'MH, 'nmh, and 'gnu-mh."
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
868 (let ((variant-in-use
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
869 (cadr (assoc 'variant (assoc mh-variant-in-use (mh-variants))))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
870 (not (null (member variant-in-use variants)))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
871
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
872 (defun mh-profile-component (component)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
873 "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
874 (save-excursion
97408
7cf98fa4941b (mh-variant-mh-info, mh-variant-nmh-info)
Bill Wohler <wohler@newt.com>
parents: 97189
diff changeset
875 ;; 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
876 ;; 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
877 ;; dropped here.
69357
1f70898570ca (mh-profile-component): Drop `s' from mhparam -components for
Bill Wohler <wohler@newt.com>
parents: 69305
diff changeset
878 (mh-exec-cmd-quiet nil "mhparam" "-component" component)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
879 (mh-profile-component-value component)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
880
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
881 (defun mh-profile-component-value (component)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
882 "Find and return the value of COMPONENT in the current buffer.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
883 Returns nil if the component is not in the buffer."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
884 (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
885 (goto-char (point-min))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
886 (cond ((not (re-search-forward (format "^%s:" component) nil t)) nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
887 ((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
888 (t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
889 (re-search-forward "[\t ]*\\([^\t \n].*\\)$" nil t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
890 (let ((start (match-beginning 1)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
891 (end-of-line)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
892 (buffer-substring start (point)))))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
893
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
894 (defun mh-variant-set (variant)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
895 "Set the MH variant to VARIANT.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
896 Sets `mh-progs', `mh-lib', `mh-lib-progs' and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
897 `mh-flists-present-flag'.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
898 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
899 finally GNU mailutils MH."
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
900 (interactive
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
901 (list (completing-read
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
902 "MH variant: "
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
903 (mapcar (lambda (x) (list (car x))) (mh-variants))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
904 nil t)))
97408
7cf98fa4941b (mh-variant-mh-info, mh-variant-nmh-info)
Bill Wohler <wohler@newt.com>
parents: 97189
diff changeset
905
7cf98fa4941b (mh-variant-mh-info, mh-variant-nmh-info)
Bill Wohler <wohler@newt.com>
parents: 97189
diff changeset
906 ;; 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
907 (when (and (stringp variant)
7cf98fa4941b (mh-variant-mh-info, mh-variant-nmh-info)
Bill Wohler <wohler@newt.com>
parents: 97189
diff changeset
908 (string-match "^mu-mh" variant))
7cf98fa4941b (mh-variant-mh-info, mh-variant-nmh-info)
Bill Wohler <wohler@newt.com>
parents: 97189
diff changeset
909 (message
97415
a543ef38f1d6 (mh-variant-set): Fix typo.
Bill Wohler <wohler@newt.com>
parents: 97408
diff changeset
910 (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
911 "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
912 "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
913 (sit-for 5)
7cf98fa4941b (mh-variant-mh-info, mh-variant-nmh-info)
Bill Wohler <wohler@newt.com>
parents: 97189
diff changeset
914 (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
915
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
916 (let ((valid-list (mapcar (lambda (x) (car x)) (mh-variants))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
917 (cond
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
918 ((eq variant 'none))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
919 ((eq variant 'autodetect)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
920 (cond
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
921 ((mh-variant-set-variant 'nmh)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
922 (message "%s installed as MH variant" mh-variant-in-use))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
923 ((mh-variant-set-variant 'mh)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
924 (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
925 ((mh-variant-set-variant 'gnu-mh)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
926 (message "%s installed as MH variant" mh-variant-in-use))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
927 (t
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
928 (message "No MH variant found on the system"))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
929 ((member variant valid-list)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
930 (when (not (mh-variant-set-variant variant))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
931 (message "Warning: %s variant not found. Autodetecting..." variant)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
932 (mh-variant-set 'autodetect)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
933 (t
97408
7cf98fa4941b (mh-variant-mh-info, mh-variant-nmh-info)
Bill Wohler <wohler@newt.com>
parents: 97189
diff changeset
934 (message "Unknown variant %s; use %s"
7cf98fa4941b (mh-variant-mh-info, mh-variant-nmh-info)
Bill Wohler <wohler@newt.com>
parents: 97189
diff changeset
935 variant
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
936 (mapconcat '(lambda (x) (format "%s" (car x)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
937 (mh-variants) " or "))))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
938
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
939 (defcustom-mh mh-variant 'autodetect
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
940 "*Specifies the variant used by MH-E.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
941
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
942 The default setting of this option is \"Auto-detect\" which means
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
943 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
944 mailutils MH that it finds in the directories listed in
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
945 `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
946 `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
947 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
948 \"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
949 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
950 `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
951 GNU mailutils MH, then you can set this option to \"gnu-mh\".
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
952
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
953 When this variable is changed, MH-E resets `mh-progs', `mh-lib',
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
954 `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
955 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
956 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
957 necessary and can actually cause problems."
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
958 :type `(radio
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
959 (const :tag "Auto-detect" autodetect)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
960 ,@(mapcar (lambda (x) `(const ,(car x))) (mh-variants)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
961 :set (lambda (symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
962 (set-default symbol value) ;Done in mh-variant-set-variant!
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
963 (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
964 :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
965 :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
966
fb125d0913e5 * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to remove
Bill Wohler <wohler@newt.com>
parents: 69691
diff changeset
967
fb125d0913e5 * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to remove
Bill Wohler <wohler@newt.com>
parents: 69691
diff changeset
968
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
969 ;;; MH-E Customization
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
970
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
971 ;; All of the defgroups, defcustoms, and deffaces in MH-E are found
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
972 ;; here. This makes it possible to customize modules that aren't
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
973 ;; loaded yet. It also makes it easier to organize the customization
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
974 ;; groups.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
975
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
976 ;; This section contains the following sub-sections:
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
977
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
978 ;; 1. MH-E Customization Groups
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
979
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
980 ;; These are the customization group definitions. Every group has a
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
981 ;; associated manual node. The ordering is alphabetical, except for
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
982 ;; the groups mh-faces and mh-hooks which are last .
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
983
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
984 ;; 2. MH-E Customization
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
985
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
986 ;; These are the actual customization variables. There is a
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
987 ;; sub-section for each group in the MH-E Customization Groups
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
988 ;; section, in the same order, separated by page breaks. Within
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
989 ;; each section, variables are sorted alphabetically.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
990
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
991 ;; 3. Hooks
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
992
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
993 ;; All hooks must be placed in the mh-hook group; in addition, add
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
994 ;; the group associated with the manual node in which the hook is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
995 ;; described. Since the mh-hook group appears near the end of this
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
996 ;; section, the hooks will appear at the end of these other groups.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
997
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
998 ;; 4. Faces
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
999
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1000 ;; All faces must be placed in the mh-faces group; in addition, add
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1001 ;; the group associated with the manual node in which the face is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1002 ;; described. Since the mh-faces group appears near the end of this
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1003 ;; section, the faces will appear at the end of these other groups.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1004
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1005 (defun mh-customize (&optional delete-other-windows-flag)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1006 "Customize MH-E variables.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1007 If optional argument DELETE-OTHER-WINDOWS-FLAG is non-nil, other
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1008 windows in the frame are removed."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1009 (interactive "P")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1010 (customize-group 'mh-e)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1011 (when delete-other-windows-flag
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1012 (delete-other-windows)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1013
69728
fb125d0913e5 * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to remove
Bill Wohler <wohler@newt.com>
parents: 69691
diff changeset
1014 (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
1015 (add-to-list 'customize-package-emacs-version-alist
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1016 '(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
1017 ("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
1018 ("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
1019
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1020
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1021
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1022 ;;; MH-E Customization Groups
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1023
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1024 (defgroup-mh mh-e nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1025 "Emacs interface to the MH mail system.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1026 MH is the Rand Mail Handler. Other implementations include nmh
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1027 and GNU mailutils."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1028 :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
1029 :group 'mail
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1030 :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
1031
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1032 (defgroup-mh mh-alias nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1033 "Aliases."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1034 :link '(custom-manual "(mh-e)Aliases")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1035 :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
1036 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1037 :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
1038
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1039 (defgroup-mh mh-folder nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1040 "Organizing your mail with folders."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1041 :prefix "mh-"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1042 :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
1043 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1044 :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
1045
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1046 (defgroup-mh mh-folder-selection nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1047 "Folder selection."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1048 :prefix "mh-"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1049 :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
1050 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1051 :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
1052
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1053 (defgroup-mh mh-identity nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1054 "Identities."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1055 :link '(custom-manual "(mh-e)Identities")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1056 :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
1057 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1058 :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
1059
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1060 (defgroup-mh mh-inc nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1061 "Incorporating your mail."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1062 :prefix "mh-inc-"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1063 :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
1064 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1065 :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
1066
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1067 (defgroup-mh mh-junk nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1068 "Dealing with junk mail."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1069 :link '(custom-manual "(mh-e)Junk")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1070 :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
1071 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1072 :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
1073
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1074 (defgroup-mh mh-letter nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1075 "Editing a draft."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1076 :prefix "mh-"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1077 :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
1078 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1079 :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
1080
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1081 (defgroup-mh mh-ranges nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1082 "Ranges."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1083 :prefix "mh-"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1084 :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
1085 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1086 :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
1087
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1088 (defgroup-mh mh-scan-line-formats nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1089 "Scan line formats."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1090 :link '(custom-manual "(mh-e)Scan Line Formats")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1091 :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
1092 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1093 :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
1094
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1095 (defgroup-mh mh-search nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1096 "Searching."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1097 :link '(custom-manual "(mh-e)Searching")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1098 :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
1099 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1100 :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
1101
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1102 (defgroup-mh mh-sending-mail nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1103 "Sending mail."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1104 :prefix "mh-"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1105 :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
1106 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1107 :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
1108
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1109 (defgroup-mh mh-sequences nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1110 "Sequences."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1111 :prefix "mh-"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1112 :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
1113 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1114 :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
1115
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1116 (defgroup-mh mh-show nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1117 "Reading your mail."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1118 :prefix "mh-"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1119 :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
1120 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1121 :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
1122
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1123 (defgroup-mh mh-speedbar nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1124 "The speedbar."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1125 :prefix "mh-speed-"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1126 :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
1127 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1128 :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
1129
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1130 (defgroup-mh mh-thread nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1131 "Threading."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1132 :prefix "mh-thread-"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1133 :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
1134 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1135 :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
1136
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1137 (defgroup-mh mh-tool-bar nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1138 "The tool bar"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1139 :link '(custom-manual "(mh-e)Tool Bar")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1140 :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
1141 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1142 :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
1143
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1144 (defgroup-mh mh-hooks nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1145 "MH-E hooks."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1146 :link '(custom-manual "(mh-e)Top")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1147 :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
1148 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1149 :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
1150
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1151 (defgroup-mh mh-faces nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1152 "Faces used in MH-E."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1153 :link '(custom-manual "(mh-e)Top")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1154 :prefix "mh-"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1155 :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
1156 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1157 :package-version '(MH-E . "7.1"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1158
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1159
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1160
69728
fb125d0913e5 * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to remove
Bill Wohler <wohler@newt.com>
parents: 69691
diff changeset
1161 ;;; 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
1162
fb125d0913e5 * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to remove
Bill Wohler <wohler@newt.com>
parents: 69691
diff changeset
1163 ;; See Variant Support, above, for mh-e group.
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1164
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1165 ;;; Aliases (:group 'mh-alias)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1166
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1167 (defcustom-mh mh-alias-completion-ignore-case-flag t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1168 "*Non-nil means don't consider case significant in MH alias completion.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1169
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1170 As MH ignores case in the aliases, so too does MH-E. However, you
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1171 may turn off this option to make case significant which can be
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1172 used to segregate completion of your aliases. You might use
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1173 lowercase for mailing lists and uppercase for people."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1174 :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
1175 :group 'mh-alias
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1176 :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
1177
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1178 (defcustom-mh mh-alias-expand-aliases-flag nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1179 "*Non-nil means to expand aliases entered in the minibuffer.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1180
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1181 In other words, aliases entered in the minibuffer will be
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1182 expanded to the full address in the message draft. By default,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1183 this expansion is not performed."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1184 :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
1185 :group 'mh-alias
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1186 :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
1187
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1188 (defcustom-mh mh-alias-flash-on-comma t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1189 "*Specify whether to flash address or warn on translation.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1190
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1191 This option controls the behavior when a [comma] is pressed while
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1192 entering aliases or addresses. The default setting flashes the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1193 address associated with an address in the minibuffer briefly, but
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1194 does not display a warning if the alias is not found."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1195 :type '(choice (const :tag "Flash but Don't Warn If No Alias" t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1196 (const :tag "Flash and Warn If No Alias" 1)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1197 (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
1198 :group 'mh-alias
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1199 :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
1200
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1201 (defcustom-mh mh-alias-insert-file nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1202 "*Filename used to store a new MH-E alias.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1203
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1204 The default setting of this option is \"Use Aliasfile Profile
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1205 Component\". This option can also hold the name of a file or a
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1206 list a file names. If this option is set to a list of file names,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1207 or the \"Aliasfile:\" profile component contains more than one file
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1208 name, MH-E will prompt for one of them when MH-E adds an alias."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1209 :type '(choice (const :tag "Use Aliasfile Profile Component" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1210 (file :tag "Alias File")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1211 (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
1212 :group 'mh-alias
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1213 :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
1214
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1215 (defcustom-mh mh-alias-insertion-location 'sorted
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1216 "Specifies where new aliases are entered in alias files.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1217
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1218 This option is set to \"Alphabetical\" by default. If you organize
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1219 your alias file in other ways, then adding aliases to the \"Top\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1220 or \"Bottom\" of your alias file might be more appropriate."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1221 :type '(choice (const :tag "Alphabetical" sorted)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1222 (const :tag "Top" top)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1223 (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
1224 :group 'mh-alias
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1225 :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
1226
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1227 (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
1228 "*Non-nil means local users are added to alias completion.
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1229
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1230 Aliases are created from \"/etc/passwd\" entries with a user ID
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1231 larger than a magical number, typically 200. This can be a handy
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1232 tool on a machine where you and co-workers exchange messages.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1233 These aliases have the form \"local.first.last\" if a real name is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1234 present in the password file. Otherwise, the alias will have the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1235 form \"local.login\".
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1236
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1237 If you're on a system with thousands of users you don't know, and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1238 the loading of local aliases slows MH-E down noticeably, then
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1239 turn this option off.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1240
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1241 This option also takes a string which is executed to generate the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1242 password file. For example, use \"ypcat passwd\" to obtain the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1243 NIS password file."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1244 :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
1245 :group 'mh-alias
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1246 :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
1247
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1248 (defcustom-mh mh-alias-local-users-prefix "local."
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1249 "*String prefixed to the real names of users from the password file.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1250 This option can also be set to \"Use Login\".
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1251
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1252 For example, consider the following password file entry:
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1253
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1254 psg:x:1000:1000:Peter S Galbraith,,,:/home/psg:/bin/tcsh
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1255
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1256 The following settings of this option will produce the associated
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1257 aliases:
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1258
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1259 \"local.\" local.peter.galbraith
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1260 \"\" peter.galbraith
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1261 Use Login psg
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1262
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1263 This option has no effect if variable `mh-alias-local-users' is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1264 turned off."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1265 :type '(choice (const :tag "Use Login" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1266 (string))
69728
fb125d0913e5 * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to remove
Bill Wohler <wohler@newt.com>
parents: 69691
diff changeset
1267 :group 'mh-alias
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1268 :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
1269
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1270 (defcustom-mh mh-alias-passwd-gecos-comma-separator-flag t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1271 "*Non-nil means the gecos field in the password file uses a comma separator.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1272
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1273 In the example in `mh-alias-local-users-prefix', commas are used
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1274 to separate different values within the so-called gecos field.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1275 This is a fairly common usage. However, in the rare case that the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1276 gecos field in your password file is not separated by commas and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1277 whose contents may contain commas, you can turn this option off."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1278 :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
1279 :group 'mh-alias
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1280 :package-version '(MH-E . "7.4"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1281
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1282 ;;; Organizing Your Mail with Folders (:group 'mh-folder)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1283
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1284 (defcustom-mh mh-new-messages-folders t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1285 "Folders searched for the \"unseen\" sequence.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1286
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1287 Set this option to \"Inbox\" to search the \"+inbox\" folder or
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1288 \"All\" to search all of the top level folders. Otherwise, list
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1289 the folders that should be searched with the \"Choose Folders\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1290 menu item.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1291
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1292 See also `mh-recursive-folders-flag'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1293 :type '(choice (const :tag "Inbox" t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1294 (const :tag "All" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1295 (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
1296 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1297 :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
1298
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1299 (defcustom-mh mh-ticked-messages-folders t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1300 "Folders searched for `mh-tick-seq'.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1301
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1302 Set this option to \"Inbox\" to search the \"+inbox\" folder or
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1303 \"All\" to search all of the top level folders. Otherwise, list
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1304 the folders that should be searched with the \"Choose Folders\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1305 menu item.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1306
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1307 See also `mh-recursive-folders-flag'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1308 :type '(choice (const :tag "Inbox" t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1309 (const :tag "All" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1310 (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
1311 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1312 :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
1313
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1314 (defcustom-mh mh-large-folder 200
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1315 "The number of messages that indicates a large folder.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1316
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1317 If a folder is deemed to be large, that is the number of messages
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1318 in it exceed this value, then confirmation is needed when it is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1319 visited. Even when `mh-show-threads-flag' is non-nil, the folder
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1320 is not automatically threaded, if it is large. If set to nil all
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1321 folders are treated as if they are small."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1322 :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
1323 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1324 :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
1325
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1326 (defcustom-mh mh-recenter-summary-flag nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1327 "*Non-nil means to recenter the summary window.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1328
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1329 If this option is turned on, recenter the summary window when the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1330 show window is toggled off."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1331 :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
1332 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1333 :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
1334
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1335 (defcustom-mh mh-recursive-folders-flag nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1336 "*Non-nil means that commands which operate on folders do so recursively."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1337 :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
1338 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1339 :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
1340
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1341 (defcustom-mh mh-sortm-args nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1342 "*Additional arguments for \"sortm\"\\<mh-folder-mode-map>.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1343
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1344 This option is consulted when a prefix argument is used with
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1345 \\[mh-sort-folder]. Normally default arguments to \"sortm\" are
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1346 specified in the MH profile. This option may be used to provide
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1347 an alternate view. For example, \"'(\"-nolimit\" \"-textfield\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1348 \"subject\")\" is a useful setting."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1349 :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
1350 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1351 :package-version '(MH-E . "8.0"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1352
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1353 ;;; Folder Selection (:group 'mh-folder-selection)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1354
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1355 (defcustom-mh mh-default-folder-for-message-function nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1356 "Function to select a default folder for refiling or \"Fcc:\".
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1357
69196
6c74df3ce672 (mh-variant, mh-default-folder-for-message-function): Sync docstring
Bill Wohler <wohler@newt.com>
parents: 69186
diff changeset
1358 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
1359 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
1360 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
1361 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
1362 the default, or an empty string to suppress the default entirely."
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1363 :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
1364 :group 'mh-folder-selection
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1365 :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
1366
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1367 (defcustom-mh mh-default-folder-list nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1368 "*List of addresses and folders.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1369
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1370 The folder name associated with the first address found in this
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1371 list is used as the default for `mh-refile-msg' and similar
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1372 functions. Each element in this list contains a \"Check Recipient\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1373 item. If this item is turned on, then the address is checked
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1374 against the recipient instead of the sender. This is useful for
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1375 mailing lists.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1376
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1377 See `mh-prompt-for-refile-folder' and `mh-folder-from-address'
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1378 for more information."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1379 :type '(repeat (list (regexp :tag "Address")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1380 (string :tag "Folder")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1381 (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
1382 :group 'mh-folder-selection
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1383 :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
1384
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1385 (defcustom-mh mh-default-folder-must-exist-flag t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1386 "*Non-nil means guessed folder name must exist to be used.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1387
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1388 If the derived folder does not exist, and this option is on, then
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1389 the last folder name used is suggested. This is useful if you get
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1390 mail from various people for whom you have an alias, but file
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1391 them all in the same project folder.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1392
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1393 See `mh-prompt-for-refile-folder' and `mh-folder-from-address'
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1394 for more information."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1395 :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
1396 :group 'mh-folder-selection
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1397 :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
1398
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1399 (defcustom-mh mh-default-folder-prefix ""
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1400 "*Prefix used for folder names generated from aliases.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1401 The prefix is used to prevent clutter in your mail directory.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1402
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1403 See `mh-prompt-for-refile-folder' and `mh-folder-from-address'
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1404 for more information."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1405 :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
1406 :group 'mh-folder-selection
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1407 :package-version '(MH-E . "7.2"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1408
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1409 ;;; Identities (:group 'mh-identity)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1410
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1411 (eval-and-compile
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1412 (unless (fboundp 'mh-identity-make-menu-no-autoload)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1413 (defun mh-identity-make-menu-no-autoload ()
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1414 "Temporary definition.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1415 Real definition will take effect when mh-identity is loaded."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1416 nil)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1417
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1418 (defcustom-mh mh-identity-list nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1419 "*List of identities.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1420
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1421 To customize this option, click on the \"INS\" button and enter a label
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1422 such as \"Home\" or \"Work\". Then click on the \"INS\" button with the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1423 label \"Add at least one item below\". Then choose one of the items in
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1424 the \"Value Menu\".
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1425
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1426 You can specify an alternate \"From:\" header field using the \"From
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1427 Field\" menu item. You must include a valid email address. A standard
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1428 format is \"First Last <login@@host.domain>\". If you use an initial
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1429 with a period, then you must quote your name as in '\"First I. Last\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1430 <login@@host.domain>'. People usually list the name of the company
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1431 where they work using the \"Organization Field\" menu item. Set any
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1432 arbitrary header field and value in the \"Other Field\" menu item.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1433 Unless the header field is a standard one, precede the name of your
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1434 field's label with \"X-\", as in \"X-Fruit-of-the-Day:\". The value of
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1435 \"Attribution Verb\" overrides the setting of
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1436 `mh-extract-from-attribution-verb'. Set your signature with the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1437 \"Signature\" menu item. You can specify the contents of
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1438 `mh-signature-file-name', a file, or a function. Specify a different
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1439 key to sign or encrypt messages with the \"GPG Key ID\" menu item.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1440
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1441 You can select the identities you have added via the menu called
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1442 \"Identity\" in the MH-Letter buffer. You can also use
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1443 \\[mh-insert-identity]. To clear the fields and signature added by the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1444 identity, select the \"None\" identity.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1445
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1446 The \"Identity\" menu contains two other items to save you from having
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1447 to set the identity on every message. The menu item \"Set Default for
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1448 Session\" can be used to set the default identity to the current
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1449 identity until you exit Emacs. The menu item \"Save as Default\" sets
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1450 the option `mh-identity-default' to the current identity setting. You
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1451 can also customize the `mh-identity-default' option in the usual
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1452 fashion."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1453 :type '(repeat (list :tag ""
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1454 (string :tag "Label")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1455 (repeat :tag "Add at least one item below"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1456 (choice
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1457 (cons :tag "From Field"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1458 (const "From")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1459 (string :tag "Value"))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1460 (cons :tag "Organization Field"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1461 (const "Organization")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1462 (string :tag "Value"))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1463 (cons :tag "Other Field"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1464 (string :tag "Field")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1465 (string :tag "Value"))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1466 (cons :tag "Attribution Verb"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1467 (const ":attribution-verb")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1468 (string :tag "Value"))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1469 (cons :tag "Signature"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1470 (const :tag "Signature"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1471 ":signature")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1472 (choice
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1473 (const :tag "mh-signature-file-name"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1474 nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1475 (file)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1476 (function)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1477 (cons :tag "GPG Key ID"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1478 (const :tag "GPG Key ID"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1479 ":pgg-default-user-id")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1480 (string :tag "Value"))))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1481 :set (lambda (symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1482 (set-default symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1483 (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
1484 :group 'mh-identity
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1485 :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
1486
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1487 (defcustom-mh mh-auto-fields-list nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1488 "List of recipients for which header lines are automatically inserted.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1489
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1490 This option can be used to set the identity depending on the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1491 recipient. To customize this option, click on the \"INS\" button and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1492 enter a regular expression for the recipient's address. Click on the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1493 \"INS\" button with the \"Add at least one item below\" label. Then choose
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1494 one of the items in the \"Value Menu\".
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1495
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1496 The \"Identity\" menu item is used to select an identity from those
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1497 configured in `mh-identity-list'. All of the information for that
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1498 identity will be added if the recipient matches. The \"Fcc Field\" menu
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1499 item is used to select a folder that is used in the \"Fcc:\" header.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1500 When you send the message, MH will put a copy of your message in this
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1501 folder. The \"Mail-Followup-To Field\" menu item is used to insert an
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1502 \"Mail-Followup-To:\" header field with the recipients you provide. If
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1503 the recipient's mail user agent supports this header field (as nmh
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1504 does), then their replies will go to the addresses listed. This is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1505 useful if their replies go both to the list and to you and you don't
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1506 have a mechanism to suppress duplicates. If you reply to someone not
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1507 on the list, you must either remove the \"Mail-Followup-To:\" field, or
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1508 ensure the recipient is also listed there so that he receives replies
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1509 to your reply. Other header fields may be added using the \"Other
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1510 Field\" menu item.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1511
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1512 These fields can only be added after the recipient is known. Once the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1513 header contains one or more recipients, run the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1514 \\[mh-insert-auto-fields] command or choose the \"Identity -> Insert
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1515 Auto Fields\" menu item to insert these fields manually. However, you
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1516 can just send the message and the fields will be added automatically.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1517 You are given a chance to see these fields and to confirm them before
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1518 the message is actually sent. You can do away with this confirmation
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1519 by turning off the option `mh-auto-fields-prompt-flag'.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1520
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1521 You should avoid using the same header field in `mh-auto-fields-list'
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1522 and `mh-identity-list' definitions that may apply to the same message
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1523 as the result is undefined."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1524 :type `(repeat
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1525 (list :tag ""
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1526 (string :tag "Recipient")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1527 (repeat :tag "Add at least one item below"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1528 (choice
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1529 (cons :tag "Identity"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1530 (const ":identity")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1531 ,(append
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1532 '(radio)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1533 (mapcar
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1534 (function (lambda (arg) `(const ,arg)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1535 (mapcar 'car mh-identity-list))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1536 (cons :tag "Fcc Field"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1537 (const "fcc")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1538 (string :tag "Value"))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1539 (cons :tag "Mail-Followup-To Field"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1540 (const "Mail-Followup-To")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1541 (string :tag "Value"))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1542 (cons :tag "Other Field"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1543 (string :tag "Field")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1544 (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
1545 :group 'mh-identity
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1546 :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
1547
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1548 (defcustom-mh mh-auto-fields-prompt-flag t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1549 "*Non-nil means to prompt before sending if fields inserted.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1550 See `mh-auto-fields-list'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1551 :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
1552 :group 'mh-identity
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1553 :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
1554
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1555 (defcustom-mh mh-identity-default nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1556 "Default identity to use when `mh-letter-mode' is called.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1557 See `mh-identity-list'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1558 :type (append
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1559 '(radio)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1560 (cons '(const :tag "None" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1561 (mapcar (function (lambda (arg) `(const ,arg)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1562 (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
1563 :group 'mh-identity
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1564 :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
1565
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1566 (defcustom-mh mh-identity-handlers
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1567 '(("From" . mh-identity-handler-top)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1568 (":default" . mh-identity-handler-bottom)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1569 (":attribution-verb" . mh-identity-handler-attribution-verb)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1570 (":signature" . mh-identity-handler-signature)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1571 (":pgg-default-user-id" . mh-identity-handler-gpg-identity))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1572 "Handler functions for fields in `mh-identity-list'.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1573
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1574 This option is used to change the way that fields, signatures,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1575 and attributions in `mh-identity-list' are added. To customize
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1576 `mh-identity-handlers', replace the name of an existing handler
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1577 function associated with the field you want to change with the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1578 name of a function you have written. You can also click on an
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1579 \"INS\" button and insert a field of your choice and the name of
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1580 the function you have written to handle it.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1581
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1582 The \"Field\" field can be any field that you've used in your
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1583 `mh-identity-list'. The special fields \":attribution-verb\",
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1584 \":signature\", or \":pgg-default-user-id\" are used for the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1585 `mh-identity-list' choices \"Attribution Verb\", \"Signature\", and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1586 \"GPG Key ID\" respectively.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1587
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1588 The handler associated with the \":default\" field is used when no
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1589 other field matches.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1590
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1591 The handler functions are passed two or three arguments: the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1592 FIELD itself (for example, \"From\"), or one of the special
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1593 fields (for example, \":signature\"), and the ACTION 'remove or
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1594 'add. If the action is 'add, an additional argument
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1595 containing the VALUE for the field is given."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1596 :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
1597 :group 'mh-identity
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1598 :package-version '(MH-E . "8.0"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1599
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1600 ;;; Incorporating Your Mail (:group 'mh-inc)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1601
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1602 (defcustom-mh mh-inc-prog "inc"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1603 "*Program to incorporate new mail into a folder.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1604
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1605 This program generates a one-line summary for each of the new
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1606 messages. Unless it is an absolute pathname, the file is assumed
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1607 to be in the `mh-progs' directory. You may also link a file to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1608 \"inc\" that uses a different format. You'll then need to modify
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1609 several scan line format variables appropriately."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1610 :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
1611 :group 'mh-inc
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1612 :package-version '(MH-E . "6.0"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1613
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1614 (eval-and-compile
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1615 (unless (fboundp 'mh-inc-spool-make-no-autoload)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1616 (defun mh-inc-spool-make-no-autoload ()
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1617 "Temporary definition.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1618 Real definition will take effect when mh-inc is loaded."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1619 nil)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1620
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1621 (defcustom-mh mh-inc-spool-list nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1622 "*Alternate spool files.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1623
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1624 You can use the `mh-inc-spool-list' variable to direct MH-E to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1625 retrieve mail from arbitrary spool files other than your system
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1626 mailbox, file it in folders other than your \"+inbox\", and assign
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1627 key bindings to incorporate this mail.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1628
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1629 Suppose you are subscribed to the \"mh-e-devel\" mailing list and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1630 you use \"procmail\" to filter this mail into \"~/mail/mh-e\" with
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1631 the following recipe in \".procmailrc\":
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1632
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1633 MAILDIR=$HOME/mail
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1634 :0:
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1635 * ^From mh-e-devel-admin@stop.mail-abuse.org
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1636 mh-e
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1637
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1638 In order to incorporate \"~/mail/mh-e\" into \"+mh-e\" with an
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1639 \"I m\" (mh-inc-spool-mh-e) command, customize this option, and click
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1640 on the \"INS\" button. Enter a \"Spool File\" of \"~/mail/mh-e\", a
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1641 \"Folder\" of \"mh-e\", and a \"Key Binding\" of \"m\".
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1642
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1643 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
1644 using the Emacs 22 command \"emacsclient\" as follows:
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1645
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1646 box ~/mail/mh-e
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1647 title mh-e
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1648 origMode
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1649 polltime 10
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1650 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
1651 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
1652
8e332f1560b0 (mh-inc-spool-list): Update example for Emacs 22 which has an
Bill Wohler <wohler@newt.com>
parents: 68605
diff changeset
1653 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
1654 fashion."
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1655 :type '(repeat (list (file :tag "Spool File")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1656 (string :tag "Folder")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1657 (character :tag "Key Binding")))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1658 :set (lambda (symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1659 (set-default symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1660 (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
1661 :group 'mh-inc
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1662 :package-version '(MH-E . "7.3"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1663
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1664 ;;; Dealing with Junk Mail (:group 'mh-junk)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1665
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1666 (defvar mh-junk-choice nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1667 "Chosen spam fighting program.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1668
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1669 ;; Available spam filter interfaces
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1670 (defvar mh-junk-function-alist
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1671 '((spamassassin mh-spamassassin-blacklist mh-spamassassin-whitelist)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1672 (bogofilter mh-bogofilter-blacklist mh-bogofilter-whitelist)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1673 (spamprobe mh-spamprobe-blacklist mh-spamprobe-whitelist))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1674 "Available choices of spam programs to use.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1675
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1676 This is an alist. For each element there are functions that
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1677 blacklist a message as spam and whitelist a message incorrectly
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1678 classified as spam.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1679
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1680 (defun mh-junk-choose (symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1681 "Choose spam program to use.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1682
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1683 The function is always called with SYMBOL bound to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1684 `mh-junk-program' and VALUE bound to the new value of
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1685 `mh-junk-program'. The function sets the variable
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1686 `mh-junk-choice' in addition to `mh-junk-program'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1687 (set symbol value) ;XXX shouldn't this be set-default?
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1688 (setq mh-junk-choice
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1689 (or value
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1690 (loop for element in mh-junk-function-alist
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1691 until (executable-find (symbol-name (car element)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1692 finally return (car element)))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1693
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1694 (defcustom-mh mh-junk-background nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1695 "If on, spam programs are run in background.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1696
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1697 By default, the programs are run in the foreground, but this can
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1698 be slow when junking large numbers of messages. If you have
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1699 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
1700 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
1701
7df5ae069c1c (mh-alias-local-users): Boolean docstrings should start with "Non-nil
Bill Wohler <wohler@newt.com>
parents: 73924
diff changeset
1702 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
1703 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
1704 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
1705 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
1706 may be useful for debugging."
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1707 :type '(choice (const :tag "Off" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1708 (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
1709 :group 'mh-junk
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1710 :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
1711
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1712 (defcustom-mh mh-junk-disposition nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1713 "Disposition of junk mail."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1714 :type '(choice (const :tag "Delete Spam" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1715 (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
1716 :group 'mh-junk
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1717 :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
1718
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1719 (defcustom-mh mh-junk-program nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1720 "Spam program that MH-E should use.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1721
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1722 The default setting of this option is \"Auto-detect\" which means
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1723 that MH-E will automatically choose one of SpamAssassin,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1724 bogofilter, or SpamProbe in that order. If, for example, you have
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1725 both SpamAssassin and bogofilter installed and you want to use
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1726 bogofilter, then you can set this option to \"Bogofilter\"."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1727 :type '(choice (const :tag "Auto-detect" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1728 (const :tag "SpamAssassin" spamassassin)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1729 (const :tag "Bogofilter" bogofilter)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1730 (const :tag "SpamProbe" spamprobe))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1731 :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
1732 :group 'mh-junk
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1733 :package-version '(MH-E . "7.3"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1734
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1735 ;;; Editing a Draft (:group 'mh-letter)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1736
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1737 (defcustom-mh mh-compose-insertion (if (locate-library "mml") 'mml 'mh)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1738 "Type of tags used when composing MIME messages.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1739
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1740 In addition to MH-style directives, MH-E also supports MML (MIME
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1741 Meta Language) tags. (see Info node `(emacs-mime)Composing').
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1742 This option can be used to choose between them. By default, this
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1743 option is set to \"MML\" if it is supported since it provides a
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1744 lot more functionality. This option can also be set to \"MH\" if
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1745 MH-style directives are preferred."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1746 :type '(choice (const :tag "MML" mml)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1747 (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
1748 :group 'mh-letter
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1749 :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
1750
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1751 (defcustom-mh mh-compose-skipped-header-fields
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1752 '("From" "Organization" "References" "In-Reply-To"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1753 "X-Face" "Face" "X-Image-URL" "X-Mailer")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1754 "List of header fields to skip over when navigating in draft."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1755 :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
1756 :group 'mh-letter
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1757 :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
1758
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1759 (defcustom-mh mh-compose-space-does-completion-flag nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1760 "*Non-nil means \\<mh-letter-mode-map>\\[mh-letter-complete-or-space] does completion in message header."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1761 :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
1762 :group 'mh-letter
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1763 :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
1764
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1765 (defcustom-mh mh-delete-yanked-msg-window-flag nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1766 "*Non-nil means delete any window displaying the message.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1767
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1768 This deletes the window containing the original message after
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1769 yanking it with \\<mh-letter-mode-map>\\[mh-yank-cur-msg] to make
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1770 more room on your screen for your reply."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1771 :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
1772 :group 'mh-letter
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1773 :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
1774
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1775 (defcustom-mh mh-extract-from-attribution-verb "wrote:"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1776 "*Verb to use for attribution when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1777
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1778 The attribution consists of the sender's name and email address
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1779 followed by the content of this option. This option can be set to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1780 \"wrote:\", \"a écrit:\", and \"schrieb:\". You can also use the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1781 \"Custom String\" menu item to enter your own verb."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1782 :type '(choice (const "wrote:")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1783 (const "a écrit:")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1784 (const "schrieb:")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1785 (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
1786 :group 'mh-letter
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1787 :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
1788
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1789 (defcustom-mh mh-ins-buf-prefix "> "
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1790 "*String to put before each line of a yanked or inserted message.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1791
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1792 The prefix \"> \" is the default setting of this option. I
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1793 suggest that you not modify this option since it is used by many
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1794 mailers and news readers: messages are far easier to read if
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1795 several included messages have all been indented by the same
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1796 string.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1797
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1798 This prefix is not inserted if you use one of the supercite
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1799 flavors of `mh-yank-behavior' or you have added a
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1800 `mail-citation-hook'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1801 :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
1802 :group 'mh-letter
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1803 :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
1804
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1805 (defcustom-mh mh-letter-complete-function 'ispell-complete-word
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1806 "*Function to call when completing outside of address or folder fields.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1807
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1808 In the body of the message,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1809 \\<mh-letter-mode-map>\\[mh-letter-complete] runs this function,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1810 which is set to \"ispell-complete-word\" by default."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1811 :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
1812 :group 'mh-letter
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1813 :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
1814
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1815 (defcustom-mh mh-letter-fill-column 72
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1816 "*Fill column to use in MH Letter mode.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1817
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1818 By default, this option is 72 to allow others to quote your
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1819 message without line wrapping."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1820 :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
1821 :group 'mh-letter
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1822 :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
1823
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1824 (defcustom-mh mh-mml-method-default (if mh-pgp-support-flag "pgpmime" "none")
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1825 "Default method to use in security tags.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1826
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1827 This option is used to select between a variety of mail security
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1828 mechanisms. The default is \"PGP (MIME)\" if it is supported\;
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1829 otherwise, the default is \"None\". Other mechanisms include
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1830 vanilla \"PGP\" and \"S/MIME\".
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1831
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1832 The `pgg' customization group may have some settings which may
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1833 interest you (see Info node `(pgg)').
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1834
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1835 In particular, I turn on the option `pgg-encrypt-for-me' so that
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1836 all messages I encrypt are encrypted with my public key as well.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1837 If you keep a copy of all of your outgoing mail with a \"Fcc:\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1838 header field, this setting is vital so that you can read the mail
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1839 you write!"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1840 :type '(choice (const :tag "PGP (MIME)" "pgpmime")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1841 (const :tag "PGP" "pgp")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1842 (const :tag "S/MIME" "smime")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1843 (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
1844 :group 'mh-letter
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1845 :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
1846
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1847 (defcustom-mh mh-signature-file-name "~/.signature"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1848 "*Source of user's signature.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1849
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1850 By default, the text of your signature is taken from the file
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1851 \"~/.signature\". You can read from other sources by changing this
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1852 option. This file may contain a vCard in which case an attachment is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1853 added with the vCard.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1854
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1855 This option may also be a symbol, in which case that function is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1856 called. You may not want a signature separator to be added for you;
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1857 instead you may want to insert one yourself. Options that you may find
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1858 useful to do this include `mh-signature-separator' (when inserting a
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1859 signature separator) and `mh-signature-separator-regexp' (for finding
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1860 said separator). The function `mh-signature-separator-p', which
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1861 reports t if the buffer contains a separator, may be useful as well.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1862
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1863 The signature is inserted into your message with the command
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1864 \\<mh-letter-mode-map>\\[mh-insert-signature] or with the option
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1865 `mh-identity-list'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1866 :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
1867 :group 'mh-letter
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1868 :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
1869
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1870 (defcustom-mh mh-signature-separator-flag t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1871 "*Non-nil means a signature separator should be inserted.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1872
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1873 It is not recommended that you change this option since various
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1874 mail user agents, including MH-E, use the separator to present
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1875 the signature differently, and to suppress the signature when
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1876 replying or yanking a letter into a draft."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1877 :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
1878 :group 'mh-letter
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1879 :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
1880
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1881 (defcustom-mh mh-x-face-file "~/.face"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1882 "*File containing face header field to insert in outgoing mail.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1883
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1884 If the file starts with either of the strings \"X-Face:\", \"Face:\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1885 or \"X-Image-URL:\" then the contents are added to the message header
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1886 verbatim. Otherwise it is assumed that the file contains the value of
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1887 the \"X-Face:\" header field.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1888
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1889 The \"X-Face:\" header field, which is a low-resolution, black and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1890 white image, can be generated using the \"compface\" command (see URL
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1891 `ftp://ftp.cs.indiana.edu/pub/faces/compface/compface.tar.Z'). The
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1892 \"Online X-Face Converter\" is a useful resource for quick conversion
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1893 of images into \"X-Face:\" header fields (see URL
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1894 `http://www.dairiki.org/xface/').
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1895
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1896 Use the \"make-face\" script to convert a JPEG image to the higher
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1897 resolution, color, \"Face:\" header field (see URL
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1898 `http://quimby.gnus.org/circus/face/make-face').
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1899
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1900 The URL of any image can be used for the \"X-Image-URL:\" field and no
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1901 processing of the image is required.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1902
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1903 To prevent the setting of any of these header fields, either set
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1904 `mh-x-face-file' to nil, or simply ensure that the file defined by
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1905 this option doesn't exist."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1906 :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
1907 :group 'mh-letter
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1908 :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
1909
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1910 (defcustom-mh mh-yank-behavior 'attribution
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1911 "*Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1912
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1913 To include the entire message, including the entire header, use
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1914 \"Body and Header\". Use \"Body\" to yank just the body without
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1915 the header. To yank only the portion of the message following the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1916 point, set this option to \"Below Point\".
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1917
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1918 Choose \"Invoke supercite\" to pass the entire message and header
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1919 through supercite.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1920
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1921 If the \"Body With Attribution\" setting is used, then the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1922 message minus the header is yanked and a simple attribution line
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1923 is added at the top using the value of the option
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1924 `mh-extract-from-attribution-verb'. This is the default.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1925
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1926 If the \"Invoke supercite\" or \"Body With Attribution\" settings
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1927 are used, the \"-noformat\" argument is passed to the \"repl\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1928 program to override a \"-filter\" or \"-format\" argument. These
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1929 settings also have \"Automatically\" variants that perform the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1930 action automatically when you reply so that you don't need to use
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1931 \\[mh-yank-cur-msg] at all. Note that this automatic action is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1932 only performed if the show buffer matches the message being
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1933 replied to. People who use the automatic variants tend to turn on
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1934 the option `mh-delete-yanked-msg-window-flag' as well so that the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1935 show window is never displayed.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1936
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1937 If the show buffer has a region, the option `mh-yank-behavior' is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1938 ignored unless its value is one of Attribution variants in which
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1939 case the attribution is added to the yanked region.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1940
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1941 If this option is set to one of the supercite flavors, the hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1942 `mail-citation-hook' is ignored and `mh-ins-buf-prefix' is not
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1943 inserted."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1944 :type '(choice (const :tag "Body and Header" t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1945 (const :tag "Body" body)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1946 (const :tag "Below Point" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1947 (const :tag "Invoke supercite" supercite)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1948 (const :tag "Invoke supercite, Automatically" autosupercite)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1949 (const :tag "Body With Attribution" attribution)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1950 (const :tag "Body With Attribution, Automatically"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1951 autoattrib))
69728
fb125d0913e5 * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to remove
Bill Wohler <wohler@newt.com>
parents: 69691
diff changeset
1952 :group 'mh-letter
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1953 :package-version '(MH-E . "8.0"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1954
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1955 ;;; Ranges (:group 'mh-ranges)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1956
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1957 (defcustom-mh mh-interpret-number-as-range-flag t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1958 "*Non-nil means interpret a number as a range.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1959
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1960 Since one of the most frequent ranges used is \"last:N\", MH-E
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1961 will interpret input such as \"200\" as \"last:200\" if this
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1962 option is on (which is the default). If you need to scan just the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1963 message 200, then use the range \"200:200\"."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1964 :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
1965 :group 'mh-ranges
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1966 :package-version '(MH-E . "7.4"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1967
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1968 ;;; Scan Line Formats (:group 'mh-scan-line-formats)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1969
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1970 (eval-and-compile
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1971 (unless (fboundp 'mh-adaptive-cmd-note-flag-check)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1972 (defun mh-adaptive-cmd-note-flag-check (symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1973 "Temporary definition.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1974 Real definition, below, uses variables that aren't defined yet."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1975 (set-default symbol value))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1976
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
1977 (defcustom-mh mh-adaptive-cmd-note-flag t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1978 "*Non-nil means that the message number width is determined dynamically.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1979
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1980 If you've created your own format to handle long message numbers,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1981 you'll be pleased to know you no longer need it since MH-E adapts its
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1982 internal format based upon the largest message number if this option
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1983 is on (the default). This option may only be turned on when
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1984 `mh-scan-format-file' is set to \"Use MH-E scan Format\".
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1985
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1986 If you prefer fixed-width message numbers, turn off this option and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1987 call `mh-set-cmd-note' with the width specified by your format file
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1988 \(see `mh-scan-format-file'). For example, the default width is 4, so
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1989 you would use \"(mh-set-cmd-note 4)\"."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1990 :type 'boolean
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1991 :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
1992 :set 'mh-adaptive-cmd-note-flag-check
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
1993 :package-version '(MH-E . "7.0"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1994
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1995 (defun mh-scan-format-file-check (symbol value)
80052
ab03fcd4dc80 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79713
diff changeset
1996 "Check if desired setting is valid.
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1997 Throw an error if user tries to set `mh-scan-format-file' to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1998 anything but t when `mh-adaptive-cmd-note-flag' is on. Otherwise,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
1999 set SYMBOL to VALUE."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2000 (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
2001 mh-adaptive-cmd-note-flag)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2002 (error "%s %s" "You must turn off `mh-adaptive-cmd-note-flag'"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2003 "unless you use \"Use MH-E scan Format\"")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2004 (set-default symbol value)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2005
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2006 (defcustom-mh mh-scan-format-file t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2007 "Specifies the format file to pass to the scan program.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2008
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2009 The default setting for this option is \"Use MH-E scan Format\". This
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2010 means that the format string will be taken from the either
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2011 `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
2012 nmh (or GNU mailutils MH) is in use. This setting also enables you to
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2013 turn on the `mh-adaptive-cmd-note-flag' option.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2014
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2015 You can also set this option to \"Use Default scan Format\" to get the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2016 same output as you would get if you ran \"scan\" from the shell. If
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2017 you have a format file that you want MH-E to use but not MH, you can
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2018 set this option to \"Specify a scan Format File\" and enter the name
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2019 of your format file.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2020
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2021 If you change the format of the scan lines you'll need to tell MH-E
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2022 how to parse the new format. As you will see, quite a lot of variables
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2023 are involved to do that. Use \"\\[apropos] RET mh-scan.*regexp\" to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2024 obtain a list of these variables. You will also have to call
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2025 `mh-set-cmd-note' if your notations are not in column 4 (columns in
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2026 Emacs start with 0)."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2027 :type '(choice (const :tag "Use MH-E scan Format" t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2028 (const :tag "Use Default scan Format" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2029 (file :tag "Specify a scan Format File"))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2030 :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
2031 :set 'mh-scan-format-file-check
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2032 :package-version '(MH-E . "6.0"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2033
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2034 (defun mh-adaptive-cmd-note-flag-check (symbol value)
80052
ab03fcd4dc80 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79713
diff changeset
2035 "Check if desired setting is valid.
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2036 Throw an error if user tries to turn on
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2037 `mh-adaptive-cmd-note-flag' when `mh-scan-format-file' isn't t.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2038 Otherwise, set SYMBOL to VALUE."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2039 (if (and value
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2040 (not (eq mh-scan-format-file t)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2041 (error "%s %s" "Can't turn on unless `mh-scan-format-file'"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2042 "is set to \"Use MH-E scan Format\"")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2043 (set-default symbol value)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2044
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2045 (defcustom-mh mh-scan-prog "scan"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2046 "*Program used to scan messages.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2047
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2048 The name of the program that generates a listing of one line per
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2049 message is held in this option. Unless this variable contains an
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2050 absolute pathname, it is assumed to be in the `mh-progs'
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2051 directory. You may link another program to `scan' (see
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2052 \"mh-profile(5)\") to produce a different type of listing."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2053 :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
2054 :group 'mh-scan-line-formats
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2055 :package-version '(MH-E . "6.0"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2056 (make-variable-buffer-local 'mh-scan-prog)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2057
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2058 ;;; Searching (:group 'mh-search)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2059
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2060 (defcustom-mh mh-search-program nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2061 "Search program that MH-E shall use.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2062
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2063 The default setting of this option is \"Auto-detect\" which means
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2064 that MH-E will automatically choose one of swish++, swish-e,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2065 mairix, namazu, pick and grep in that order. If, for example, you
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2066 have both swish++ and mairix installed and you want to use
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2067 mairix, then you can set this option to \"mairix\".
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2068
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2069 More information about setting up an indexing program to use with
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2070 MH-E can be found in the documentation of `mh-search'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2071 :type '(choice (const :tag "Auto-detect" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2072 (const :tag "swish++" swish++)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2073 (const :tag "swish-e" swish)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2074 (const :tag "mairix" mairix)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2075 (const :tag "namazu" namazu)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2076 (const :tag "pick" pick)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2077 (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
2078 :group 'mh-search
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2079 :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
2080
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2081 ;;; Sending Mail (:group 'mh-sending-mail)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2082
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2083 (defcustom-mh mh-compose-forward-as-mime-flag t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2084 "*Non-nil means that messages are forwarded as attachments.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2085
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2086 By default, this option is on which means that the forwarded
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2087 messages are included as attachments. If you would prefer to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2088 forward your messages verbatim (as text, inline), then turn off
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2089 this option. Forwarding messages verbatim works well for short,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2090 textual messages, but your recipient won't be able to view any
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2091 non-textual attachments that were in the forwarded message. Be
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2092 aware that if you have \"forw: -mime\" in your MH profile, then
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2093 forwarded messages will always be included as attachments
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2094 regardless of the settings of this option."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2095 :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
2096 :group 'mh-sending-mail
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2097 :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
2098
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2099 (defcustom-mh mh-compose-letter-function nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2100 "Invoked when starting a new draft.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2101
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2102 However, it is the last function called before you edit your
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2103 message. The consequence of this is that you can write a function
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2104 to write and send the message for you. This function is passed
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2105 three arguments: the contents of the TO, SUBJECT, and CC header
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2106 fields."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2107 :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
2108 :group 'mh-sending-mail
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2109 :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
2110
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2111 (defcustom-mh mh-compose-prompt-flag nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2112 "*Non-nil means prompt for header fields when composing a new draft."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2113 :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
2114 :group 'mh-sending-mail
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2115 :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
2116
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2117 (defcustom-mh mh-forward-subject-format "%s: %s"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2118 "*Format string for forwarded message subject.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2119
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2120 This option is a string which includes two escapes (\"%s\"). The
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2121 first \"%s\" is replaced with the sender of the original message,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2122 and the second one is replaced with the original \"Subject:\"."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2123 :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
2124 :group 'mh-sending-mail
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2125 :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
2126
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2127 (defcustom-mh mh-insert-x-mailer-flag t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2128 "*Non-nil means append an \"X-Mailer:\" header field to the header.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2129
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2130 This header field includes the version of MH-E and Emacs that you
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2131 are using. If you don't want to participate in our marketing, you
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2132 can turn this option off."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2133 :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
2134 :group 'mh-sending-mail
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2135 :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
2136
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2137 (defcustom-mh mh-redist-full-contents-flag nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2138 "*Non-nil means the \"dist\" command needs entire letter for redistribution.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2139
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2140 This option must be turned on if \"dist\" requires the whole
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2141 letter for redistribution, which is the case if \"send\" is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2142 compiled with the BERK option (which many people abhor). If you
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2143 find that MH will not allow you to redistribute a message that
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2144 has been redistributed before, turn off this option."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2145 :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
2146 :group 'mh-sending-mail
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2147 :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
2148
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2149 (defcustom-mh mh-reply-default-reply-to nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2150 "*Sets the person or persons to whom a reply will be sent.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2151
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2152 This option is set to \"Prompt\" by default so that you are
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2153 prompted for the recipient of a reply. If you find that most of
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2154 the time that you specify \"cc\" when you reply to a message, set
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2155 this option to \"cc\". Other choices include \"from\", \"to\", or
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2156 \"all\". You can always edit the recipients in the draft."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2157 :type '(choice (const :tag "Prompt" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2158 (const "from")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2159 (const "to")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2160 (const "cc")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2161 (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
2162 :group 'mh-sending-mail
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2163 :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
2164
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2165 (defcustom-mh mh-reply-show-message-flag t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2166 "*Non-nil means the MH-Show buffer is displayed when replying.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2167
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2168 If you include the message automatically, you can hide the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2169 MH-Show buffer by turning off this option.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2170
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2171 See also `mh-reply'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2172 :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
2173 :group 'mh-sending-mail
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2174 :package-version '(MH-E . "7.0"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2175
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2176 ;;; Sequences (:group 'mh-sequences)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2177
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2178 ;; If `mh-unpropagated-sequences' becomes a defcustom, add the following to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2179 ;; the docstring: "Additional sequences that should not to be preserved can be
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2180 ;; specified by setting `mh-unpropagated-sequences' appropriately." XXX
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2181
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2182 (defcustom-mh mh-refile-preserves-sequences-flag t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2183 "*Non-nil means that sequences are preserved when messages are refiled.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2184
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2185 If a message is in any sequence (except \"Previous-Sequence:\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2186 and \"cur\") when it is refiled, then it will still be in those
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2187 sequences in the destination folder. If this behavior is not
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2188 desired, then turn off this option."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2189 :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
2190 :group 'mh-sequences
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2191 :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
2192
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2193 (defcustom-mh mh-tick-seq 'tick
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2194 "The name of the MH sequence for ticked messages.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2195
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2196 You can customize this option if you already use the \"tick\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2197 sequence for your own use. You can also disable all of the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2198 ticking functions by choosing the \"Disable Ticking\" item but
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2199 there isn't much advantage to that."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2200 :type '(choice (const :tag "Disable Ticking" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2201 symbol)
69728
fb125d0913e5 * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to remove
Bill Wohler <wohler@newt.com>
parents: 69691
diff changeset
2202 :group 'mh-sequences
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2203 :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
2204
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2205 (defcustom-mh mh-update-sequences-after-mh-show-flag t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2206 "*Non-nil means flush MH sequences to disk after message is shown\\<mh-folder-mode-map>.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2207
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2208 Three sequences are maintained internally by MH-E and pushed out
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2209 to MH when a message is shown. They include the sequence
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2210 specified by your \"Unseen-Sequence:\" profile entry, \"cur\",
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2211 and the sequence listed by the option `mh-tick-seq' which is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2212 \"tick\" by default. If you do not like this behavior, turn off
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2213 this option. You can then update the state manually with the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2214 \\[mh-execute-commands], \\[mh-quit], or \\[mh-update-sequences]
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2215 commands."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2216 :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
2217 :group 'mh-sequences
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2218 :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
2219
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2220 ;;; Reading Your Mail (:group 'mh-show)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2221
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2222 (defcustom-mh mh-bury-show-buffer-flag t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2223 "*Non-nil means show buffer is buried.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2224
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2225 One advantage of not burying the show buffer is that one can
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2226 delete the show buffer more easily in an electric buffer list
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2227 because of its proximity to its associated MH-Folder buffer. Try
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2228 running \\[electric-buffer-list] to see what I mean."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2229 :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
2230 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2231 :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
2232
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2233 (defcustom-mh mh-clean-message-header-flag t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2234 "*Non-nil means remove extraneous header fields.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2235
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2236 See also `mh-invisible-header-fields-default' and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2237 `mh-invisible-header-fields'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2238 :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
2239 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2240 :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
2241
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2242 (defcustom-mh mh-decode-mime-flag (not (not (locate-library "mm-decode")))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2243 "*Non-nil means attachments are handled\\<mh-folder-mode-map>.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2244
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2245 MH-E can handle attachments as well if the Gnus `mm-decode'
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2246 library is present. If so, this option will be on. Otherwise,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2247 you'll see the MIME body parts rather than text or attachments.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2248 There isn't much point in turning off this option; however, you
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2249 can inspect it if it appears that the body parts are not being
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2250 interpreted correctly or toggle it with the command
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2251 \\[mh-toggle-mh-decode-mime-flag] to view the raw message.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2252
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2253 This option also controls the display of quoted-printable
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2254 messages and other graphical widgets. See the options
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2255 `mh-graphical-smileys-flag' and `mh-graphical-emphasis-flag'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2256 :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
2257 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2258 :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
2259
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2260 (defcustom-mh mh-display-buttons-for-alternatives-flag nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2261 "*Non-nil means display buttons for all alternative attachments.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2262
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2263 Sometimes, a mail program will produce multiple alternatives of
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2264 the attachment in increasing degree of faithfulness to the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2265 original content. By default, only the preferred alternative is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2266 displayed. If this option is on, then the preferred part is shown
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2267 inline and buttons are shown for each of the other alternatives."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2268 :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
2269 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2270 :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
2271
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2272 (defcustom-mh mh-display-buttons-for-inline-parts-flag nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2273 "*Non-nil means display buttons for all inline attachments\\<mh-folder-mode-map>.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2274
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2275 The sender can request that attachments should be viewed inline so
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2276 that they do not really appear like an attachment at all to the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2277 reader. Most of the time, this is desirable, so by default MH-E
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2278 suppresses the buttons for inline attachments. On the other hand, you
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2279 may receive code or HTML which the sender has added to his message as
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2280 inline attachments so that you can read them in MH-E. In this case, it
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2281 is useful to see the buttons so that you know you don't have to cut
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2282 and paste the code into a file; you can simply save the attachment.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2283
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2284 If you want to make the buttons visible for inline attachments, you
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2285 can use the command \\[mh-toggle-mime-buttons] to toggle the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2286 visibility of these buttons. You can turn on these buttons permanently
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2287 by turning on this option.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2288
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2289 MH-E cannot display all attachments inline however. It can display
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2290 text (including HTML) and images."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2291 :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
2292 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2293 :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
2294
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2295 (defcustom-mh mh-do-not-confirm-flag nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2296 "*Non-nil means non-reversible commands do not prompt for confirmation.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2297
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2298 Commands such as `mh-pack-folder' prompt to confirm whether to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2299 process outstanding moves and deletes or not before continuing.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2300 Turning on this option means that these actions will be
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2301 performed--which is usually desired but cannot be
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2302 retracted--without question."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2303 :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
2304 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2305 :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
2306
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2307 (defcustom-mh mh-fetch-x-image-url nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2308 "*Control fetching of \"X-Image-URL:\" header field image.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2309
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2310 Ths option controls the fetching of the \"X-Image-URL:\" header
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2311 field image with the following values:
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2312
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2313 Ask Before Fetching
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2314 You are prompted before the image is fetched. MH-E will
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2315 remember your reply and will either use the already fetched
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2316 image the next time the same URL is encountered or silently
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2317 skip it if you didn't fetch it the first time. This is a
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2318 good setting.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2319
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2320 Never Fetch
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2321 Images are never fetched and only displayed if they are
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2322 already present in the cache. This is the default.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2323
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2324 There isn't a value of \"Always Fetch\" for privacy and DOS (denial of
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2325 service) reasons. For example, fetching a URL can tip off a spammer
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2326 that you've read his email (which is why you shouldn't blindly answer
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2327 yes if you've set this option to \"Ask Before Fetching\"). Someone may
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2328 also flood your network and fill your disk drive by sending a torrent
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2329 of messages, each specifying a unique URL to a very large file.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2330
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2331 The cache of images is found in the directory \".mhe-x-image-cache\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2332 within your MH directory. You can add your own face to the \"From:\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2333 field too. See Info node `(mh-e)Picture'.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2334
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2335 This setting only has effect if the option `mh-show-use-xface-flag' is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2336 turned on."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2337
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2338 :type '(choice (const :tag "Ask Before Fetching" ask)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2339 (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
2340 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2341 :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
2342
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2343 (defcustom-mh mh-graphical-smileys-flag t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2344 "*Non-nil means graphical smileys are displayed.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2345
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2346 It is a long standing custom to inject body language using a
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2347 cornucopia of punctuation, also known as the \"smileys\". MH-E
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2348 can render these as graphical widgets if this option is turned
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2349 on, which it is by default. Smileys include patterns such as :-)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2350 and ;-).
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2351
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2352 This option is disabled if the option `mh-decode-mime-flag' is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2353 turned off."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2354 :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
2355 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2356 :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
2357
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2358 (defcustom-mh mh-graphical-emphasis-flag t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2359 "*Non-nil means graphical emphasis is displayed.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2360
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2361 A few typesetting features are indicated in ASCII text with
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2362 certain characters. If your terminal supports it, MH-E can render
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2363 these typesetting directives naturally if this option is turned
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2364 on, which it is by default. For example, _underline_ will be
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2365 underlined, *bold* will appear in bold, /italics/ will appear in
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2366 italics, and so on. See the option `gnus-emphasis-alist' for the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2367 whole list.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2368
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2369 This option is disabled if the option `mh-decode-mime-flag' is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2370 turned off."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2371 :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
2372 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2373 :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
2374
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2375 (defcustom-mh mh-highlight-citation-style 'gnus
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2376 "Style for highlighting citations.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2377
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2378 If the sender of the message has cited other messages in his
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2379 message, then MH-E will highlight these citations to emphasize
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2380 the sender's actual response. This option can be customized to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2381 change the highlighting style. The \"Multicolor\" method uses a
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2382 different color for each indentation while the \"Monochrome\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2383 method highlights all citations in red. To disable highlighting
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2384 of citations entirely, choose \"None\"."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2385 :type '(choice (const :tag "Multicolor" gnus)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2386 (const :tag "Monochrome" font-lock)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2387 (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
2388 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2389 :package-version '(MH-E . "8.0"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2390
95098
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2391 ;; 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
2392 ;; "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
2393 ;; "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
2394 ;; "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
2395 ;; "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
2396 ;; "Organization:" ;
82495
35a9b12beb25 (mh-invisible-header-fields-internal): Exclude Fax and Phone. Put
Jeffrey C Honig <jch@bsdi.com>
parents: 82474
diff changeset
2397 ;; "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
2398 ;; "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
2399 ;; "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
2400 ;; "Sender:" ;
82495
35a9b12beb25 (mh-invisible-header-fields-internal): Exclude Fax and Phone. Put
Jeffrey C Honig <jch@bsdi.com>
parents: 82474
diff changeset
2401 ;; "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
2402 ;; "X-Mailer:" ;
95098
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2403 ;; "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
2404
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2405 ;; 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
2406 ;; Mention source, if known.
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2407 (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
2408 '(
35a9b12beb25 (mh-invisible-header-fields-internal): Exclude Fax and Phone. Put
Jeffrey C Honig <jch@bsdi.com>
parents: 82474
diff changeset
2409 "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
2410 "Accept-Language:"
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2411 "AcceptLanguage:"
93045
1fe4f34f7113 (mh-invisible-header-fields-internal): Add Accreditor,
Bill Wohler <wohler@newt.com>
parents: 92148
diff changeset
2412 "Accreditor:" ; Habeas
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2413 "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
2414 "Alternate-recipient:" ; RFC 2156
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2415 "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
2416 "Approved:" ; RFC 1036
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2417 "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
2418 "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
2419 "Authentication-Results:"
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2420 "Auto-forwarded:" ; RFC 2156
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2421 "Autoforwarded:" ; RFC 2156
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2422 "Bestservhost:"
95323
3365a8da5213 * mh-e.el (mh-invisible-header-fields-internal): Remove Newsgroups
Jeffrey C Honig <jch@bsdi.com>
parents: 95233
diff changeset
2423 "Bytes:"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2424 "Cancel-Key:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2425 "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
2426 "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
2427 "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
2428 "Control:" ; RFC 1036
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2429 "Conversion-With-Loss:" ; RFC 2156
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2430 "Conversion:" ; RFC 2156
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2431 "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
2432 "Delivery-Date:" ; RFC 2156
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2433 "Delivery:"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2434 "Discarded-X400-" ; RFC 2156
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2435 "Disclose-Recipients:" ; RFC 2156
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2436 "Disposition-Notification-Options:" ; RFC 2298
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2437 "Disposition-Notification-To:" ; RFC 2298
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2438 "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
2439 "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
2440 "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
2441 "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
2442 "DomainKey-Signature:"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2443 "Encoding:" ; RFC 1505
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2444 "Envelope-to:"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2445 "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
2446 "Expires:" ; RFC 1036
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2447 "Expiry-Date:" ; RFC 2156
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2448 "Face:" ; Gnus Face header
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2449 "Followup-To:" ; RFC 1036
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2450 "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
2451 "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
2452 "For-Handdling:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2453 "Forwarded:" ; MH
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2454 "From " ; sendmail
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2455 "Generate-Delivery-Report:" ; RFC 2156
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2456 "Importance:" ; RFC 2156, 2421
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2457 "In-Reply-To:" ; RFC 2822
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2458 "Incomplete-Copy:" ; RFC 2156
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2459 "Keywords:" ; RFC 2822
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2460 "Language:" ; RFC 2156
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2461 "Lines:" ; RFC 1036
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2462 "List-" ; RFC 2369, 2919
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2463 "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
2464 "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
2465 "Mail-from:" ; MH
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2466 "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
2467 "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
2468 "Message-Content:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2469 "Message-Id:" ; RFC 822
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2470 "Message-Type:" ; RFC 2156
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2471 "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
2472 "Msgid:"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2473 "NNTP-" ; News
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2474 "Obsoletes:" ; RFC 2156
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2475 "Old-Return-Path:"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2476 "OpenPGP:"
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2477 "Original-Encoded-Information-Types:" ; RFC 2156
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2478 "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
2479 "Original-Newsgroups:" ; mail to news
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2480 "Original-NNTP-" ; mail to news
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2481 "Original-Path:" ; mail to news
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2482 "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
2483 "Original-Recipt:" ; RFC 2298
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2484 "Original-To:" ; mail to news
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2485 "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
2486 "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
2487 "Originator:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2488 "P1-Content-Type:" ; X400
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2489 "P1-Message-Id:" ; X400
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2490 "P1-Recipient:" ; X400
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2491 "Path:" ; RFC 1036
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2492 "Pics-Label:" ; W3C
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2493 "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
2494 "Precedence:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2495 "Prev-Resent" ; MH
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2496 "Prevent-NonDelivery-Report:" ; RFC 2156
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2497 "Priority:" ; RFC 2156
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2498 "Read-Receipt-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2499 "Received-SPF:" ; Gmail
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2500 "Received:" ; RFC 822
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2501 "References:" ; RFC 2822
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2502 "Registered-Mail-Reply-Requested-By:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2503 "Remailed-" ; MH
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2504 "Replaces:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2505 "Replied:" ; MH
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2506 "Resent-" ; RFC 2822
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2507 "Return-Path:" ; RFC 822
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2508 "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
2509 "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
2510 "Seal-Send-Time:"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2511 "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
2512 "Sensitivity:" ; RFC 2156, 2421
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2513 "Speach-Act:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2514 "Status:" ; sendmail
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2515 "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
2516 "Telefax:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2517 "Thread-"
95098
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2518 "Thread-Index:"
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2519 "Thread-Topic:"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2520 "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
2521 "Translation-Of:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2522 "Ua-Content-Id:" ; X400
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2523 "Via:" ; MH
95098
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2524 "X-Abuse-and-DMCA-"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2525 "X-Abuse-Info:"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2526 "X-Accept-Language:" ; Netscape/Mozilla
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2527 "X-Ack:"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2528 "X-Admin:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2529 "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
2530 "X-AMAZON" ; Amazon.com
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2531 "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
2532 "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
2533 "X-AOL-IP:" ; AOL WebMail
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2534 "X-Apparently-From:" ; MS Outlook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2535 "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
2536 "X-Attribution:"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2537 "X-AuditID:"
82495
35a9b12beb25 (mh-invisible-header-fields-internal): Exclude Fax and Phone. Put
Jeffrey C Honig <jch@bsdi.com>
parents: 82474
diff changeset
2538 "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
2539 "X-Authenticated-Sender:" ; AT&T Message Center (webmail)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2540 "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
2541 "X-Authority-Analysis:"
69058
2ac1a4fca640 * mh-e.el (mh-invisible-header-fields-internal): Added entries
Eric Ding <ericding@mit.edu>
parents: 69031
diff changeset
2542 "X-Barracuda-" ; Barracuda spam scores
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2543 "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
2544 "X-Bigfish:"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2545 "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
2546 "X-Brightmail-Tracker:" ; Brightmail
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2547 "X-BrightmailFiltered:" ; Brightmail
69058
2ac1a4fca640 * mh-e.el (mh-invisible-header-fields-internal): Added entries
Eric Ding <ericding@mit.edu>
parents: 69031
diff changeset
2548 "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
2549 "X-Campaignid:"
82495
35a9b12beb25 (mh-invisible-header-fields-internal): Exclude Fax and Phone. Put
Jeffrey C Honig <jch@bsdi.com>
parents: 82474
diff changeset
2550 "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
2551 "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
2552 "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
2553 "X-Content-Filtered-By:"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2554 "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
2555 "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
2556 "X-Cr-Hashedpuzzle:"
35a9b12beb25 (mh-invisible-header-fields-internal): Exclude Fax and Phone. Put
Jeffrey C Honig <jch@bsdi.com>
parents: 82474
diff changeset
2557 "X-Cr-Puzzleid:"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2558 "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
2559 "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
2560 "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
2561 "X-Dedicated:"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2562 "X-Delivered"
95098
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2563 "X-DH-Virus-"
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2564 "X-DMCA"
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2565 "X-Domain:"
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2566 "X-Echelon-Distraction"
69058
2ac1a4fca640 * mh-e.el (mh-invisible-header-fields-internal): Added entries
Eric Ding <ericding@mit.edu>
parents: 69031
diff changeset
2567 "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
2568 "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
2569 "X-EID:"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2570 "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
2571 "X-Enigmail-Version:"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2572 "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
2573 "X-Envelope-From:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2574 "X-Envelope-Sender:"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2575 "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
2576 "X-EviteMessageId:" ; evite.com
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2577 "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
2578 "X-ExtLoop"
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2579 "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
2580 "X-fmx-"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2581 "X-Folder:" ; Spam
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2582 "X-From-Line"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2583 "X-Gmail-" ; Gmail
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2584 "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
2585 "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
2586 "X-Google-Sender-Auth:"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2587 "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
2588 "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
2589 "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
2590 "X-HPL-"
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2591 "X-HR-"
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2592 "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
2593 "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
2594 "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
2595 "X-Image-URL:"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2596 "X-IMAP:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2597 "X-Info:" ; NTMail
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2598 "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
2599 "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
2600 "X-J2-"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2601 "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
2602 "X-Key:"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2603 "X-List-Host:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2604 "X-List-Subscribe:" ; Unknown mailing list managers
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2605 "X-List-Unsubscribe:" ; Unknown mailing list managers
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2606 "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
2607 "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
2608 "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
2609 "X-Lrde-Mailscanner:"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2610 "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
2611 "X-Mail-from:" ; fastmail.fm
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2612 "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
2613 "X-Mailer_"
95098
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2614 "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
2615 "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
2616 "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
2617 "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
2618 "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
2619 "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
2620 "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
2621 "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
2622 "X-MDRemoteIP:"
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2623 "X-Message-Id"
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2624 "X-Message-Type:"
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2625 "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
2626 "X-MHE-Checksum:" ; Checksum added during index search
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2627 "X-MIME-Autoconverted:" ; sendmail
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2628 "X-MIMEOLE:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/sendmail
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2629 "X-MIMETrack:"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2630 "X-Mms-" ; T-Mobile pictures
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2631 "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
2632 "X-MS-" ; MS Outlook
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2633 "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
2634 "X-MSMail-Priority" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2635 "X-NAI-Spam-" ; Network Associates Inc. SpamKiller
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2636 "X-News:" ; News
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2637 "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
2638 "X-No-Archive:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2639 "X-Notes-Item:" ; Lotus Notes Domino structured header
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2640 "X-OperatingSystem:"
95098
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2641 "X-ORBL:"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2642 "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
2643 "X-Organization:"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2644 "X-Original-Arrival-Type:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2645 "X-Original-Complaints-To:"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2646 "X-Original-Date:" ; SourceForge mailing list manager
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2647 "X-Original-To:"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2648 "X-Original-Trace:"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2649 "X-OriginalArrivalTime:" ; Hotmail
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2650 "X-Originating-Email:" ; Hotmail
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2651 "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
2652 "X-pair-"
95098
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2653 "X-PGP:"
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2654 "X-PID:"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2655 "X-PMG-"
95098
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2656 "X-PMX-Version:"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2657 "X-Postfilter:"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2658 "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
2659 "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
2660 "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
2661 "X-PSTN-"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2662 "X-Qotd-" ; User added
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2663 "X-RCPT-TO:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2664 "X-Received-Date:"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2665 "X-Received:"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2666 "X-Report-Abuse-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2667 "X-Request-"
69058
2ac1a4fca640 * mh-e.el (mh-invisible-header-fields-internal): Added entries
Eric Ding <ericding@mit.edu>
parents: 69031
diff changeset
2668 "X-Resolved-to:" ; fastmail.fm
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2669 "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
2670 "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
2671 "X-RM"
82495
35a9b12beb25 (mh-invisible-header-fields-internal): Exclude Fax and Phone. Put
Jeffrey C Honig <jch@bsdi.com>
parents: 82474
diff changeset
2672 "X-RocketYMMF:" ; Yahoo
69058
2ac1a4fca640 * mh-e.el (mh-invisible-header-fields-internal): Added entries
Eric Ding <ericding@mit.edu>
parents: 69031
diff changeset
2673 "X-Roving-" ; Roving ConstantContact
2ac1a4fca640 * mh-e.el (mh-invisible-header-fields-internal): Added entries
Eric Ding <ericding@mit.edu>
parents: 69031
diff changeset
2674 "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
2675 "X-Sasl-enc:" ; Apple Mail
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2676 "X-SBClass:" ; Spam
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2677 "X-SBNote:" ; Spam
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2678 "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
2679 "X-SBRS:"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2680 "X-SBRule:" ; Spam
69074
f5bc6bf5c294 * mh-e.el (mh-invisible-header-fields-internal): Added entry
Eric Ding <ericding@mit.edu>
parents: 69058
diff changeset
2681 "X-Scanned-By:"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2682 "X-Sender:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2683 "X-Server-Date:"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2684 "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
2685 "X-Service-Code:"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2686 "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
2687 "X-SMTP-"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2688 "X-Source"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2689 "X-Spam-" ; Spamassassin
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2690 "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
2691 "X-SPF-"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2692 "X-Status"
95098
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2693 "X-Submission-Address:"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2694 "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
2695 "X-Sun-Charset:"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2696 "X-Telecom-Digest"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2697 "X-Trace:"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2698 "X-UID"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2699 "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
2700 "X-Unity"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2701 "X-UNTD-" ; NetZero
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2702 "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
2703 "X-URL:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2704 "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
2705 "X-Usenet-Provider"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2706 "X-UserInfo1:"
91946
9f463c693cae (mh-invisible-header-fields-internal): Remove trailing whitespace.
Bill Wohler <wohler@newt.com>
parents: 87649
diff changeset
2707 "X-Virus-" ;
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2708 "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
2709 "X-VSMLoop:" ; NTMail
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2710 "X-WebTV-Signature:"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2711 "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
2712 "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
2713 "X-Yahoo"
a49a51d08db3 (mh-invisible-header-fields-internal): Sort list in a case-insensitive
Bill Wohler <wohler@newt.com>
parents: 94663
diff changeset
2714 "X-Yahoo-Newman-"
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2715 "X-YMail-"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2716 "X400-" ; X400
82472
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2717 "Xref:" ; RFC 1036
c10f1bce794e (mh-invisible-header-fields-internal): Update with all
Jeffrey C Honig <jch@bsdi.com>
parents: 78231
diff changeset
2718 )
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2719 "List of default header fields that are not to be shown.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2720
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2721 Do not alter this variable directly. Instead, add entries from
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2722 here that you would like to be displayed in
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2723 `mh-invisible-header-fields-default' and add entries to hide in
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2724 `mh-invisible-header-fields'.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2725
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2726 (eval-and-compile
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2727 (unless (fboundp 'mh-invisible-headers)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2728 (defun mh-invisible-headers ()
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2729 "Temporary definition.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2730 Real definition, below, uses variables that aren't defined yet."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2731 nil)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2732
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2733 (defvar mh-delay-invisible-header-generation-flag t
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2734 "Non-nil means to delay the generation of invisible header fields.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2735 Because the function `mh-invisible-headers' uses both
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2736 `mh-invisible-header-fields' and `mh-invisible-header-fields', it
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2737 cannot be run until both variables have been initialized.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2738
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2739 (defcustom-mh mh-invisible-header-fields nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2740 "*Additional header fields to hide.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2741
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2742 Header fields that you would like to hide that aren't listed in
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2743 `mh-invisible-header-fields-default' can be added to this option
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2744 with a couple of caveats. Regular expressions are not allowed.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2745 Unique fields should have a \":\" suffix; otherwise, the element
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2746 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
2747 start with the same prefix.
1fe4f34f7113 (mh-invisible-header-fields-internal): Add Accreditor,
Bill Wohler <wohler@newt.com>
parents: 92148
diff changeset
2748
1fe4f34f7113 (mh-invisible-header-fields-internal): Add Accreditor,
Bill Wohler <wohler@newt.com>
parents: 92148
diff changeset
2749 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
2750 update SF #1916032 (see URL
1fe4f34f7113 (mh-invisible-header-fields-internal): Add Accreditor,
Bill Wohler <wohler@newt.com>
parents: 92148
diff changeset
2751 `https://sourceforge.net/tracker/index.php?func=detail&aid=1916032&group_id=13357&atid=113357').
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2752
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2753 See also `mh-clean-message-header-flag'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2754
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2755 :type '(repeat (string :tag "Header field"))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2756 :set (lambda (symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2757 (set-default symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2758 (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
2759 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2760 :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
2761
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2762 (defcustom-mh mh-invisible-header-fields-default nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2763 "*List of hidden header fields.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2764
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2765 The header fields listed in this option are hidden, although you
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2766 can check off any field that you would like to see.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2767
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2768 Header fields that you would like to hide that aren't listed can
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2769 be added to the option `mh-invisible-header-fields'.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2770
93045
1fe4f34f7113 (mh-invisible-header-fields-internal): Add Accreditor,
Bill Wohler <wohler@newt.com>
parents: 92148
diff changeset
2771 See also `mh-clean-message-header-flag'.
1fe4f34f7113 (mh-invisible-header-fields-internal): Add Accreditor,
Bill Wohler <wohler@newt.com>
parents: 92148
diff changeset
2772
1fe4f34f7113 (mh-invisible-header-fields-internal): Add Accreditor,
Bill Wohler <wohler@newt.com>
parents: 92148
diff changeset
2773 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
2774 update SF #1916032 (see URL
1fe4f34f7113 (mh-invisible-header-fields-internal): Add Accreditor,
Bill Wohler <wohler@newt.com>
parents: 92148
diff changeset
2775 `https://sourceforge.net/tracker/index.php?func=detail&aid=1916032&group_id=13357&atid=113357')."
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2776 :type `(set ,@(mapcar (lambda (x) `(const ,x))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2777 mh-invisible-header-fields-internal))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2778 :set (lambda (symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2779 (set-default symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2780 (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
2781 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2782 :package-version '(MH-E . "8.0"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2783
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2784 (defvar mh-invisible-header-fields-compiled nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2785 "*Regexp matching lines in a message header that are not to be shown.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2786 Do not alter this variable directly. Instead, customize
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2787 `mh-invisible-header-fields-default' checking for fields normally
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2788 hidden that you wish to display, and add extra entries to hide in
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2789 `mh-invisible-header-fields'.")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2790
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2791 (defun mh-invisible-headers ()
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2792 "Make or remake the variable `mh-invisible-header-fields-compiled'.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2793 Done using `mh-invisible-header-fields-internal' as input, from
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2794 which entries from `mh-invisible-header-fields-default' are
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2795 removed and entries from `mh-invisible-header-fields' are added."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2796 (let ((fields mh-invisible-header-fields-internal))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2797 (when mh-invisible-header-fields-default
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2798 ;; Remove entries from `mh-invisible-header-fields-default'
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2799 (setq fields
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2800 (loop for x in fields
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2801 unless (member x mh-invisible-header-fields-default)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2802 collect x)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2803 (when (and (boundp 'mh-invisible-header-fields)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2804 mh-invisible-header-fields)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2805 (dolist (x mh-invisible-header-fields)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2806 (unless (member x fields) (setq fields (cons x fields)))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2807 (if fields
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2808 (setq mh-invisible-header-fields-compiled
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2809 (concat
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2810 "^"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2811 ;; workaround for insufficient default
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2812 (let ((max-specpdl-size 1000))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2813 (regexp-opt fields t))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2814 (setq mh-invisible-header-fields-compiled nil))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2815
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2816 ;; Compile invisible header fields.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2817 (mh-invisible-headers)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2818
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2819 (defcustom-mh mh-lpr-command-format "lpr -J '%s'"
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2820 "*Command used to print\\<mh-folder-mode-map>.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2821
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2822 This option contains the Unix command line which performs the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2823 actual printing for the \\[mh-print-msg] command. The string can
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2824 contain one escape, \"%s\", which is replaced by the name of the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2825 folder and the message number and is useful for print job names.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2826 I use \"mpage -h'%s' -b Letter -H1of -mlrtb -P\" which produces a
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2827 nice header and adds a bit of margin so the text fits within my
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2828 printer's margins.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2829
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2830 This options is not used by the commands \\[mh-ps-print-msg] or
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2831 \\[mh-ps-print-msg-file]."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2832 :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
2833 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2834 :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
2835
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2836 (defcustom-mh mh-max-inline-image-height nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2837 "*Maximum inline image height if \"Content-Disposition:\" is not present.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2838
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2839 Some older mail programs do not insert this needed plumbing to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2840 tell MH-E whether to display the attachments inline or not. If
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2841 this is the case, MH-E will display these images inline if they
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2842 are smaller than the window. However, you might want to allow
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2843 larger images to be displayed inline. To do this, you can change
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2844 the options `mh-max-inline-image-width' and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2845 `mh-max-inline-image-height' from their default value of zero to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2846 a large number. The size of your screen is a good choice for
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2847 these numbers."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2848 :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
2849 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2850 :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
2851
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2852 (defcustom-mh mh-max-inline-image-width nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2853 "*Maximum inline image width if \"Content-Disposition:\" is not present.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2854
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2855 Some older mail programs do not insert this needed plumbing to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2856 tell MH-E whether to display the attachments inline or not. If
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2857 this is the case, MH-E will display these images inline if they
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2858 are smaller than the window. However, you might want to allow
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2859 larger images to be displayed inline. To do this, you can change
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2860 the options `mh-max-inline-image-width' and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2861 `mh-max-inline-image-height' from their default value of zero to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2862 a large number. The size of your screen is a good choice for
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2863 these numbers."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2864 :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
2865 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2866 :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
2867
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2868 (defcustom-mh mh-mhl-format-file nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2869 "*Specifies the format file to pass to the \"mhl\" program.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2870
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2871 Normally MH-E takes care of displaying messages itself (rather than
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2872 calling an MH program to do the work). If you'd rather have \"mhl\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2873 display the message (within MH-E), change this option from its default
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2874 value of \"Use Default mhl Format (Printing Only)\".
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2875
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2876 You can set this option to \"Use Default mhl Format\" to get the same
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2877 output as you would get if you ran \"mhl\" from the shell.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2878
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2879 If you have a format file that you want MH-E to use, you can set this
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2880 option to \"Specify an mhl Format File\" and enter the name of your
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2881 format file. Your format file should specify a non-zero value for
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2882 \"overflowoffset\" to allow MH-E to parse the header. Note that
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2883 \"mhl\" is always used for printing and forwarding; in this case, the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2884 value of this option is consulted if you have specified a format
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2885 file."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2886 :type '(choice (const :tag "Use Default mhl Format (Printing Only)" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2887 (const :tag "Use Default mhl Format" t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2888 (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
2889 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2890 :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
2891
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2892 (defcustom-mh mh-mime-save-parts-default-directory t
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2893 "Default directory to use for \\<mh-folder-mode-map>\\[mh-mime-save-parts].
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2894
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2895 The default value for this option is \"Prompt Always\" so that
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2896 you are always prompted for the directory in which to save the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2897 attachments. However, if you usually use the same directory
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2898 within a session, then you can set this option to \"Prompt the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2899 First Time\" to avoid the prompt each time. you can make this
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2900 directory permanent by choosing \"Directory\" and entering the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2901 directory's name."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2902 :type '(choice (const :tag "Prompt the First Time" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2903 (const :tag "Prompt Always" t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2904 directory)
69728
fb125d0913e5 * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to remove
Bill Wohler <wohler@newt.com>
parents: 69691
diff changeset
2905 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2906 :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
2907
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2908 (defcustom-mh mh-print-background-flag nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2909 "*Non-nil means messages should be printed in the background\\<mh-folder-mode-map>.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2910
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2911 Normally messages are printed in the foreground. If this is slow on
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2912 your system, you may elect to turn off this option to print in the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2913 background.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2914
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2915 WARNING: If you do this, do not delete the message until it is printed
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2916 or else the output may be truncated.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2917
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2918 This option is not used by the commands \\[mh-ps-print-msg] or
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2919 \\[mh-ps-print-msg-file]."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2920 :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
2921 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2922 :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
2923
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2924 (defcustom-mh mh-show-maximum-size 0
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2925 "*Maximum size of message (in bytes) to display automatically.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2926
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2927 This option provides an opportunity to skip over large messages
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2928 which may be slow to load. The default value of 0 means that all
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2929 message are shown regardless of size."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2930 :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
2931 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2932 :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
2933
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2934 (defcustom-mh mh-show-use-xface-flag (>= emacs-major-version 21)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2935 "*Non-nil means display face images in MH-show buffers.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2936
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2937 MH-E can display the content of \"Face:\", \"X-Face:\", and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2938 \"X-Image-URL:\" header fields. If any of these fields occur in the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2939 header of your message, the sender's face will appear in the \"From:\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2940 header field. If more than one of these fields appear, then the first
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2941 field found in the order \"Face:\", \"X-Face:\", and \"X-Image-URL:\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2942 will be used.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2943
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2944 The option `mh-show-use-xface-flag' is used to turn this feature on
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2945 and off. This feature will be turned on by default if your system
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2946 supports it.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2947
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2948 The first header field used, if present, is the Gnus-specific
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2949 \"Face:\" field. The \"Face:\" field appeared in GNU Emacs 21 and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2950 XEmacs. For more information, see URL
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2951 `http://quimby.gnus.org/circus/face/'. Next is the traditional
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2952 \"X-Face:\" header field. The display of this field requires the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2953 \"uncompface\" program (see URL
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2954 `ftp://ftp.cs.indiana.edu/pub/faces/compface/compface.tar.z'). Recent
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2955 versions of XEmacs have internal support for \"X-Face:\" images. If
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2956 your version of XEmacs does not, then you'll need both \"uncompface\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2957 and the x-face package (see URL `ftp://ftp.jpl.org/pub/elisp/').
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2958
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2959 Finally, MH-E will display images referenced by the \"X-Image-URL:\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2960 header field if neither the \"Face:\" nor the \"X-Face:\" fields are
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2961 present. The display of the images requires \"wget\" (see URL
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2962 `http://www.gnu.org/software/wget/wget.html'), \"fetch\", or \"curl\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2963 to fetch the image and the \"convert\" program from the ImageMagick
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2964 suite (see URL `http://www.imagemagick.org/'). Of the three header
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2965 fields this is the most efficient in terms of network usage since the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2966 image doesn't need to be transmitted with every single mail.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2967
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2968 The option `mh-fetch-x-image-url' controls the fetching of the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2969 \"X-Image-URL:\" header field image."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2970 :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
2971 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2972 :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
2973
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2974 (defcustom-mh mh-store-default-directory nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2975 "*Default directory for \\<mh-folder-mode-map>\\[mh-store-msg].
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2976
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2977 If you would like to change the initial default directory,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2978 customize this option, change the value from \"Current\" to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2979 \"Directory\", and then enter the name of the directory for storing
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2980 the content of these messages."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2981 :type '(choice (const :tag "Current" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2982 directory)
69728
fb125d0913e5 * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to remove
Bill Wohler <wohler@newt.com>
parents: 69691
diff changeset
2983 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2984 :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
2985
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
2986 (defcustom-mh mh-summary-height nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2987 "*Number of lines in MH-Folder buffer (including the mode line).
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2988
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2989 The default value of this option is \"Automatic\" which means
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2990 that the MH-Folder buffer will maintain the same proportional
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2991 size if the frame is resized. If you'd prefer a fixed height,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2992 then choose the \"Fixed Size\" option and enter the number of
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2993 lines you'd like to see."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2994 :type '(choice (const :tag "Automatic" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2995 (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
2996 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
2997 :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
2998
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
2999 ;;; The Speedbar (:group 'mh-speedbar)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3000
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3001 (defcustom-mh mh-speed-update-interval 60
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3002 "Time between speedbar updates in seconds.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3003 Set to 0 to disable automatic update."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3004 :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
3005 :group 'mh-speedbar
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3006 :package-version '(MH-E . "8.0"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3007
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3008 ;;; Threading (:group 'mh-thread)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3009
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3010 (defcustom-mh mh-show-threads-flag nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3011 "*Non-nil means new folders start in threaded mode.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3012
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3013 Threading large number of messages can be time consuming so this
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3014 option is turned off by default. If you turn this option on, then
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3015 threading will be done only if the number of messages being
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3016 threaded is less than `mh-large-folder'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3017 :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
3018 :group 'mh-thread
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3019 :package-version '(MH-E . "7.1"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3020
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3021 ;;; The Tool Bar (:group 'mh-tool-bar)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3022
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3023 ;; mh-tool-bar-folder-buttons and mh-tool-bar-letter-buttons defined
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3024 ;; dynamically in mh-tool-bar.el.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3025
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3026 (defcustom-mh mh-tool-bar-search-function 'mh-search
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3027 "*Function called by the tool bar search button.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3028
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3029 By default, this is set to `mh-search'. You can also choose
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3030 \"Other Function\" from the \"Value Menu\" and enter a function
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3031 of your own choosing."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3032 :type '(choice (const mh-search)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3033 (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
3034 :group 'mh-tool-bar
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3035 :package-version '(MH-E . "7.0"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3036
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3037 ;; XEmacs has a couple of extra customizations...
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3038 (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
3039 (defcustom-mh mh-xemacs-use-tool-bar-flag mh-xemacs-has-tool-bar-flag
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3040 "*If non-nil, use tool bar.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3041
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3042 This option controls whether to show the MH-E icons at all. By
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3043 default, this option is turned on if the window system supports
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3044 tool bars. If your system doesn't support tool bars, then you
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3045 won't be able to turn on this option."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3046 :type 'boolean
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3047 :group 'mh-tool-bar
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3048 :set (lambda (symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3049 (if (and (eq value t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3050 (not mh-xemacs-has-tool-bar-flag))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3051 (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
3052 (set-default symbol value))
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3053 :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
3054
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3055 (defcustom-mh mh-xemacs-tool-bar-position nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3056 "*Tool bar location.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3057
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3058 This option controls the placement of the tool bar along the four
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3059 edges of the frame. You can choose from one of \"Same As Default
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3060 Tool Bar\", \"Top\", \"Bottom\", \"Left\", or \"Right\". If this
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3061 variable is set to anything other than \"Same As Default Tool
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3062 Bar\" and the default tool bar is in a different location, then
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3063 two tool bars will be displayed: the MH-E tool bar and the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3064 default tool bar."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3065 :type '(radio (const :tag "Same As Default Tool Bar" :value nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3066 (const :tag "Top" :value top)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3067 (const :tag "Bottom" :value bottom)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3068 (const :tag "Left" :value left)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3069 (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
3070 :group 'mh-tool-bar
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3071 :package-version '(MH-E . "7.3")))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3072
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3073
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3074
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3075 ;;; Hooks (:group 'mh-hooks + group where hook described)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3076
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3077 (defcustom-mh mh-after-commands-processed-hook nil
68475
fef251da6e07 (mh-after-commands-processed-hook)
Bill Wohler <wohler@newt.com>
parents: 68465
diff changeset
3078 "Hook run by \\<mh-folder-mode-map>\\[mh-execute-commands] after performing outstanding refile and delete requests.
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3079
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3080 Variables that are useful in this hook include
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3081 `mh-folders-changed', which lists which folders were affected by
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3082 deletes and refiles. This list will always include the current
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3083 folder, which is also available in `mh-current-folder'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3084 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3085 :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
3086 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3087 :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
3088
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3089 (defcustom-mh mh-alias-reloaded-hook nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3090 "Hook run by `mh-alias-reload' after loading aliases."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3091 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3092 :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
3093 :group 'mh-alias
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3094 :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
3095
82839
af7dc7457402 add mh-annotate-msg-hook
Stephen Gildea <gildea@stop.mail-abuse.org>
parents: 82495
diff changeset
3096 (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
3097 "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
3098 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
3099 `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
3100 annotated messages with `mh-annotate-list'."
82839
af7dc7457402 add mh-annotate-msg-hook
Stephen Gildea <gildea@stop.mail-abuse.org>
parents: 82495
diff changeset
3101 :type 'hook
af7dc7457402 add mh-annotate-msg-hook
Stephen Gildea <gildea@stop.mail-abuse.org>
parents: 82495
diff changeset
3102 :group 'mh-hooks
af7dc7457402 add mh-annotate-msg-hook
Stephen Gildea <gildea@stop.mail-abuse.org>
parents: 82495
diff changeset
3103 :group 'mh-sending-mail
af7dc7457402 add mh-annotate-msg-hook
Stephen Gildea <gildea@stop.mail-abuse.org>
parents: 82495
diff changeset
3104 :package-version '(MH-E . "8.1"))
af7dc7457402 add mh-annotate-msg-hook
Stephen Gildea <gildea@stop.mail-abuse.org>
parents: 82495
diff changeset
3105
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3106 (defcustom-mh mh-before-commands-processed-hook nil
68475
fef251da6e07 (mh-after-commands-processed-hook)
Bill Wohler <wohler@newt.com>
parents: 68465
diff changeset
3107 "Hook run by \\<mh-folder-mode-map>\\[mh-execute-commands] before performing outstanding refile and delete requests.
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3108
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3109 Variables that are useful in this hook include `mh-delete-list'
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3110 and `mh-refile-list' which can be used to see which changes will
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3111 be made to the current folder, `mh-current-folder'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3112 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3113 :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
3114 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3115 :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
3116
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3117 (defcustom-mh mh-before-quit-hook nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3118 "Hook run by \\<mh-folder-mode-map>\\[mh-quit] before quitting MH-E.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3119
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3120 This hook is called before the quit occurs, so you might use it
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3121 to perform any MH-E operations; you could perform some query and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3122 abort the quit or call `mh-execute-commands', for example.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3123
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3124 See also `mh-quit-hook'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3125 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3126 :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
3127 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3128 :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
3129
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3130 (defcustom-mh mh-before-send-letter-hook nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3131 "Hook run at the beginning of the \\<mh-letter-mode-map>\\[mh-send-letter] command.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3132
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3133 For example, if you want to check your spelling in your message
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3134 before sending, add the `ispell-message' function."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3135 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3136 :options '(ispell-message)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3137 :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
3138 :group 'mh-letter
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3139 :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
3140
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3141 (defcustom-mh mh-delete-msg-hook nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3142 "Hook run by \\<mh-letter-mode-map>\\[mh-delete-msg] after marking each message for deletion.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3143
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3144 For example, a past maintainer of MH-E used this once when he
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3145 kept statistics on his mail usage."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3146 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3147 :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
3148 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3149 :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
3150
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3151 (defcustom-mh mh-find-path-hook nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3152 "Hook run by `mh-find-path' after reading the user's MH profile.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3153
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3154 This hook can be used the change the value of the variables that
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3155 `mh-find-path' sets if you need to run with different values
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3156 between MH and MH-E."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3157 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3158 :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
3159 :group 'mh-e
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3160 :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
3161
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3162 (defcustom-mh mh-folder-mode-hook nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3163 "Hook run by `mh-folder-mode' when visiting a new folder."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3164 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3165 :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
3166 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3167 :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
3168
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3169 (defcustom-mh mh-forward-hook nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3170 "Hook run by `mh-forward' on a forwarded letter."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3171 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3172 :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
3173 :group 'mh-sending-mail
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3174 :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
3175
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3176 (defcustom-mh mh-inc-folder-hook nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3177 "Hook run by \\<mh-folder-mode-map>\\[mh-inc-folder] after incorporating mail into a folder."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3178 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3179 :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
3180 :group 'mh-inc
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3181 :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
3182
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3183 (defcustom-mh mh-insert-signature-hook nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3184 "Hook run by \\<mh-letter-mode-map>\\[mh-insert-signature] after signature has been inserted.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3185
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3186 Hook functions may access the actual name of the file or the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3187 function used to insert the signature with
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3188 `mh-signature-file-name'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3189 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3190 :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
3191 :group 'mh-letter
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3192 :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
3193
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3194 (defcustom-mh mh-kill-folder-suppress-prompt-hooks '(mh-search-p)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3195 "Abnormal hook run at the beginning of \\<mh-folder-mode-map>\\[mh-kill-folder].
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3196
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3197 The hook functions are called with no arguments and should return
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3198 a non-nil value to suppress the normal prompt when you remove a
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3199 folder. This is useful for folders that are easily regenerated.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3200
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3201 The default value of `mh-search-p' suppresses the prompt on
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3202 folders generated by searching.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3203
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3204 WARNING: Use this hook with care. If there is a bug in your hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3205 which returns t on \"+inbox\" and you hit \\[mh-kill-folder] by
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3206 accident in the \"+inbox\" folder, you will not be happy."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3207 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3208 :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
3209 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3210 :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
3211
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3212 (defcustom-mh mh-letter-mode-hook nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3213 "Hook run by `mh-letter-mode' on a new letter.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3214
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3215 This hook allows you to do some processing before editing a
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3216 letter. For example, you may wish to modify the header after
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3217 \"repl\" has done its work, or you may have a complicated
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3218 \"components\" file and need to tell MH-E where the cursor should
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3219 go."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3220 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3221 :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
3222 :group 'mh-sending-mail
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3223 :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
3224
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3225 (defcustom-mh mh-mh-to-mime-hook nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3226 "Hook run on the formatted letter by \\<mh-letter-mode-map>\\[mh-mh-to-mime]."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3227 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3228 :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
3229 :group 'mh-letter
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3230 :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
3231
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3232 (defcustom-mh mh-search-mode-hook nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3233 "Hook run upon entry to `mh-search-mode'\\<mh-folder-mode-map>.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3234
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3235 If you find that you do the same thing over and over when editing
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3236 the search template, you may wish to bind some shortcuts to keys.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3237 This can be done with this hook which is called when
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3238 \\[mh-search] is run on a new pattern."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3239 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3240 :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
3241 :group 'mh-search
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3242 :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
3243
101520
a1d83c2b479e mh-e.el (mh-pack-folder-hook): New variable.
Stephen Gildea <gildea@stop.mail-abuse.org>
parents: 101470
diff changeset
3244 (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
3245 "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
3246 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
3247 :type 'hook
a1d83c2b479e mh-e.el (mh-pack-folder-hook): New variable.
Stephen Gildea <gildea@stop.mail-abuse.org>
parents: 101470
diff changeset
3248 :group 'mh-hooks
a1d83c2b479e mh-e.el (mh-pack-folder-hook): New variable.
Stephen Gildea <gildea@stop.mail-abuse.org>
parents: 101470
diff changeset
3249 :group 'mh-folder
101562
a3fdbe2837e3 (mh-pack-folder-hook): Bump package-version to 8.2.
Bill Wohler <wohler@newt.com>
parents: 101520
diff changeset
3250 :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
3251
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3252 (defcustom-mh mh-quit-hook nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3253 "Hook run by \\<mh-folder-mode-map>\\[mh-quit] after quitting MH-E.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3254
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3255 This hook is not run in an MH-E context, so you might use it to
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3256 modify the window setup.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3257
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3258 See also `mh-before-quit-hook'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3259 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3260 :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
3261 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3262 :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
3263
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3264 (defcustom-mh mh-refile-msg-hook nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3265 "Hook run by \\<mh-folder-mode-map>\\[mh-refile-msg] after marking each message for refiling."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3266 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3267 :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
3268 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3269 :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
3270
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3271 (defcustom-mh mh-show-hook nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3272 "Hook run after \\<mh-folder-mode-map>\\[mh-show] shows a message.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3273
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3274 It is the last thing called after messages are displayed. It's
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3275 used to affect the behavior of MH-E in general or when
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3276 `mh-show-mode-hook' is too early. See `mh-show-mode-hook'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3277 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3278 :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
3279 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3280 :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
3281
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3282 (defcustom-mh mh-show-mode-hook nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3283 "Hook run upon entry to `mh-show-mode'.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3284
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3285 This hook is called early on in the process of the message
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3286 display. It is usually used to perform some action on the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3287 message's content. See `mh-show-hook'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3288 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3289 :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
3290 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3291 :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
3292
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3293 (defcustom-mh mh-unseen-updated-hook nil
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3294 "Hook run after the unseen sequence has been updated.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3295
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3296 The variable `mh-seen-list' can be used by this hook to obtain
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3297 the list of messages which were removed from the unseen
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3298 sequence."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3299 :type 'hook
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3300 :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
3301 :group 'mh-sequences
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3302 :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
3303
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
3304
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
3305
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3306 ;;; Faces (:group 'mh-faces + group where faces described)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3307
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3308 (if (boundp 'facemenu-unlisted-faces)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3309 (add-to-list 'facemenu-unlisted-faces "^mh-"))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3310
69749
8dfee8162776 (mh-strip-package-version): Make macro, also to avoid compiler error.
Bill Wohler <wohler@newt.com>
parents: 69745
diff changeset
3311 ;; 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
3312 ;; 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
3313 ;; 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
3314 ;; :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
3315 ;; 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
3316 ;; 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
3317 (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
3318 '((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
3319 ((((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
3320 (:foreground "blue3"))
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 dark))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3322 (:foreground "LightGoldenRod"))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3323 (t
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3324 (:bold t))))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3325 (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
3326 ((((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
3327 (:foreground "snow4"))
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 dark))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3329 (: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
3330 (((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
3331 (:foreground "purple"))
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 dark))
68948
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3333 (:foreground "cyan"))))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3334 (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
3335 ((((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
3336 (:foreground "DarkGoldenrod"))
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 dark))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3338 (:foreground "LightGoldenrod"))
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))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3340 (: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
3341 (((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
3342 (: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
3343 (((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
3344 (: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
3345 (t
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3346 (: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 (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
3348 ((((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
3349 (:foreground "blue4"))
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 dark))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3351 (:foreground "yellow"))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3352 (t
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3353 (:bold t))))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3354 (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
3355 ((((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
3356 (: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
3357 (((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
3358 (:background "#dddf7e"))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3359 (t
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3360 (:underline t))))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3361 (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
3362 ((((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
3363 (:foreground "RosyBrown"))
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 dark))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3365 (:foreground "LightSalmon"))
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))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3367 (:foreground "green"))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3368 (((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
3369 (: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
3370 (((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
3371 (: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
3372 (t
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3373 (: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 (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
3375 ((((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
3376 (:background "gray90"))
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 dark))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3378 (:background "gray10"))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3379 (t
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3380 (:bold t))))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3381 (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
3382 ((((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
3383 (: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
3384 (((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
3385 (: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
3386 (t
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3387 (: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 (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
3389 ((((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
3390 (:foreground "DarkGoldenrod"))
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 dark))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3392 (:foreground "LightGoldenrod"))
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))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3394 (: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
3395 (((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
3396 (: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
3397 (((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
3398 (: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
3399 (t
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3400 (: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 (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
3402 ((((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
3403 (:foreground "ForestGreen"))
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 dark))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3405 (:foreground "PaleGreen"))
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))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3407 (:foreground "green"))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3408 (((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
3409 (: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
3410 (((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
3411 (: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
3412 (t
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3413 (: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
3414 (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
3415 ((((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
3416 (:foreground "red3"))
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 dark))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3418 (:foreground "cyan"))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3419 (t
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3420 (:bold t))))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3421 (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
3422 ((((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
3423 (:foreground "RosyBrown"))
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 dark))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3425 (:foreground "LightSalmon"))
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))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3427 (:foreground "green"))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3428 (((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
3429 (: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
3430 (((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
3431 (: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
3432 (t
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3433 (: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 (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
3435 (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
3436 (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
3437 (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
3438 (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
3439 ((((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
3440 (:foreground "SaddleBrown"))
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 dark))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3442 (:foreground "burlywood"))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3443 (((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
3444 (: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
3445 (((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
3446 (: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
3447 (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
3448 (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
3449 ((((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
3450 (:foreground "blue4"))
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 dark))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3452 (: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
3453 (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
3454 ((((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
3455 (: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
3456 (((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
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 (t
69749
8dfee8162776 (mh-strip-package-version): Make macro, also to avoid compiler error.
Bill Wohler <wohler@newt.com>
parents: 69745
diff changeset
3459 (:underline t)))))
8dfee8162776 (mh-strip-package-version): Make macro, also to avoid compiler error.
Bill Wohler <wohler@newt.com>
parents: 69745
diff changeset
3460 "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
3461 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
3462 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
3463
8dfee8162776 (mh-strip-package-version): Make macro, also to avoid compiler error.
Bill Wohler <wohler@newt.com>
parents: 69745
diff changeset
3464 (require 'cus-face)
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 (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
3467 "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
3468 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
3469 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
3470
86202
794e428cd497 * eshell/esh-util.el (eshell-under-xemacs-p): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 84466
diff changeset
3471 (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
3472 (>= 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
3473 "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
3474
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3475 (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
3476 "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
3477 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
3478
68948
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3479 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
3480 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
3481 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
3482 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
3483 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
3484 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
3485
8dfee8162776 (mh-strip-package-version): Make macro, also to avoid compiler error.
Bill Wohler <wohler@newt.com>
parents: 69745
diff changeset
3486 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
3487 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
3488 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
3489 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
3490 specified colors."
8dfee8162776 (mh-strip-package-version): Make macro, also to avoid compiler error.
Bill Wohler <wohler@newt.com>
parents: 69745
diff changeset
3491 (let ((spec
8dfee8162776 (mh-strip-package-version): Make macro, also to avoid compiler error.
Bill Wohler <wohler@newt.com>
parents: 69745
diff changeset
3492 (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
3493 inherit
8dfee8162776 (mh-strip-package-version): Make macro, also to avoid compiler error.
Bill Wohler <wohler@newt.com>
parents: 69745
diff changeset
3494 (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
3495 (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
3496
8dfee8162776 (mh-strip-package-version): Make macro, also to avoid compiler error.
Bill Wohler <wohler@newt.com>
parents: 69745
diff changeset
3497 (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
3498 spec
8dfee8162776 (mh-strip-package-version): Make macro, also to avoid compiler error.
Bill Wohler <wohler@newt.com>
parents: 69745
diff changeset
3499 (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
3500 new-spec)
8dfee8162776 (mh-strip-package-version): Make macro, also to avoid compiler error.
Bill Wohler <wohler@newt.com>
parents: 69745
diff changeset
3501 ;; 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
3502 ;; 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
3503 (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
3504 (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
3505 nil
8dfee8162776 (mh-strip-package-version): Make macro, also to avoid compiler error.
Bill Wohler <wohler@newt.com>
parents: 69745
diff changeset
3506 (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
3507 (if requirement
8dfee8162776 (mh-strip-package-version): Make macro, also to avoid compiler error.
Bill Wohler <wohler@newt.com>
parents: 69745
diff changeset
3508 (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
3509 (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
3510 (cdr entry))
8dfee8162776 (mh-strip-package-version): Make macro, also to avoid compiler error.
Bill Wohler <wohler@newt.com>
parents: 69745
diff changeset
3511 new-spec)))
8dfee8162776 (mh-strip-package-version): Make macro, also to avoid compiler error.
Bill Wohler <wohler@newt.com>
parents: 69745
diff changeset
3512 (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
3513 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
3514
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3515 (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
3516 (mh-face-data 'mh-folder-subject '((t (:inherit mh-folder-subject))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3517 "Recipient face."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3518 :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
3519 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3520 :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
3521
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3522 (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
3523 (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
3524 '((((class color))
ab0fd996e480 (mh-inherit-face-flag): New variable. Non-nil means that the defface
Bill Wohler <wohler@newt.com>
parents: 68725
diff changeset
3525 (: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
3526 (t
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 :italic t))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3528 "Body text face."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3529 :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
3530 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3531 :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
3532
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3533 (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
3534 (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
3535 '((t (:inherit mh-folder-msg-number :bold t))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3536 "Current message number face."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3537 :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
3538 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3539 :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
3540
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3541 (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
3542 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-msg-number))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3543 "Date face."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3544 :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
3545 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3546 :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
3547
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3548 (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
3549 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-msg-number))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3550 "Deleted message face."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3551 :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
3552 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3553 :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
3554
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3555 (defface-mh mh-folder-followup (mh-face-data 'mh-folder-followup)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3556 "\"Re:\" face."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3557 :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
3558 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3559 :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
3560
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3561 (defface-mh mh-folder-msg-number (mh-face-data 'mh-folder-msg-number)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3562 "Message number face."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3563 :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
3564 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3565 :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
3566
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3567 (defface-mh mh-folder-refiled (mh-face-data 'mh-folder-refiled)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3568 "Refiled message face."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3569 :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
3570 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3571 :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
3572
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3573 (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
3574 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-date))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3575 "Fontification hint face in messages sent directly to us.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3576 The detection of messages sent to us is governed by the scan
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3577 format `mh-scan-format-nmh' and the regular expression
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3578 `mh-scan-sent-to-me-sender-regexp'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3579 :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
3580 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3581 :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
3582
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3583 (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
3584 (mh-face-data 'mh-folder-followup '((t (:inherit mh-folder-followup))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3585 "Sender face in messages sent directly to us.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3586 The detection of messages sent to us is governed by the scan
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3587 format `mh-scan-format-nmh' and the regular expression
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3588 `mh-scan-sent-to-me-sender-regexp'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3589 :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
3590 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3591 :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
3592
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3593 (defface-mh mh-folder-subject (mh-face-data 'mh-folder-subject)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3594 "Subject face."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3595 :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
3596 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3597 :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
3598
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3599 (defface-mh mh-folder-tick (mh-face-data 'mh-folder-tick)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3600 "Ticked message face."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3601 :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
3602 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3603 :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
3604
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3605 (defface-mh mh-folder-to (mh-face-data 'mh-folder-to)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3606 "\"To:\" face."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3607 :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
3608 :group 'mh-folder
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3609 :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
3610
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3611 (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
3612 "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
3613 :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
3614 :group 'mh-letter
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3615 :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
3616
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3617 (defface-mh mh-search-folder (mh-face-data 'mh-search-folder)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3618 "Folder heading face in MH-Folder buffers created by searches."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3619 :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
3620 :group 'mh-search
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3621 :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
3622
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3623 (defface-mh mh-show-cc (mh-face-data 'mh-show-cc)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3624 "Face used to highlight \"cc:\" header fields."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3625 :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
3626 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3627 :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
3628
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3629 (defface-mh mh-show-date (mh-face-data 'mh-show-date)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3630 "Face used to highlight \"Date:\" header fields."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3631 :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
3632 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3633 :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
3634
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3635 (defface-mh mh-show-from (mh-face-data 'mh-show-from)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3636 "Face used to highlight \"From:\" header fields."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3637 :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
3638 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3639 :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
3640
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3641 (defface-mh mh-show-header (mh-face-data 'mh-show-header)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3642 "Face used to deemphasize less interesting header fields."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3643 :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
3644 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3645 :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
3646
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3647 (defface-mh mh-show-pgg-bad (mh-face-data 'mh-show-pgg-bad)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3648 "Bad PGG signature face."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3649 :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
3650 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3651 :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
3652
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3653 (defface-mh mh-show-pgg-good (mh-face-data 'mh-show-pgg-good)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3654 "Good PGG signature face."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3655 :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
3656 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3657 :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
3658
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3659 (defface-mh mh-show-pgg-unknown (mh-face-data 'mh-show-pgg-unknown)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3660 "Unknown or untrusted PGG signature face."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3661 :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
3662 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3663 :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
3664
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3665 (defface-mh mh-show-signature (mh-face-data 'mh-show-signature)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3666 "Signature face."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3667 :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
3668 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3669 :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
3670
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3671 (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
3672 (mh-face-data 'mh-folder-subject '((t (:inherit mh-folder-subject))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3673 "Face used to highlight \"Subject:\" header fields."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3674 :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
3675 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3676 :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
3677
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3678 (defface-mh mh-show-to (mh-face-data 'mh-show-to)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3679 "Face used to highlight \"To:\" header fields."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3680 :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
3681 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3682 :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
3683
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3684 (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
3685 (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
3686 "X-Face image face.
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3687 The background and foreground are used in the image."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3688 :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
3689 :group 'mh-show
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3690 :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
3691
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3692 (defface-mh mh-speedbar-folder (mh-face-data 'mh-speedbar-folder)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3693 "Basic folder face."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3694 :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
3695 :group 'mh-speedbar
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3696 :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
3697
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3698 (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
3699 (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
3700 '((t (:inherit mh-speedbar-folder :bold t))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3701 "Folder face when folder contains unread messages."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3702 :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
3703 :group 'mh-speedbar
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3704 :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
3705
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3706 (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
3707 (mh-face-data 'mh-speedbar-selected-folder)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3708 "Selected folder face."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3709 :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
3710 :group 'mh-speedbar
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3711 :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
3712
70061
b3ab71ac7f4e * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
Bill Wohler <wohler@newt.com>
parents: 70028
diff changeset
3713 (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
3714 (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
3715 '((t (:inherit mh-speedbar-selected-folder :bold t))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3716 "Selected folder face when folder contains unread messages."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents: 68212
diff changeset
3717 :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
3718 :group 'mh-speedbar
70022
34e6282ccc27 (customize-package-emacs-version-alist)
Bill Wohler <wohler@newt.com>
parents: 69846
diff changeset
3719 :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
3720
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
3721 (provide 'mh-e)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
3722
67681
3a8785724cca * mh-acros.el:
Bill Wohler <wohler@newt.com>
parents: 67656
diff changeset
3723 ;; Local Variables:
3a8785724cca * mh-acros.el:
Bill Wohler <wohler@newt.com>
parents: 67656
diff changeset
3724 ;; indent-tabs-mode: nil
3a8785724cca * mh-acros.el:
Bill Wohler <wohler@newt.com>
parents: 67656
diff changeset
3725 ;; sentence-end-double-space: nil
3a8785724cca * mh-acros.el:
Bill Wohler <wohler@newt.com>
parents: 67656
diff changeset
3726 ;; End:
49459
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we
Bill Wohler <wohler@newt.com>
parents:
diff changeset
3727
67681
3a8785724cca * mh-acros.el:
Bill Wohler <wohler@newt.com>
parents: 67656
diff changeset
3728 ;; 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
3729 ;;; mh-e.el ends here