emacs: lisp/mh-e/mh-customize.el annotate

author	Bill Wohler <wohler@newt.com>
date	Sun, 26 Jan 2003 02:38:37 +0000
parents
children	b35587af8747

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-customize.el --- MH-E customization
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	2
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	3 ;; Copyright (C) 2002 Free Software Foundation, Inc.
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	4
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	5 ;; 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	6 ;; Maintainer: 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	7 ;; Keywords: mail
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	8 ;; See: mh-e.el
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	9
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	10 ;; 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	11
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	12 ;; GNU Emacs is free software; you can redistribute it and/or modify
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	13 ;; it under the terms of the GNU General Public License as published by
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	14 ;; the Free Software Foundation; either version 2, or (at your option)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	15 ;; any later version.
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	16
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	17 ;; 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	18 ;; 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	19 ;; 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	20 ;; 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	21
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	22 ;; You should have received a copy of the GNU General Public License
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	25 ;; Boston, MA 02111-1307, USA.
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	26
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	27 ;;; Commentary:
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	28
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	29 ;; All of the defgroups, defcustoms, and deffaces in MH-E are found here. This
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	30 ;; makes it possible to customize modules that aren't loaded yet. It also
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	31 ;; makes it easier to organize the customization groups.
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	32
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	33 ;; This file contains the following sections:
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	34 ;;
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	35 ;; 1. MH-E Customization Groups
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	36 ;;
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	37 ;; These are the customization group definitions. These are organized in a
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	38 ;; logical order. High-level, windows and toolbar, folder, message,
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	39 ;; composing and hooks.
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	40 ;;
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	41 ;; 2. MH-E Customization
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	42 ;;
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	43 ;; Here are the actual customization variables. There is a sub-section for
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	44 ;; each group in the MH-E Customization Groups section. Within each
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	45 ;; section, variables are sorted alphabetically. The manual section
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	46 ;; dictates which group a variable should be placed. New variables should
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	47 ;; be placed in the section where they would most likely be defined.
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	48 ;;
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	49 ;; All hooks should be placed in the 'mh-hook group; in addition, add the
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	50 ;; group in which the hook is defined in the manual (or, if it is new,
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	51 ;; where it would be defined). These two actions insures that the hooks
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	52 ;; appear last in each group.
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	53 ;;
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	54 ;; 3. Faces
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	55
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	56 ;;; Change Log:
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	57
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	58 ;; $Id: mh-customize.el,v 1.1 2003/01/08 23:21:16 wohler Exp $
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	59
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	60 ;;; Code:
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	61
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	62 ;;;###mh-autoload
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	63 (defun mh-customize ()
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	64 "Customize MH-E variables."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	65 (interactive)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	66 (customize-group 'mh))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	67
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	68 ;;; MH-E Customization Groups
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 (defgroup mh nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	71 "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	72 :link '(custom-manual "(mh-e)Top")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	73 :group 'mail)
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 (defgroup mh-toolbar nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	76 "Toolbar configuration."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	77 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	78 :group 'mh)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	79
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	80 (defgroup mh-speed nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	81 "Speedbar and folder configuration."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	82 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	83 :link '(custom-manual "(mh-e)Customizing Moving Mail")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	84 :group 'mh)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	85
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	86 (defgroup mh-folder nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	87 "Options for controlling scan listing."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	88 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	89 :link '(custom-manual "(mh-e)Customizing Moving Mail")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	90 :group 'mh)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	91
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	92 (defgroup mh-show nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	93 "Message display."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	94 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	95 :link '(custom-manual "(mh-e)Customizing Reading")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	96 :group 'mh)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	97
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	98 (defgroup mh-letter nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	99 "Composing messages."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	100 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	101 :link '(custom-manual "(mh-e)Customizing Sending")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	102 :group 'mh)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	103
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	104 (defgroup mh-alias nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	105 "Alias handling."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	106 :link '(custom-manual "(mh-e)Customizing mh-e")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	107 :prefix "mh-alias-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	108 :group 'mh)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	109
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	110 (defgroup mh-index nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	111 "Indexed searching."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	112 :link '(custom-manual "(mh-e)Customizing mh-e")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	113 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	114 :group 'mh)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	115
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	116 (defgroup mh-identity nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	117 "Multiple personalities."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	118 :link '(custom-manual "(mh-e)Customizing mh-e")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	119 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	120 :group 'mh)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	121
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	122 (defgroup mh-faces nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	123 "Faces used in MH-E."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	124 :link '(custom-manual "(mh-e)Customizing mh-e")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	125 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	126 :group 'faces
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	127 :group 'mh)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	128
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	129 (defgroup mh-hooks nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	130 "MH-E hooks."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	131 :link '(custom-manual "(mh-e)Customizing mh-e")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	132 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	133 :group 'mh)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	134
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	135 ;;; Faces
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	136
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	137 (defgroup mh-speed-faces nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	138 "Faces used in speedbar."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	139 :link '(custom-manual "(mh-e)Customizing mh-e")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	140 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	141 :group 'mh-faces
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	142 :group 'mh-speed)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	143
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	144 (defgroup mh-folder-faces nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	145 "Faces used in scan listing."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	146 :link '(custom-manual "(mh-e)Customizing mh-e")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	147 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	148 :group 'mh-faces
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	149 :group 'mh-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	150
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	151 (defgroup mh-show-faces nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	152 "Faces used in message display."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	153 :link '(custom-manual "(mh-e)Customizing mh-e")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	154 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	155 :group 'mh-faces
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	156 :group 'mh-show)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	157
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	158 (defgroup mh-index-faces nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	159 "Faces used in indexed searches."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	160 :link '(custom-manual "(mh-e)Customizing mh-e")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	161 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	162 :group 'mh-faces
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	163 :group 'mh-index)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	164
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	165
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	166
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	167 ;;; MH-E Customization (:group mh)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	168
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	169 ;;; Toolbar configuration (:group 'mh-toolbar)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	170
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	171 (defconst mh-tool-bar-item-inc "Incorporate new mail in Inbox")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	172 (defconst mh-tool-bar-item-save-mime "Save MIME parts")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	173 (defconst mh-tool-bar-item-prev-msg "Previous message")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	174 (defconst mh-tool-bar-item-page-msg "Page this message")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	175 (defconst mh-tool-bar-item-next-msg "Next message")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	176 (defconst mh-tool-bar-item-delete "Mark for deletion")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	177 (defconst mh-tool-bar-item-refile "Refile this message")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	178 (defconst mh-tool-bar-item-undo "Undo this mark")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	179 (defconst mh-tool-bar-item-perform "Perform moves and deletes")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	180 (defconst mh-tool-bar-item-toggle-show "Toggle showing message")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	181 (defconst mh-tool-bar-item-reply-from "Reply to \"from\"")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	182 (defconst mh-tool-bar-item-reply-to "Reply to \"to\"")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	183 (defconst mh-tool-bar-item-reply-all "Reply to \"all\"")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	184 (defconst mh-tool-bar-item-reply "Reply to this message")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	185 (defconst mh-tool-bar-item-alias "Grab From alias")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	186 (defconst mh-tool-bar-item-compose "Compose new message")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	187 (defconst mh-tool-bar-item-rescan "Rescan this folder")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	188 (defconst mh-tool-bar-item-repack "Repack this folder")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	189 (defconst mh-tool-bar-item-search "Search")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	190 (defconst mh-tool-bar-item-visit "Visit other folder")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	191 (defconst mh-tool-bar-item-prefs "MH-E preferences")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	192 (defconst mh-tool-bar-item-help "Help")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	193 (defconst mh-tool-bar-item-widen "Widen from this sequence")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	194
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	195 (defconst mh-tool-bar-item-send "Send this letter")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	196 (defconst mh-tool-bar-item-attach "Insert attachment")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	197 (defconst mh-tool-bar-item-spell "Check spelling")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	198 (defconst mh-tool-bar-item-save "Save current buffer to its file")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	199 (defconst mh-tool-bar-item-undo-op "Undo last operation")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	200 (defconst mh-tool-bar-item-kill
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	201 "Cut (kill) text in region between mark and current position")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	202 (defconst mh-tool-bar-item-copy
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	203 "Copy text in region between mark and current position")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	204 (defconst mh-tool-bar-item-paste
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	205 "Paste (yank) text cut or copied earlier")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	206 (defconst mh-tool-bar-item-kill-draft "Kill this draft")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	207 (defconst mh-tool-bar-item-comp-prefs "MH-E composition preferences")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	208
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	209 (defcustom mh-tool-bar-reply-3-buttons-flag nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	210 "*Non-nil means use three buttons for reply commands in tool-bar.
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	211 If you have room on your tool-bar because you are using a large font, you
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	212 may set this variable to expand the single reply button into three buttons
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	213 that won't lead to minibuffer prompt about who to reply to."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	214 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	215 :group 'mh-toolbar)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	216
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	217 (defcustom mh-tool-bar-search-function 'mh-search-folder
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	218 "*Function called by the tool-bar search button.
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	219 See `mh-search-folder' and `mh-index-search' for details."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	220 :type '(choice (const mh-search-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	221 (const mh-index-search)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	222 (function :tag "Other function"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	223 :group 'mh-toolbar)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	224
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	225 (eval-when-compile (defvar tool-bar-map))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	226 (defvar mh-show-tool-bar-map nil)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	227 (defun mh-tool-bar-show-set ()
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	228 "Construct toolbar for `mh-show-mode'."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	229 (when (fboundp 'tool-bar-add-item)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	230 (setq
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	231 mh-show-tool-bar-map
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	232 (let ((tool-bar-map (make-sparse-keymap)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	233 (if (member mh-tool-bar-item-inc mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	234 (tool-bar-add-item "mail" 'mh-inc-folder 'mh-showtoolbar-inc-folder
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	235 :help mh-tool-bar-item-inc))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	236 (if (member mh-tool-bar-item-save-mime mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	237 (tool-bar-add-item "attach" 'mh-mime-save-parts
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	238 'mh-showtoolbar-mime-save-parts
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	239 :help mh-tool-bar-item-save-mime))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	240 (if (member mh-tool-bar-item-prev-msg mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	241 (tool-bar-add-item "left_arrow" 'mh-show-previous-undeleted-msg
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	242 'mh-showtoolbar-prev
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	243 :help mh-tool-bar-item-prev-msg))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	244 (if (member mh-tool-bar-item-page-msg mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	245 (tool-bar-add-item "page-down" 'mh-show-page-msg 'mh-showtoolbar-page
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	246 :help mh-tool-bar-item-page-msg))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	247 (if (member mh-tool-bar-item-next-msg mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	248 (tool-bar-add-item "right_arrow" 'mh-show-next-undeleted-msg
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	249 'mh-showtoolbar-next
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	250 :help mh-tool-bar-item-next-msg))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	251 (if (member mh-tool-bar-item-delete mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	252 (tool-bar-add-item "close" 'mh-show-delete-msg
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	253 'mh-showtoolbar-delete
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	254 :help mh-tool-bar-item-delete))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	255 (if (member mh-tool-bar-item-refile mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	256 (tool-bar-add-item "refile" 'mh-show-refile-msg
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	257 'mh-showtoolbar-refile
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	258 :help mh-tool-bar-item-refile))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	259 (if (member mh-tool-bar-item-undo mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	260 (tool-bar-add-item "undo" 'mh-show-undo 'mh-showtoolbar-undo
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	261 :help mh-tool-bar-item-undo))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	262 (if (member mh-tool-bar-item-perform mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	263 (tool-bar-add-item "execute" 'mh-show-execute-commands
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	264 'mh-showtoolbar-exec
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	265 :help mh-tool-bar-item-perform))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	266 (if (member mh-tool-bar-item-toggle-show mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	267 (tool-bar-add-item "show" 'mh-show-toggle-showing
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	268 'mh-showtoolbar-toggle-show
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	269 :help mh-tool-bar-item-toggle-show))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	270 (if (member mh-tool-bar-item-reply-from mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	271 (tool-bar-add-item "reply-from"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	272 (lambda (&optional arg)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	273 (interactive "P")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	274 (set-buffer mh-show-folder-buffer)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	275 (mh-reply (mh-get-msg-num nil) "from" arg))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	276 'mh-showtoolbar-reply-from
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	277 :help mh-tool-bar-item-reply-from))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	278 (if (member mh-tool-bar-item-reply-to mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	279 (tool-bar-add-item "reply-to"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	280 (lambda (&optional arg)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	281 (interactive "P")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	282 (set-buffer mh-show-folder-buffer)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	283 (mh-reply (mh-get-msg-num nil) "to" arg))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	284 'mh-showtoolbar-reply-to
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	285 :help mh-tool-bar-item-reply-to))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	286 (if (member mh-tool-bar-item-reply-all mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	287 (tool-bar-add-item "reply-all"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	288 (lambda (&optional arg)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	289 (interactive "P")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	290 (set-buffer mh-show-folder-buffer)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	291 (mh-reply (mh-get-msg-num nil) "all" arg))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	292 'mh-showtoolbar-reply-all
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	293 :help mh-tool-bar-item-reply-all))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	294 (if (member mh-tool-bar-item-reply mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	295 (tool-bar-add-item "mail/reply2" 'mh-show-reply
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	296 'mh-showtoolbar-reply
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	297 :help mh-tool-bar-item-reply))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	298 (if (member mh-tool-bar-item-alias mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	299 (tool-bar-add-item "alias" 'mh-alias-grab-from-field
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	300 'mh-showtoolbar-alias
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	301 :help mh-tool-bar-item-alias
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	302 :enable '(mh-alias-from-has-no-alias-p)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	303 (if (member mh-tool-bar-item-compose mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	304 (tool-bar-add-item "mail_compose" 'mh-send 'mh-showtoolbar-compose
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	305 :help mh-tool-bar-item-compose))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	306 (if (member mh-tool-bar-item-rescan mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	307 (tool-bar-add-item "rescan" 'mh-show-rescan-folder
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	308 'mh-showtoolbar-rescan
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	309 :help mh-tool-bar-item-rescan))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	310 (if (member mh-tool-bar-item-repack mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	311 (tool-bar-add-item "repack" 'mh-show-pack-folder
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	312 'mh-showtoolbar-pack
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	313 :help mh-tool-bar-item-repack))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	314 (if (member mh-tool-bar-item-search mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	315 (tool-bar-add-item "search"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	316 (lambda (&optional arg)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	317 (interactive "P")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	318 (call-interactively
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	319 mh-tool-bar-search-function))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	320 'mh-showtoolbar-search
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	321 :help mh-tool-bar-item-search))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	322 (if (member mh-tool-bar-item-visit mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	323 (tool-bar-add-item "fld_open" 'mh-visit-folder
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	324 'mh-showtoolbar-visit
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	325 :help mh-tool-bar-item-visit))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	326 (if (member mh-tool-bar-item-prefs mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	327 (tool-bar-add-item "preferences" (lambda ()
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	328 (interactive)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	329 (customize-group "mh"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	330 'mh-showtoolbar-customize
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	331 :help mh-tool-bar-item-prefs))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	332 (if (member mh-tool-bar-item-help mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	333 (tool-bar-add-item "help" (lambda ()
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	334 (interactive)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	335 (Info-goto-node "(mh-e)Top"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	336 'mh-showtoolbar-help
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	337 :help mh-tool-bar-item-help))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	338 tool-bar-map))))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	339
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	340 (defvar mh-letter-tool-bar-map nil)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	341 ;;;###mh-autoload
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	342 (defun mh-tool-bar-letter-set ()
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	343 "Construct toolbar for `mh-letter-mode'."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	344 (when (fboundp 'tool-bar-add-item)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	345 (setq
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	346 mh-letter-tool-bar-map
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	347 (let ((tool-bar-map (make-sparse-keymap)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	348 (if (member mh-tool-bar-item-send mh-tool-bar-letter-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	349 (tool-bar-add-item "mail_send" 'mh-send-letter
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	350 'mh-lettertoolbar-send
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	351 :help mh-tool-bar-item-send))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	352 (if (member mh-tool-bar-item-attach mh-tool-bar-letter-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	353 (tool-bar-add-item "attach" 'mh-compose-insertion
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	354 'mh-lettertoolbar-compose
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	355 :help mh-tool-bar-item-attach))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	356 (if (member mh-tool-bar-item-spell mh-tool-bar-letter-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	357 (tool-bar-add-item "spell" 'ispell-message 'mh-lettertoolbar-ispell
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	358 :help mh-tool-bar-item-spell))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	359 (if (member mh-tool-bar-item-save mh-tool-bar-letter-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	360 (tool-bar-add-item-from-menu 'save-buffer "save"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	361 (if (member mh-tool-bar-item-undo-op mh-tool-bar-letter-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	362 (tool-bar-add-item-from-menu 'undo "undo"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	363 (if (member mh-tool-bar-item-kill mh-tool-bar-letter-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	364 (tool-bar-add-item-from-menu 'kill-region "cut"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	365 (if (member mh-tool-bar-item-copy mh-tool-bar-letter-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	366 (tool-bar-add-item-from-menu 'menu-bar-kill-ring-save "copy"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	367 (if (member mh-tool-bar-item-paste mh-tool-bar-letter-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	368 (tool-bar-add-item-from-menu 'yank "paste"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	369 (if (member mh-tool-bar-item-kill-draft mh-tool-bar-letter-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	370 (tool-bar-add-item "close" 'mh-fully-kill-draft
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	371 'mh-lettertoolbar-kill
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	372 :help mh-tool-bar-item-kill-draft))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	373 (if (member mh-tool-bar-item-comp-prefs mh-tool-bar-letter-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	374 (tool-bar-add-item "preferences" (lambda ()
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	375 (interactive)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	376 (customize-group "mh-compose"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	377 'mh-lettertoolbar-customize
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	378 :help mh-tool-bar-item-comp-prefs))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	379 (if (member mh-tool-bar-item-help mh-tool-bar-letter-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	380 (tool-bar-add-item "help" (lambda ()
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	381 (interactive)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	382 (Info-goto-node "(mh-e)Draft Editing"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	383 'mh-lettertoolbar-help
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	384 :help mh-tool-bar-item-help))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	385 tool-bar-map))))
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 (defvar mh-folder-tool-bar-map nil)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	388 (defvar mh-folder-seq-tool-bar-map nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	389 "Tool-bar to use when narrowed to a sequence in MH-Folder buffers.")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	390 ;;;###mh-autoload
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	391 (defun mh-tool-bar-folder-set ()
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	392 "Construct toolbar for `mh-folder-mode'."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	393 (when (fboundp 'tool-bar-add-item)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	394 (setq
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	395 mh-folder-tool-bar-map
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	396 (let ((tool-bar-map (make-sparse-keymap)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	397 (if (member mh-tool-bar-item-inc mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	398 (tool-bar-add-item "mail" 'mh-inc-folder
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	399 'mh-foldertoolbar-inc-folder
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	400 :help mh-tool-bar-item-inc))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	401 (if (member mh-tool-bar-item-save-mime mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	402 (tool-bar-add-item "attach" 'mh-mime-save-parts
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	403 'mh-foldertoolbar-mime-save-parts
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	404 :help mh-tool-bar-item-save-mime))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	405 (if (member mh-tool-bar-item-prev-msg mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	406 (tool-bar-add-item "left_arrow" 'mh-previous-undeleted-msg
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	407 'mh-foldertoolbar-prev
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	408 :help mh-tool-bar-item-prev-msg))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	409 (if (member mh-tool-bar-item-page-msg mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	410 (tool-bar-add-item "page-down" 'mh-page-msg 'mh-foldertoolbar-page
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	411 :help mh-tool-bar-item-page-msg))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	412 (if (member mh-tool-bar-item-next-msg mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	413 (tool-bar-add-item "right_arrow" 'mh-next-undeleted-msg
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	414 'mh-foldertoolbar-next
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	415 :help mh-tool-bar-item-next-msg))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	416 (if (member mh-tool-bar-item-delete mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	417 (tool-bar-add-item "close" 'mh-delete-msg 'mh-foldertoolbar-delete
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	418 :help mh-tool-bar-item-delete))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	419 (if (member mh-tool-bar-item-refile mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	420 (tool-bar-add-item "refile" 'mh-refile-msg 'mh-foldertoolbar-refile
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	421 :help mh-tool-bar-item-refile))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	422 (if (member mh-tool-bar-item-undo mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	423 (tool-bar-add-item "undo" 'mh-undo 'mh-foldertoolbar-undo
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	424 :help mh-tool-bar-item-undo))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	425 (if (member mh-tool-bar-item-perform mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	426 (tool-bar-add-item "execute" 'mh-execute-commands
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	427 'mh-foldertoolbar-exec
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	428 :help mh-tool-bar-item-perform))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	429 (if (member mh-tool-bar-item-toggle-show mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	430 (tool-bar-add-item "show" 'mh-toggle-showing
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	431 'mh-foldertoolbar-toggle-show
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	432 :help mh-tool-bar-item-toggle-show))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	433 (if (member mh-tool-bar-item-reply-from mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	434 (tool-bar-add-item "reply-from"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	435 (lambda (&optional arg)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	436 (interactive "P")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	437 (mh-reply (mh-get-msg-num nil) "from" arg))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	438 'mh-foldertoolbar-reply-from
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	439 :help mh-tool-bar-item-reply-from))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	440 (if (member mh-tool-bar-item-reply-to mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	441 (tool-bar-add-item "reply-to"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	442 (lambda (&optional arg)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	443 (interactive "P")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	444 (mh-reply (mh-get-msg-num nil) "to" arg))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	445 'mh-foldertoolbar-reply-to
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	446 :help mh-tool-bar-item-reply-to))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	447 (if (member mh-tool-bar-item-reply-all mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	448 (tool-bar-add-item "reply-all"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	449 (lambda (&optional arg)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	450 (interactive "P")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	451 (mh-reply (mh-get-msg-num nil) "all" arg))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	452 'mh-foldertoolbar-reply-all
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	453 :help mh-tool-bar-item-reply-all))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	454 (if (member mh-tool-bar-item-reply mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	455 (tool-bar-add-item "mail/reply2" 'mh-reply
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	456 'mh-foldertoolbar-reply
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	457 :help mh-tool-bar-item-reply))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	458 (if (member mh-tool-bar-item-alias mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	459 (tool-bar-add-item "alias" 'mh-alias-grab-from-field
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	460 'mh-foldertoolbar-alias
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	461 :help mh-tool-bar-item-alias
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	462 :enable '(mh-alias-from-has-no-alias-p)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	463 (if (member mh-tool-bar-item-compose mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	464 (tool-bar-add-item "mail_compose" 'mh-send 'mh-foldertoolbar-compose
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	465 :help mh-tool-bar-item-compose))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	466 (if (member mh-tool-bar-item-rescan mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	467 (tool-bar-add-item "rescan" 'mh-rescan-folder
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	468 'mh-foldertoolbar-rescan
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	469 :help mh-tool-bar-item-rescan))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	470 (if (member mh-tool-bar-item-repack mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	471 (tool-bar-add-item "repack" 'mh-pack-folder 'mh-foldertoolbar-pack
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	472 :help mh-tool-bar-item-repack))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	473 (if (member mh-tool-bar-item-search mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	474 (tool-bar-add-item "search"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	475 (lambda (&optional arg)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	476 (interactive "P")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	477 (call-interactively
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	478 mh-tool-bar-search-function))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	479 'mh-foldertoolbar-search
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	480 :help mh-tool-bar-item-search))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	481 (if (member mh-tool-bar-item-visit mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	482 (tool-bar-add-item "fld_open" 'mh-visit-folder
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	483 'mh-foldertoolbar-visit
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	484 :help mh-tool-bar-item-visit))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	485 (if (member mh-tool-bar-item-prefs mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	486 (tool-bar-add-item "preferences" (lambda ()
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	487 (interactive)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	488 (customize-group "mh"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	489 'mh-foldertoolbar-customize
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	490 :help mh-tool-bar-item-prefs))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	491 (if (member mh-tool-bar-item-help mh-tool-bar-folder-buttons)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	492 (tool-bar-add-item "help" (lambda ()
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	493 (interactive)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	494 (Info-goto-node "(mh-e)Top"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	495 'mh-foldertoolbar-help
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	496 :help mh-tool-bar-item-help))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	497 tool-bar-map))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	498
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	499 (setq mh-folder-seq-tool-bar-map
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	500 (let ((tool-bar-map (copy-keymap mh-folder-tool-bar-map)))

49459

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1 ;;; mh-customize.el --- MH-E customization

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

2

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

4

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

5 ;; 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

6 ;; Maintainer: 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

7 ;; Keywords: mail

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

8 ;; See: mh-e.el

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

9

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

10 ;; 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

11

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

12 ;; GNU Emacs is free software; you can redistribute it and/or modify

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

13 ;; it under the terms of the GNU General Public License as published by

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

14 ;; the Free Software Foundation; either version 2, or (at your option)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

15 ;; any later version.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

16

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

17 ;; 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

18 ;; 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

19 ;; 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

20 ;; 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

21

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

22 ;; You should have received a copy of the GNU General Public License

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

23 ;; along with GNU Emacs; see the file COPYING. If not, write to the

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

25 ;; Boston, MA 02111-1307, USA.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

26

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

27 ;;; Commentary:

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

28

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

29 ;; All of the defgroups, defcustoms, and deffaces in MH-E are found here. This

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

30 ;; makes it possible to customize modules that aren't loaded yet. It also

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

31 ;; makes it easier to organize the customization groups.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

32

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

33 ;; This file contains the following sections:

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

34 ;;

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

35 ;; 1. MH-E Customization Groups

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

36 ;;

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

37 ;; These are the customization group definitions. These are organized in a

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

38 ;; logical order. High-level, windows and toolbar, folder, message,

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

39 ;; composing and hooks.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

40 ;;

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

41 ;; 2. MH-E Customization

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

42 ;;

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

43 ;; Here are the actual customization variables. There is a sub-section for

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

44 ;; each group in the MH-E Customization Groups section. Within each

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

45 ;; section, variables are sorted alphabetically. The manual section

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

46 ;; dictates which group a variable should be placed. New variables should

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

47 ;; be placed in the section where they would most likely be defined.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

48 ;;

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

49 ;; All hooks should be placed in the 'mh-hook group; in addition, add the

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

50 ;; group in which the hook is defined in the manual (or, if it is new,

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

51 ;; where it would be defined). These two actions insures that the hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

52 ;; appear last in each group.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

53 ;;

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

54 ;; 3. Faces

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

55

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

56 ;;; Change Log:

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

57

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

58 ;; $Id: mh-customize.el,v 1.1 2003/01/08 23:21:16 wohler Exp $

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

59

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

60 ;;; Code:

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

61

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

62 ;;;###mh-autoload

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

63 (defun mh-customize ()

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

64 "Customize MH-E variables."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

65 (interactive)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

66 (customize-group 'mh))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

67

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

68 ;;; MH-E Customization Groups

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 (defgroup mh nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

71 "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

72 :link '(custom-manual "(mh-e)Top")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

73 :group 'mail)

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 (defgroup mh-toolbar nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

76 "Toolbar configuration."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

77 :prefix "mh-"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

78 :group 'mh)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

79

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

80 (defgroup mh-speed nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

81 "Speedbar and folder configuration."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

82 :prefix "mh-"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

83 :link '(custom-manual "(mh-e)Customizing Moving Mail")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

84 :group 'mh)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

85

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

86 (defgroup mh-folder nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

87 "Options for controlling scan listing."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

88 :prefix "mh-"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

89 :link '(custom-manual "(mh-e)Customizing Moving Mail")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

90 :group 'mh)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

91

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

92 (defgroup mh-show nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

93 "Message display."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

94 :prefix "mh-"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

95 :link '(custom-manual "(mh-e)Customizing Reading")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

96 :group 'mh)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

97

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

98 (defgroup mh-letter nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

99 "Composing messages."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

100 :prefix "mh-"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

101 :link '(custom-manual "(mh-e)Customizing Sending")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

102 :group 'mh)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

103

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

104 (defgroup mh-alias nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

105 "Alias handling."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

106 :link '(custom-manual "(mh-e)Customizing mh-e")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

107 :prefix "mh-alias-"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

108 :group 'mh)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

109

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

110 (defgroup mh-index nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

111 "Indexed searching."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

112 :link '(custom-manual "(mh-e)Customizing mh-e")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

113 :prefix "mh-"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

114 :group 'mh)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

115

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

116 (defgroup mh-identity nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

117 "Multiple personalities."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

118 :link '(custom-manual "(mh-e)Customizing mh-e")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

119 :prefix "mh-"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

120 :group 'mh)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

121

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

122 (defgroup mh-faces nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

123 "Faces used in MH-E."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

124 :link '(custom-manual "(mh-e)Customizing mh-e")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

125 :prefix "mh-"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

126 :group 'faces

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

127 :group 'mh)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

128

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

129 (defgroup mh-hooks nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

130 "MH-E hooks."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

131 :link '(custom-manual "(mh-e)Customizing mh-e")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

132 :prefix "mh-"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

133 :group 'mh)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

134

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

135 ;;; Faces

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

136

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

137 (defgroup mh-speed-faces nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

138 "Faces used in speedbar."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

139 :link '(custom-manual "(mh-e)Customizing mh-e")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

140 :prefix "mh-"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

141 :group 'mh-faces

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

142 :group 'mh-speed)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

143

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

144 (defgroup mh-folder-faces nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

145 "Faces used in scan listing."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

146 :link '(custom-manual "(mh-e)Customizing mh-e")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

147 :prefix "mh-"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

148 :group 'mh-faces

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

149 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

150

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

151 (defgroup mh-show-faces nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

152 "Faces used in message display."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

153 :link '(custom-manual "(mh-e)Customizing mh-e")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

154 :prefix "mh-"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

155 :group 'mh-faces

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

156 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

157

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

158 (defgroup mh-index-faces nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

159 "Faces used in indexed searches."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

160 :link '(custom-manual "(mh-e)Customizing mh-e")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

161 :prefix "mh-"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

162 :group 'mh-faces

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

163 :group 'mh-index)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

164

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

165

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

166

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

167 ;;; MH-E Customization (:group mh)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

168

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

169 ;;; Toolbar configuration (:group 'mh-toolbar)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

170

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

171 (defconst mh-tool-bar-item-inc "Incorporate new mail in Inbox")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

172 (defconst mh-tool-bar-item-save-mime "Save MIME parts")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

173 (defconst mh-tool-bar-item-prev-msg "Previous message")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

174 (defconst mh-tool-bar-item-page-msg "Page this message")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

175 (defconst mh-tool-bar-item-next-msg "Next message")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

176 (defconst mh-tool-bar-item-delete "Mark for deletion")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

177 (defconst mh-tool-bar-item-refile "Refile this message")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

178 (defconst mh-tool-bar-item-undo "Undo this mark")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

179 (defconst mh-tool-bar-item-perform "Perform moves and deletes")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

180 (defconst mh-tool-bar-item-toggle-show "Toggle showing message")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

181 (defconst mh-tool-bar-item-reply-from "Reply to \"from\"")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

182 (defconst mh-tool-bar-item-reply-to "Reply to \"to\"")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

183 (defconst mh-tool-bar-item-reply-all "Reply to \"all\"")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

184 (defconst mh-tool-bar-item-reply "Reply to this message")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

185 (defconst mh-tool-bar-item-alias "Grab From alias")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

186 (defconst mh-tool-bar-item-compose "Compose new message")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

187 (defconst mh-tool-bar-item-rescan "Rescan this folder")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

188 (defconst mh-tool-bar-item-repack "Repack this folder")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

189 (defconst mh-tool-bar-item-search "Search")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

190 (defconst mh-tool-bar-item-visit "Visit other folder")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

191 (defconst mh-tool-bar-item-prefs "MH-E preferences")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

192 (defconst mh-tool-bar-item-help "Help")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

193 (defconst mh-tool-bar-item-widen "Widen from this sequence")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

194

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

195 (defconst mh-tool-bar-item-send "Send this letter")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

196 (defconst mh-tool-bar-item-attach "Insert attachment")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

197 (defconst mh-tool-bar-item-spell "Check spelling")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

198 (defconst mh-tool-bar-item-save "Save current buffer to its file")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

199 (defconst mh-tool-bar-item-undo-op "Undo last operation")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

200 (defconst mh-tool-bar-item-kill

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

201 "Cut (kill) text in region between mark and current position")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

202 (defconst mh-tool-bar-item-copy

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

203 "Copy text in region between mark and current position")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

204 (defconst mh-tool-bar-item-paste

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

205 "Paste (yank) text cut or copied earlier")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

206 (defconst mh-tool-bar-item-kill-draft "Kill this draft")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

207 (defconst mh-tool-bar-item-comp-prefs "MH-E composition preferences")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

208

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

209 (defcustom mh-tool-bar-reply-3-buttons-flag nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

210 "*Non-nil means use three buttons for reply commands in tool-bar.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

211 If you have room on your tool-bar because you are using a large font, you

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

212 may set this variable to expand the single reply button into three buttons

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

213 that won't lead to minibuffer prompt about who to reply to."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

214 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

215 :group 'mh-toolbar)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

216

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

217 (defcustom mh-tool-bar-search-function 'mh-search-folder

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

218 "*Function called by the tool-bar search button.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

219 See `mh-search-folder' and `mh-index-search' for details."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

220 :type '(choice (const mh-search-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

221 (const mh-index-search)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

222 (function :tag "Other function"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

223 :group 'mh-toolbar)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

224

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

225 (eval-when-compile (defvar tool-bar-map))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

226 (defvar mh-show-tool-bar-map nil)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

227 (defun mh-tool-bar-show-set ()

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

228 "Construct toolbar for `mh-show-mode'."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

229 (when (fboundp 'tool-bar-add-item)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

230 (setq

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

231 mh-show-tool-bar-map

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

232 (let ((tool-bar-map (make-sparse-keymap)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

233 (if (member mh-tool-bar-item-inc mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

234 (tool-bar-add-item "mail" 'mh-inc-folder 'mh-showtoolbar-inc-folder

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

235 :help mh-tool-bar-item-inc))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

236 (if (member mh-tool-bar-item-save-mime mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

237 (tool-bar-add-item "attach" 'mh-mime-save-parts

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

238 'mh-showtoolbar-mime-save-parts

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

239 :help mh-tool-bar-item-save-mime))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

240 (if (member mh-tool-bar-item-prev-msg mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

241 (tool-bar-add-item "left_arrow" 'mh-show-previous-undeleted-msg

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

242 'mh-showtoolbar-prev

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

243 :help mh-tool-bar-item-prev-msg))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

244 (if (member mh-tool-bar-item-page-msg mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

245 (tool-bar-add-item "page-down" 'mh-show-page-msg 'mh-showtoolbar-page

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

246 :help mh-tool-bar-item-page-msg))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

247 (if (member mh-tool-bar-item-next-msg mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

248 (tool-bar-add-item "right_arrow" 'mh-show-next-undeleted-msg

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

249 'mh-showtoolbar-next

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

250 :help mh-tool-bar-item-next-msg))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

251 (if (member mh-tool-bar-item-delete mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

252 (tool-bar-add-item "close" 'mh-show-delete-msg

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

253 'mh-showtoolbar-delete

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

254 :help mh-tool-bar-item-delete))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

255 (if (member mh-tool-bar-item-refile mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

256 (tool-bar-add-item "refile" 'mh-show-refile-msg

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

257 'mh-showtoolbar-refile

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

258 :help mh-tool-bar-item-refile))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

259 (if (member mh-tool-bar-item-undo mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

260 (tool-bar-add-item "undo" 'mh-show-undo 'mh-showtoolbar-undo

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

261 :help mh-tool-bar-item-undo))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

262 (if (member mh-tool-bar-item-perform mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

263 (tool-bar-add-item "execute" 'mh-show-execute-commands

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

264 'mh-showtoolbar-exec

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

265 :help mh-tool-bar-item-perform))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

266 (if (member mh-tool-bar-item-toggle-show mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

267 (tool-bar-add-item "show" 'mh-show-toggle-showing

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

268 'mh-showtoolbar-toggle-show

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

269 :help mh-tool-bar-item-toggle-show))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

270 (if (member mh-tool-bar-item-reply-from mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

271 (tool-bar-add-item "reply-from"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

272 (lambda (&optional arg)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

273 (interactive "P")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

274 (set-buffer mh-show-folder-buffer)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

275 (mh-reply (mh-get-msg-num nil) "from" arg))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

276 'mh-showtoolbar-reply-from

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

277 :help mh-tool-bar-item-reply-from))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

278 (if (member mh-tool-bar-item-reply-to mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

279 (tool-bar-add-item "reply-to"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

280 (lambda (&optional arg)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

281 (interactive "P")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

282 (set-buffer mh-show-folder-buffer)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

283 (mh-reply (mh-get-msg-num nil) "to" arg))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

284 'mh-showtoolbar-reply-to

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

285 :help mh-tool-bar-item-reply-to))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

286 (if (member mh-tool-bar-item-reply-all mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

287 (tool-bar-add-item "reply-all"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

288 (lambda (&optional arg)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

289 (interactive "P")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

290 (set-buffer mh-show-folder-buffer)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

291 (mh-reply (mh-get-msg-num nil) "all" arg))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

292 'mh-showtoolbar-reply-all

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

293 :help mh-tool-bar-item-reply-all))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

294 (if (member mh-tool-bar-item-reply mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

295 (tool-bar-add-item "mail/reply2" 'mh-show-reply

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

296 'mh-showtoolbar-reply

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

297 :help mh-tool-bar-item-reply))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

298 (if (member mh-tool-bar-item-alias mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

299 (tool-bar-add-item "alias" 'mh-alias-grab-from-field

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

300 'mh-showtoolbar-alias

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

301 :help mh-tool-bar-item-alias

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

302 :enable '(mh-alias-from-has-no-alias-p)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

303 (if (member mh-tool-bar-item-compose mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

304 (tool-bar-add-item "mail_compose" 'mh-send 'mh-showtoolbar-compose

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

305 :help mh-tool-bar-item-compose))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

306 (if (member mh-tool-bar-item-rescan mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

307 (tool-bar-add-item "rescan" 'mh-show-rescan-folder

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

308 'mh-showtoolbar-rescan

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

309 :help mh-tool-bar-item-rescan))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

310 (if (member mh-tool-bar-item-repack mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

311 (tool-bar-add-item "repack" 'mh-show-pack-folder

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

312 'mh-showtoolbar-pack

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

313 :help mh-tool-bar-item-repack))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

314 (if (member mh-tool-bar-item-search mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

315 (tool-bar-add-item "search"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

316 (lambda (&optional arg)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

317 (interactive "P")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

318 (call-interactively

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

319 mh-tool-bar-search-function))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

320 'mh-showtoolbar-search

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

321 :help mh-tool-bar-item-search))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

322 (if (member mh-tool-bar-item-visit mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

323 (tool-bar-add-item "fld_open" 'mh-visit-folder

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

324 'mh-showtoolbar-visit

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

325 :help mh-tool-bar-item-visit))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

326 (if (member mh-tool-bar-item-prefs mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

327 (tool-bar-add-item "preferences" (lambda ()

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

328 (interactive)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

329 (customize-group "mh"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

330 'mh-showtoolbar-customize

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

331 :help mh-tool-bar-item-prefs))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

332 (if (member mh-tool-bar-item-help mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

333 (tool-bar-add-item "help" (lambda ()

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

334 (interactive)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

335 (Info-goto-node "(mh-e)Top"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

336 'mh-showtoolbar-help

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

337 :help mh-tool-bar-item-help))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

338 tool-bar-map))))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

339

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

340 (defvar mh-letter-tool-bar-map nil)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

341 ;;;###mh-autoload

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

342 (defun mh-tool-bar-letter-set ()

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

343 "Construct toolbar for `mh-letter-mode'."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

344 (when (fboundp 'tool-bar-add-item)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

345 (setq

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

346 mh-letter-tool-bar-map

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

347 (let ((tool-bar-map (make-sparse-keymap)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

348 (if (member mh-tool-bar-item-send mh-tool-bar-letter-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

349 (tool-bar-add-item "mail_send" 'mh-send-letter

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

350 'mh-lettertoolbar-send

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

351 :help mh-tool-bar-item-send))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

352 (if (member mh-tool-bar-item-attach mh-tool-bar-letter-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

353 (tool-bar-add-item "attach" 'mh-compose-insertion

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

354 'mh-lettertoolbar-compose

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

355 :help mh-tool-bar-item-attach))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

356 (if (member mh-tool-bar-item-spell mh-tool-bar-letter-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

357 (tool-bar-add-item "spell" 'ispell-message 'mh-lettertoolbar-ispell

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

358 :help mh-tool-bar-item-spell))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

359 (if (member mh-tool-bar-item-save mh-tool-bar-letter-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

360 (tool-bar-add-item-from-menu 'save-buffer "save"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

361 (if (member mh-tool-bar-item-undo-op mh-tool-bar-letter-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

362 (tool-bar-add-item-from-menu 'undo "undo"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

363 (if (member mh-tool-bar-item-kill mh-tool-bar-letter-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

364 (tool-bar-add-item-from-menu 'kill-region "cut"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

365 (if (member mh-tool-bar-item-copy mh-tool-bar-letter-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

366 (tool-bar-add-item-from-menu 'menu-bar-kill-ring-save "copy"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

367 (if (member mh-tool-bar-item-paste mh-tool-bar-letter-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

368 (tool-bar-add-item-from-menu 'yank "paste"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

369 (if (member mh-tool-bar-item-kill-draft mh-tool-bar-letter-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

370 (tool-bar-add-item "close" 'mh-fully-kill-draft

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

371 'mh-lettertoolbar-kill

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

372 :help mh-tool-bar-item-kill-draft))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

373 (if (member mh-tool-bar-item-comp-prefs mh-tool-bar-letter-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

374 (tool-bar-add-item "preferences" (lambda ()

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

375 (interactive)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

376 (customize-group "mh-compose"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

377 'mh-lettertoolbar-customize

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

378 :help mh-tool-bar-item-comp-prefs))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

379 (if (member mh-tool-bar-item-help mh-tool-bar-letter-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

380 (tool-bar-add-item "help" (lambda ()

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

381 (interactive)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

382 (Info-goto-node "(mh-e)Draft Editing"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

383 'mh-lettertoolbar-help

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

384 :help mh-tool-bar-item-help))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

385 tool-bar-map))))

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 (defvar mh-folder-tool-bar-map nil)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

388 (defvar mh-folder-seq-tool-bar-map nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

389 "Tool-bar to use when narrowed to a sequence in MH-Folder buffers.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

390 ;;;###mh-autoload

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

391 (defun mh-tool-bar-folder-set ()

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

392 "Construct toolbar for `mh-folder-mode'."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

393 (when (fboundp 'tool-bar-add-item)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

394 (setq

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

395 mh-folder-tool-bar-map

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

396 (let ((tool-bar-map (make-sparse-keymap)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

397 (if (member mh-tool-bar-item-inc mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

398 (tool-bar-add-item "mail" 'mh-inc-folder

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

399 'mh-foldertoolbar-inc-folder

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

400 :help mh-tool-bar-item-inc))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

401 (if (member mh-tool-bar-item-save-mime mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

402 (tool-bar-add-item "attach" 'mh-mime-save-parts

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

403 'mh-foldertoolbar-mime-save-parts

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

404 :help mh-tool-bar-item-save-mime))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

405 (if (member mh-tool-bar-item-prev-msg mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

406 (tool-bar-add-item "left_arrow" 'mh-previous-undeleted-msg

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

407 'mh-foldertoolbar-prev

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

408 :help mh-tool-bar-item-prev-msg))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

409 (if (member mh-tool-bar-item-page-msg mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

410 (tool-bar-add-item "page-down" 'mh-page-msg 'mh-foldertoolbar-page

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

411 :help mh-tool-bar-item-page-msg))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

412 (if (member mh-tool-bar-item-next-msg mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

413 (tool-bar-add-item "right_arrow" 'mh-next-undeleted-msg

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

414 'mh-foldertoolbar-next

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

415 :help mh-tool-bar-item-next-msg))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

416 (if (member mh-tool-bar-item-delete mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

417 (tool-bar-add-item "close" 'mh-delete-msg 'mh-foldertoolbar-delete

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

418 :help mh-tool-bar-item-delete))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

419 (if (member mh-tool-bar-item-refile mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

420 (tool-bar-add-item "refile" 'mh-refile-msg 'mh-foldertoolbar-refile

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

421 :help mh-tool-bar-item-refile))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

422 (if (member mh-tool-bar-item-undo mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

423 (tool-bar-add-item "undo" 'mh-undo 'mh-foldertoolbar-undo

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

424 :help mh-tool-bar-item-undo))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

425 (if (member mh-tool-bar-item-perform mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

426 (tool-bar-add-item "execute" 'mh-execute-commands

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

427 'mh-foldertoolbar-exec

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

428 :help mh-tool-bar-item-perform))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

429 (if (member mh-tool-bar-item-toggle-show mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

430 (tool-bar-add-item "show" 'mh-toggle-showing

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

431 'mh-foldertoolbar-toggle-show

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

432 :help mh-tool-bar-item-toggle-show))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

433 (if (member mh-tool-bar-item-reply-from mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

434 (tool-bar-add-item "reply-from"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

435 (lambda (&optional arg)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

436 (interactive "P")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

437 (mh-reply (mh-get-msg-num nil) "from" arg))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

438 'mh-foldertoolbar-reply-from

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

439 :help mh-tool-bar-item-reply-from))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

440 (if (member mh-tool-bar-item-reply-to mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

441 (tool-bar-add-item "reply-to"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

442 (lambda (&optional arg)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

443 (interactive "P")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

444 (mh-reply (mh-get-msg-num nil) "to" arg))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

445 'mh-foldertoolbar-reply-to

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

446 :help mh-tool-bar-item-reply-to))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

447 (if (member mh-tool-bar-item-reply-all mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

448 (tool-bar-add-item "reply-all"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

449 (lambda (&optional arg)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

450 (interactive "P")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

451 (mh-reply (mh-get-msg-num nil) "all" arg))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

452 'mh-foldertoolbar-reply-all

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

453 :help mh-tool-bar-item-reply-all))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

454 (if (member mh-tool-bar-item-reply mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

455 (tool-bar-add-item "mail/reply2" 'mh-reply

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

456 'mh-foldertoolbar-reply

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

457 :help mh-tool-bar-item-reply))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

458 (if (member mh-tool-bar-item-alias mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

459 (tool-bar-add-item "alias" 'mh-alias-grab-from-field

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

460 'mh-foldertoolbar-alias

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

461 :help mh-tool-bar-item-alias

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

462 :enable '(mh-alias-from-has-no-alias-p)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

463 (if (member mh-tool-bar-item-compose mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

464 (tool-bar-add-item "mail_compose" 'mh-send 'mh-foldertoolbar-compose

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

465 :help mh-tool-bar-item-compose))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

466 (if (member mh-tool-bar-item-rescan mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

467 (tool-bar-add-item "rescan" 'mh-rescan-folder

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

468 'mh-foldertoolbar-rescan

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

469 :help mh-tool-bar-item-rescan))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

470 (if (member mh-tool-bar-item-repack mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

471 (tool-bar-add-item "repack" 'mh-pack-folder 'mh-foldertoolbar-pack

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

472 :help mh-tool-bar-item-repack))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

473 (if (member mh-tool-bar-item-search mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

474 (tool-bar-add-item "search"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

475 (lambda (&optional arg)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

476 (interactive "P")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

477 (call-interactively

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

478 mh-tool-bar-search-function))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

479 'mh-foldertoolbar-search

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

480 :help mh-tool-bar-item-search))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

481 (if (member mh-tool-bar-item-visit mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

482 (tool-bar-add-item "fld_open" 'mh-visit-folder

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

483 'mh-foldertoolbar-visit

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

484 :help mh-tool-bar-item-visit))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

485 (if (member mh-tool-bar-item-prefs mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

486 (tool-bar-add-item "preferences" (lambda ()

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

487 (interactive)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

488 (customize-group "mh"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

489 'mh-foldertoolbar-customize

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

490 :help mh-tool-bar-item-prefs))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

491 (if (member mh-tool-bar-item-help mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

492 (tool-bar-add-item "help" (lambda ()

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

493 (interactive)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

494 (Info-goto-node "(mh-e)Top"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

495 'mh-foldertoolbar-help

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

496 :help mh-tool-bar-item-help))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

497 tool-bar-map))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

498

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

499 (setq mh-folder-seq-tool-bar-map

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

500 (let ((tool-bar-map (copy-keymap mh-folder-tool-bar-map)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

501 (if (member mh-tool-bar-item-widen mh-tool-bar-folder-buttons)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

502 (tool-bar-add-item "widen" 'mh-widen 'mh-foldertoolbar-widen

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

503 :help mh-tool-bar-item-widen))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

504 tool-bar-map))))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

505

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

506 (defun mh-tool-bar-folder-buttons-set (symbol value)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

507 "Update the `mh-tool-bar-folder-buttons' variable, and rebuild the tool-bar.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

508 Sets the default for SYMBOL (e.g. `mh-tool-bar-folder-buttons') to VALUE (as

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

509 set in customization). This is called after 'customize is used to alter

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

510 `mh-tool-bar-folder-buttons'."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

511 (set-default symbol value)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

512 (mh-tool-bar-show-set)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

513 (mh-tool-bar-folder-set))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

514

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

515 (custom-declare-variable

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

516 'mh-tool-bar-folder-buttons

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

517 '(append

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

518 (list mh-tool-bar-item-inc

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

519 mh-tool-bar-item-save-mime

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

520 mh-tool-bar-item-prev-msg

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

521 mh-tool-bar-item-page-msg

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

522 mh-tool-bar-item-next-msg

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

523 mh-tool-bar-item-delete

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

524 mh-tool-bar-item-refile

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

525 mh-tool-bar-item-undo

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

526 mh-tool-bar-item-perform

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

527 ;;; mh-tool-bar-item-toggle-show

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

528 )

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

529 (if mh-tool-bar-reply-3-buttons-flag

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

530 (list mh-tool-bar-item-reply-from

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

531 mh-tool-bar-item-reply-to

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

532 mh-tool-bar-item-reply-all)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

533 (list mh-tool-bar-item-reply))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

534 (list mh-tool-bar-item-alias

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

535 mh-tool-bar-item-compose

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

536 mh-tool-bar-item-rescan

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

537 ;;; mh-tool-bar-item-repack

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

538 mh-tool-bar-item-search

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

539 mh-tool-bar-item-visit

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

540 mh-tool-bar-item-prefs

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

541 mh-tool-bar-item-help

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

542 mh-tool-bar-item-widen))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

543 "Buttons to include in MH-E folder/show toolbar."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

544 :group 'mh-toolbar

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

545 :set 'mh-tool-bar-folder-buttons-set

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

546 :type `(set (const ,mh-tool-bar-item-inc)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

547 (const ,mh-tool-bar-item-save-mime)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

548 (const ,mh-tool-bar-item-prev-msg)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

549 (const ,mh-tool-bar-item-page-msg)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

550 (const ,mh-tool-bar-item-next-msg)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

551 (const ,mh-tool-bar-item-delete)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

552 (const ,mh-tool-bar-item-refile)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

553 (const ,mh-tool-bar-item-undo)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

554 (const ,mh-tool-bar-item-perform)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

555 (const ,mh-tool-bar-item-toggle-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

556 (const ,mh-tool-bar-item-reply-from)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

557 (const ,mh-tool-bar-item-reply-to)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

558 (const ,mh-tool-bar-item-reply-all)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

559 (const ,mh-tool-bar-item-reply)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

560 (const ,mh-tool-bar-item-alias)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

561 (const ,mh-tool-bar-item-compose)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

562 (const ,mh-tool-bar-item-rescan)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

563 (const ,mh-tool-bar-item-repack)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

564 (const ,mh-tool-bar-item-search)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

565 (const ,mh-tool-bar-item-visit)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

566 (const ,mh-tool-bar-item-prefs)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

567 (const ,mh-tool-bar-item-help)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

568 (const ,mh-tool-bar-item-widen)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

569

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

570 (defun mh-tool-bar-letter-buttons-set (symbol value)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

571 "Update the `mh-tool-bar-letter-buttons' variable, and rebuild the tool-bar.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

572 Sets the default for SYMBOL (e.g. `mh-tool-bar-letter-buttons') to VALUE (as

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

573 set in customization). This is called after 'customize is used to alter

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

574 `mh-tool-bar-letter-buttons'."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

575 (set-default symbol value)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

576 (mh-tool-bar-letter-set))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

577

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

578 (custom-declare-variable

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

579 'mh-tool-bar-letter-buttons

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

580 '(list mh-tool-bar-item-send

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

581 mh-tool-bar-item-attach

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

582 mh-tool-bar-item-spell

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

583 mh-tool-bar-item-save

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

584 mh-tool-bar-item-undo-op

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

585 mh-tool-bar-item-kill

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

586 mh-tool-bar-item-copy

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

587 mh-tool-bar-item-paste

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

588 mh-tool-bar-item-kill-draft

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

589 mh-tool-bar-item-comp-prefs

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

590 mh-tool-bar-item-help)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

591 "Buttons to include in MH-E letter toolbar."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

592 :group 'mh-toolbar

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

593 :set 'mh-tool-bar-letter-buttons-set

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

594 :type `(set (const ,mh-tool-bar-item-send)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

595 (const ,mh-tool-bar-item-attach)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

596 (const ,mh-tool-bar-item-spell)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

597 (const ,mh-tool-bar-item-save)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

598 (const ,mh-tool-bar-item-undo-op)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

599 (const ,mh-tool-bar-item-kill)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

600 (const ,mh-tool-bar-item-copy)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

601 (const ,mh-tool-bar-item-paste)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

602 (const ,mh-tool-bar-item-kill-draft)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

603 (const ,mh-tool-bar-item-comp-prefs)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

604 (const ,mh-tool-bar-item-help)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

605

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

606

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

607

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

608 ;;; Speedbar and folder configuration (:group 'mh-speed)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

609

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

610 (defcustom mh-large-folder 200

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

611 "The number of messages that indicates a large folder.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

612 If a folder is deemed to be large, that is the number of messages in it exceed

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

613 this value, then confirmation is needed when it is visited. Even when

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

614 `mh-show-threads-flag' is non-nil, the folder is not automatically threaded, if

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

615 it is large. If set to nil all folders are treated as if they are small."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

616 :type '(choice (const :tag "No limit") integer)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

617 :group 'mh-speed)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

618

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

619 (defcustom mh-speed-flists-interval 60

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

620 "Time between calls to flists in seconds.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

621 If 0, flists is not called repeatedly."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

622 :type 'integer

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

623 :group 'mh-speed)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

624

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

625 (defcustom mh-speed-run-flists-flag t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

626 "Non-nil means flists is used.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

627 If non-nil, flists is executed every `mh-speed-flists-interval' seconds to

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

628 update the display of the number of unseen and total messages in each folder.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

629 If resources are limited, this can be set to nil and the speedbar display can

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

630 be updated manually with the \\[mh-speed-flists] command."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

631 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

632 :group 'mh-speed)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

633

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

634 ;;; Options for controlling scan listing (:group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

635

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

636 (defcustom mh-adaptive-cmd-note-flag t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

637 "*Non-nil means that the message number width is determined dynamically.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

638 This is done once when a folder is first opened by running scan on the last

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

639 message of the folder. The message number for the last message is extracted

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

640 and its width calculated. This width is used when calling `mh-set-cmd-note'.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

641

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

642 If you prefer fixed-width message numbers, set this variable to nil and call

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

643 `mh-set-cmd-note' with the width specified by the scan format in

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

644 `mh-scan-format-file'. For example, the default width is 4, so you would use

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

645 \"(mh-set-cmd-note 4)\" if `mh-scan-format-file' were nil."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

646 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

647 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

648

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

649 (defcustom mh-auto-folder-collect-flag t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

650 "*Non-nil means to collect all folder names at startup in the background.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

651 Otherwise, the internal list of folder names is built as folders are

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

652 referenced."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

653 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

654 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

655

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

656 (defcustom mh-inc-prog "inc"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

657 "*Program to run to incorporate new mail into a folder.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

658 Normally \"inc\". This file is searched for relative to

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

659 the `mh-progs' directory unless it is an absolute pathname."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

660 :type 'string

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

661 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

662

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

663 (defcustom mh-lpr-command-format "lpr -J '%s'"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

664 "*Format for Unix command that prints a message.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

665 The string should be a Unix command line, with the string '%s' where

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

666 the job's name (folder and message number) should appear. The formatted

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

667 message text is piped to this command when you type \\<mh-folder-mode-map>`\\[mh-print-msg]'."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

668 :type 'string

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

669 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

670

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

671 (defcustom mh-mime-save-parts-default-directory t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

672 "Default directory to use for `mh-mime-save-parts'.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

673 If nil, prompt and set for next time the command is used during same session.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

674 If t, prompt always"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

675 :type '(choice (const :tag "Prompt the first time" nil)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

676 (const :tag "Prompt always" t)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

677 directory)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

678 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

679

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

680 (defcustom mh-recenter-summary-flag nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

681 "*Non-nil means to recenter the summary window.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

682 Recenter the summary window when the show window is toggled off if non-nil."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

683 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

684 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

685

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

686 (defcustom mh-print-background-flag nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

687 "*Non-nil means messages should be printed in the background.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

688 WARNING: do not delete the messages until printing is finished;

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

689 otherwise, your output may be truncated."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

690 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

691 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

692

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

693 (defcustom mh-recursive-folders-flag nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

694 "*Non-nil means that commands which operate on folders do so recursively."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

695 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

696 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

697

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

698 (defcustom mh-scan-format-file t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

699 "Specifies the format file to pass to the scan program.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

700 If t, the format string will be taken from the either `mh-scan-format-mh'

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

701 or `mh-scan-format-nmh' depending on whether MH or nmh is in use.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

702 If nil, the default scan output will be used.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

703

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

704 If you customize the scan format, you may need to modify a few variables

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

705 containing regexps that MH-E uses to identify specific portions of the output.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

706 Use `M-x apropos RET mh-scan.*regexp' to obtain a list of these variables. You

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

707 may also have to call `mh-set-cmd-note' with the width of your message

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

708 numbers. See also `mh-adaptive-cmd-note-flag'."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

709 :type '(choice (const :tag "Use MH-E scan format" t)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

710 (const :tag "Use default scan format" nil)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

711 (file :tag "Specify a scan format file"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

712 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

713

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

714 (defcustom mh-scan-prog "scan"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

715 "*Program to run to generate one-line-per-message listing of a folder.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

716 Normally \"scan\" or a file name linked to scan. This file is searched

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

717 for relative to the `mh-progs' directory unless it is an absolute pathname."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

718 :type 'string

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

719 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

720 (make-variable-buffer-local 'mh-scan-prog)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

721

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

722 (defcustom mh-show-threads-flag nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

723 "Non-nil means new folders start in threaded mode.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

724 Threading large number of messages can be time consuming. So if the flag is

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

725 non-nil then threading will be done only if the number of messages being

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

726 threaded is less than `mh-large-folder'."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

727 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

728 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

729

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

730 (defcustom mh-store-default-directory nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

731 "*Last directory used by \\[mh-store-msg]; default for next store.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

732 A directory name string, or nil to use current directory."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

733 :type '(choice (const :tag "Current" nil)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

734 directory)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

735 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

736

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

737 (defcustom mh-update-sequences-after-mh-show-flag t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

738 "*Non-nil means `mh-update-sequence' is called from `mh-show-mode'.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

739 If set, `mh-update-sequence' is run every time a message is shown, telling

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

740 MH or nmh that this is your current message. It's useful, for example, to

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

741 display MIME content using \"M-! mhshow RET\""

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

742 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

743 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

744

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

745 ;;; Message display (:group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

746

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

747 (defcustom mh-bury-show-buffer-flag t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

748 "*Non-nil means that the displayed show buffer for a folder is buried."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

749 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

750 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

751

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

752 (defcustom mh-clean-message-header-flag t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

753 "*Non-nil means clean headers of messages that are displayed or inserted.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

754 The variables `mh-invisible-headers' and `mh-visible-headers' control

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

755 what is removed."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

756 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

757 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

758

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

759 (defcustom mh-decode-mime-flag (not (not (locate-library "mm-decode")))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

760 "*Non-nil means that Gnus is used to show MIME attachments with Gnus."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

761 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

762 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

763

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

764 (defcustom mh-decode-quoted-printable-flag

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

765 (not (null (and (fboundp 'executable-find)(executable-find "mimedecode"))))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

766 "Non-nil means decode quoted-printable MIME part with `mimedecode'.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

767

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

768 Quoted-printable message parts are translated to 8-bit characters by the

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

769 `mimedecode' command. However, unless there is only one quoted-printable body

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

770 part, Gnus will have already decoded the quoted-printable parts.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

771

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

772 This variable is initialized t if `mimedecode' is available.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

773

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

774 The source code for `mimedecode' can be obtained from

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

775 http://www.freesoft.org/CIE/FAQ/mimedeco.c."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

776 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

777 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

778

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

779 (defcustom mh-display-buttons-for-inline-parts-flag nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

780 "*Non-nil means display buttons for all inline MIME parts.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

781 If non-nil, buttons are displayed for all MIME parts. Inline parts start off

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

782 in displayed state but they can be hidden by clicking the button. If nil no

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

783 buttons are shown for inline parts."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

784 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

785 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

786

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

787 (defcustom mh-do-not-confirm-flag nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

788 "*Non-nil means do not prompt for confirmation.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

789 Commands such as `mh-pack-folder' prompt to confirm whether to process

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

790 outstanding moves and deletes or not before continuing. A non-nil setting will

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

791 perform the action--which is usually desired but cannot be retracted--without

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

792 question."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

793 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

794 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

795

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

796 (defcustom mh-graphical-smileys-flag t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

797 "*Non-nil means graphical smileys are displayed.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

798 Non-nil means that small graphics will be used in the show buffer instead of

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

799 patterns like :-), ;-) etc. The setting only has effect if

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

800 `mh-decode-mime-flag' is non-nil."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

801 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

802 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

803

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

804 (defcustom mh-graphical-emphasis-flag t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

805 "*Non-nil means graphical emphasis is displayed.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

806 Non-nil means that _underline_ will be underlined, *bold* will appear in bold,

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

807 /italic/ will appear in italic etc. See `gnus-emphasis-alist' for the whole

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

808 list. The setting only has effect if `mh-decode-mime-flag' is non-nil."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

809 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

810 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

811

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

812 (defcustom mh-highlight-citation-p 'gnus

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

813 "How to highlight citations in show buffers.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

814 The gnus method uses a different color for each indentation."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

815 :type '(choice (const :tag "Use gnus" gnus)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

816 (const :tag "Use font-lock" font-lock)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

817 (const :tag "Don't fontify" nil))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

818 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

819

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

820 (defcustom mh-max-inline-image-height nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

821 "*Maximum inline image height if Content-Disposition is not present.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

822 If nil, image will be displayed if its height is smaller than the height of

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

823 the window."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

824 :type '(choice (const nil) integer)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

825 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

826

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

827 (defcustom mh-max-inline-image-width nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

828 "*Maximum inline image width if Content-Disposition is not present.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

829 If nil, image will be displayed if its width is smaller than the width of the

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

830 window."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

831 :type '(choice (const nil) integer)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

832 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

833

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

834 (defcustom mh-show-maximum-size 0

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

835 "*Maximum size of message (in bytes) to display automatically.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

836 Provides an opportunity to skip over large messages which may be slow to load.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

837 Use a value of 0 to display all messages automatically regardless of size."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

838 :type 'integer

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

839 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

840

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

841 ;; Use goto-addr if it was already loaded (which probably sets this

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

842 ;; variable to t), or if this variable is otherwise set to t.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

843 (defcustom mh-show-use-goto-addr-flag (and (boundp 'goto-address-highlight-p)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

844 goto-address-highlight-p)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

845 "*Non-nil means highlight URLs and email addresses.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

846 The `goto-addr' module is used."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

847 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

848 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

849

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

850 (defcustom mh-show-use-xface-flag

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

851 (and window-system

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

852 (not (null (cond

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

853 (mh-xemacs-flag

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

854 (locate-library "x-face"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

855 ((>= emacs-major-version 21)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

856 (locate-library "x-face-e21"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

857 (t ;Emacs20

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

858 nil))))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

859 (not (null (and (fboundp 'executable-find)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

860 (executable-find

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

861 "uncompface")))))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

862 "*Non-nil means display faces in `mh-show-mode' with external x-face package.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

863 It is available from ftp://ftp.jpl.org/pub/elisp/. Download it and put its

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

864 files in the Emacs `load-path' and MH-E will invoke it automatically for you if

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

865 this variable is non-nil.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

866

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

867 The `uncompface' binary is also required to be in the execute PATH. It can

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

868 be obtained from: ftp://ftp.cs.indiana.edu/pub/faces/compface/compface.tar.Z"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

869 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

870 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

871

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

872 (defcustom mh-summary-height (or (and (fboundp 'frame-height)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

873 (> (frame-height) 24)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

874 (min 10 (/ (frame-height) 6)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

875 4)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

876 "*Number of lines in MH-Folder window (including the mode line)."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

877 :type 'integer

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

878 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

879

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

880 (defcustom mh-visible-headers nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

881 "*Contains a regexp specifying the headers to keep when cleaning.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

882 Only used if `mh-clean-message-header-flag' is non-nil. Setting it overrides

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

883 the variable `mh-invisible-headers'."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

884 :type '(choice (const nil) regexp)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

885 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

886

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

887 (defcustom mhl-formfile nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

888 "*Name of format file to be used by mhl to show and print messages.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

889 A value of t means use the default format file.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

890 nil means don't use mhl to format messages when showing; mhl is still used,

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

891 with the default format file, to format messages when printing them.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

892 The format used should specify a non-zero value for overflowoffset so

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

893 the message continues to conform to RFC 822 and MH-E can parse the headers."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

894 :type '(choice (const nil) (const t) string)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

895 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

896 (put 'mhl-formfile 'info-file "mh-e")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

897

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

898 (defvar mh-invisible-headers nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

899 "*Regexp matching lines in a message header that are not to be shown.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

900 If `mh-visible-headers' is non-nil, it is used instead to specify what

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

901 to keep.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

902

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

903 (defun mh-invisible-headers ()

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

904 "Make or remake the variable `mh-invisible-headers'.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

905 Done using `mh-invisible-header-fields' as input."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

906 (setq mh-invisible-headers

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

907 (concat

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

908 "^"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

909 (let ((max-specpdl-size 1000)) ;workaround for insufficient default

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

910 (regexp-opt

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

911 (append

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

912 (if (not mh-show-use-xface-flag)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

913 '("X-Face: "))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

914 mh-invisible-header-fields))))))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

915

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

916 (defun mh-invisible-header-fields-set (symbol value)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

917 "Update `mh-invisible-header-fields'.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

918 The function is called with SYMBOL bound to `mh-invisible-header-fields' and

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

919 VALUE is the the list of headers that are invisible. As a side effect, the

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

920 variable `mh-invisible-fields' is set."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

921 (set-default symbol value)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

922 (mh-invisible-headers))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

923

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

924 ;; Keep fields alphabetized. Mention source, if known.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

925 (defcustom mh-invisible-header-fields

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

926 '("Autoforwarded: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

927 "Bestservhost: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

928 "Content-" ; RFC 2045

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

929 "Delivered-To: " ; Egroups/yahoogroups mailing list manager

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

930 "Delivery-Date: " ; MH

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

931 "Delivery: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

932 "Encoding: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

933 "Errors-To: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

934 "Forwarded: " ; MH

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

935 "From " ; sendmail

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

936 "Importance: " ; MS Outlook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

937 "In-Reply-To: " ; MH

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

938 "Lines: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

939 "List-" ; Mailman mailing list manager

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

940 "List-" ; Unknown mailing list managers

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

941 "List-Subscribe: " ; Unknown mailing list managers

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

942 "List-Unsubscribe: " ; Unknown mailing list managers

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

943 "Mail-from: " ; MH

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

944 "Mailing-List: " ; Egroups/yahoogroups mailing list manager

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

945 "Message-Id: " ; RFC 822

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

946 "Mime-Version" ; RFC 2045

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

947 "NNTP-" ; News

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

948 "Old-Return-Path: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

949 "Original-Encoded-Information-Types: " ; X400

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

950 "P1-Content-Type: " ; X400

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

951 "P1-Message-Id: " ; X400

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

952 "P1-Recipient: " ; X400

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

953 "Path: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

954 "Precedence: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

955 "Prev-Resent" ; MH

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

956 "Priority: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

957 "Received: " ; RFC 822

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

958 "References: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

959 "Remailed-" ; MH

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

960 "Replied: " ; MH

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

961 "Resent" ; MH

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

962 "Return-Path: " ; RFC 822

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

963 "Sensitivity: " ; MS Outlook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

964 "Status: " ; sendmail

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

965 "Ua-Content-Id: " ; X400

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

966 "User-Agent: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

967 "Via: " ; MH

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

968 "X-Abuse-Info: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

969 "X-Accept-Language: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

970 "X-Accept-Language: " ; Netscape/Mozilla

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

971 "X-Ack: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

972 "X-Apparently-From: " ; MS Outlook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

973 "X-Apparently-To: " ; Egroups/yahoogroups mailing list manager

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

974 "X-Authentication-Warning: " ; sendmail

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

975 "X-Beenthere: " ; Mailman mailing list manager

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

976 "X-Complaints-To: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

977 "X-Cron-Env: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

978 "X-Delivered"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

979 "X-Envelope-Sender: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

980 "X-Envelope-To: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

981 "X-Folder: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

982 "X-From-Line"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

983 "X-Gnus-Mail-Source: " ; gnus

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

984 "X-Habeas-SWE-1: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

985 "X-Habeas-SWE-2: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

986 "X-Habeas-SWE-3: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

987 "X-Habeas-SWE-4: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

988 "X-Habeas-SWE-5: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

989 "X-Habeas-SWE-6: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

990 "X-Habeas-SWE-7: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

991 "X-Habeas-SWE-8: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

992 "X-Habeas-SWE-9: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

993 "X-Info: " ; NTMail

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

994 "X-Juno-" ; Juno

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

995 "X-List-Host: " ; Unknown mailing list managers

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

996 "X-List-Subscribe: " ; Unknown mailing list managers

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

997 "X-List-Unsubscribe: " ; Unknown mailing list managers

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

998 "X-Listserver: " ; Unknown mailing list managers

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

999 "X-Loop: " ; Unknown mailing list managers

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1000 "X-MIME-Autoconverted: " ; sendmail

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1001 "X-MIMETrack: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1002 "X-MS-TNEF-Correlator: " ; MS Outlook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1003 "X-Mailing-List: " ; Unknown mailing list managers

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1004 "X-Mailman-Version: " ; Mailman mailing list manager

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1005 "X-Message-Id"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1006 "X-MimeOLE: " ; MS Outlook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1007 "X-Mozilla-Status: " ; Netscape/Mozilla

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1008 "X-Msmail-" ; MS Outlook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1009 "X-News: " ; News

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1010 "X-No-Archive: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1011 "X-Orcl-Content-Type: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1012 "X-Original-Complaints-To: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1013 "X-Original-Date: " ; SourceForge mailing list manager

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1014 "X-Original-Trace: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1015 "X-OriginalArrivalTime: " ; Hotmail

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1016 "X-Originating-IP: " ; Hotmail

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1017 "X-Priority: " ; MS Outlook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1018 "X-Qotd-" ; User added

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1019 "X-Received-Date: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1020 "X-Received: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1021 "X-Request-"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1022 "X-SBClass: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1023 "X-SBNote: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1024 "X-SBPass: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1025 "X-SBRule: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1026 "X-Scanned-By"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1027 "X-Sender: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1028 "X-Server-Date: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1029 "X-Server-Uuid: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1030 "X-Sieve: " ; Sieve filtering

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1031 "X-Spam-Level: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1032 "X-Spam-Score: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1033 "X-Spam-Status: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1034 "X-SpamBouncer: " ; Spam

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1035 "X-Trace: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1036 "X-UIDL: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1037 "X-UserInfo1: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1038 "X-VSMLoop: " ; NTMail

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1039 "X-Vms-To: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1040 "X-Wss-Id: " ; Worldtalk gateways

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1041 "X-eGroups-" ; Egroups/yahoogroups mailing list manager

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1042 "X-pgp: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1043 "X-submission-address: "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1044 "X400-" ; X400

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1045 "Xref: ")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1046 "*List of header fields that are not to be shown.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1047 Regexps are not allowed. Unique fields should have a \": \" suffix;

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1048 otherwise, the element can be used to render an entire class of fields

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1049 that start with the same prefix invisible.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1050 This variable is ignored if `mh-visible-headers' is set."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1051 :type '(repeat (string :tag "Header field"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1052 :set 'mh-invisible-header-fields-set

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1053 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1054

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1055 ;;; Composing messages (:group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1056

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1057 (defcustom mh-compose-insertion (if (locate-library "mml") 'gnus 'mhn)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1058 "Use either 'gnus or 'mhn to insert MIME message directives in messages."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1059 :type '(choice (const :tag "Use gnus" gnus)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1060 (const :tag "Use mhn" mhn))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1061 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1062

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1063 (defcustom mh-compose-letter-function nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1064 "Invoked when setting up a letter draft.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1065 It is passed three arguments: TO recipients, SUBJECT, and CC recipients."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1066 :type '(choice (const nil) function)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1067 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1068

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1069 (defcustom mh-delete-yanked-msg-window-flag nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1070 "*Non-nil means delete any window displaying the message.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1071 Controls window display when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1072 If non-nil, yanking the current message into a draft letter deletes any

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1073 windows displaying the message."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1074 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1075 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1076

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1077 (defcustom mh-extract-from-attribution-verb "wrote:"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1078 "*Verb to use for attribution when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg]."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1079 :type '(choice (const "wrote:")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1080 (const "a �crit :")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1081 (string :tag "Custom string"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1082 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1083

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1084 (defcustom mh-forward-subject-format "%s: %s"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1085 "*Format to generate the Subject: line contents for a forwarded message.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1086 The two string arguments to the format are the sender of the original

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1087 message and the original subject line."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1088 :type 'string

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1089 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1090

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1091 (defcustom mh-ins-buf-prefix "> "

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1092 "*String to put before each non-blank line of a yanked or inserted message.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1093 \\<mh-letter-mode-map>Used when the message is inserted into an outgoing letter

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1094 by \\[mh-insert-letter] or \\[mh-yank-cur-msg]."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1095 :type 'string

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1096 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1097

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1098 (defcustom mh-insert-mail-followup-to-flag t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1099 "Non-nil means maybe append a Mail-Followup-To field to the header.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1100 The insertion is done if the To: or Cc: fields matches an entry in

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1101 `mh-insert-mail-followup-to-list'."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1102 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1103 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1104

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1105 (defcustom mh-insert-mail-followup-to-list nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1106 "Alist of addresses for which a Mail-Followup-To field is inserted.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1107 Each element has the form (REGEXP ADDRESS).

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1108 When the REGEXP appears in the To or cc fields of a message, the corresponding

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1109 ADDRESS is inserted in a Mail-Followup-To field.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1110

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1111 Here's a customization example:

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1112

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1113 regexp: mh-e-users@lists.s\\\$ourceforge\\\\|f\\\$.net

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1114 address: 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

1115

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1116 This corresponds to:

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1117

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1118 (setq mh-insert-mail-followup-to-list

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1119 '((\"mh-e-users@lists.s\\\$ourceforge\\\\|f\\\$.net\"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1120 \"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

1121

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1122 While it might be tempting to add a descriptive name to the mailing list

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1123 address, consider that this field will appear in other people's outgoing

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1124 mail in their To: field. It might be best to keep it simple."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1125 :type '(repeat (list (string :tag "regexp") (string :tag "address")))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1126 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1127

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1128 (defcustom mh-insert-x-mailer-flag t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1129 "*Non-nil means append an X-Mailer field to the header."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1130 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1131 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1132

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1133 (defcustom mh-letter-fill-column 72

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1134 "*Fill column to use in `mh-letter-mode'.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1135 This is usually less than in other text modes because email messages get

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1136 quoted by some prefix (sometimes many times) when they are replied to,

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1137 and it's best to avoid quoted lines that span more than 80 columns."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1138 :type 'integer

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1139 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1140

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1141 (defcustom mh-reply-default-reply-to nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1142 "*Sets the person or persons to whom a reply will be sent.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1143 If nil, prompt for recipient. If non-nil, then \\<mh-folder-mode-map>`\\[mh-reply]' will use this

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1144 value and it should be one of \"from\", \"to\", \"cc\", or \"all\".

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1145 The values \"cc\" and \"all\" do the same thing."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1146 :type '(choice (const :tag "Prompt" nil)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1147 (const "from") (const "to")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1148 (const "cc") (const "all"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1149 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1150

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1151 (defcustom mh-reply-show-message-flag t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1152 "*Non-nil means the show buffer is displayed using \\<mh-letter-mode-map>\\[mh-reply].

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1153

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1154 The setting of this variable determines whether the MH `show-buffer' is

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1155 displayed with the current message when using `mh-reply' without a prefix

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1156 argument. Set it to nil if you already include the message automatically

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1157 in your draft using

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1158 repl: -filter repl.filter

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1159 in your ~/.mh_profile file."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1160 :type 'boolean

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1161 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1162

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1163 (defcustom mh-signature-file-name "~/.signature"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1164 "*Name of file containing the user's signature.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1165 Inserted into message by \\<mh-letter-mode-map>\\[mh-insert-signature]."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1166 :type 'file

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1167 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1168

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1169 (defcustom mh-x-face-file "~/.face"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1170 "*File name containing the encoded X-Face string to insert in outgoing mail.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1171 If nil, or the file does not exist, nothing is added to message headers."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1172 :type 'file

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1173 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1174

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1175 (defvar mh-x-mailer-string nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1176 "*String containing the contents of the X-Mailer header field.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1177 If nil, this variable is initialized to show the version of MH-E, Emacs, and

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1178 MH the first time a message is composed.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1179

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1180 (defcustom mh-yank-from-start-of-msg 'attribution

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1181 "*Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1182 If t, include the entire message, with full headers. This is historically

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1183 here for use with supercite, but is now deprecated in favor of the setting

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1184 `supercite' below.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1185

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1186 If the symbol `body', then yank the message minus the header.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1187

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1188 If the symbol `supercite', include the entire message, with full headers.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1189 This also causes the invocation of `sc-cite-original' without the setting

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1190 of `mail-citation-hook', now deprecated practice.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1191

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1192 If the symbol `autosupercite', do as for `supercite' automatically when

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1193 show buffer matches the message being replied-to. When this option is used,

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1194 the -noformat switch is passed to the repl program to override a -filter or

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1195 -format switch.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1196

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1197 If the symbol `attribution', then yank the message minus the header and add

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1198 a simple attribution line at the top.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1199

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1200 If the symbol `autoattrib', do as for `attribution' automatically when show

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1201 buffer matches the message being replied-to. You can make sure this is

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1202 always the case by setting `mh-reply-show-message-flag' to t (which is the

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1203 default) and optionally `mh-delete-yanked-msg-window-flag' to t as well such

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1204 that the show window is never displayed. When the `autoattrib' option is

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1205 used, the -noformat switch is passed to the repl program to override a

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1206 -filter or -format switch.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1207

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1208 If nil, yank only the portion of the message following the point.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1209

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1210 If the show buffer has a region, this variable is ignored unless its value is

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1211 one of `attribution' or `autoattrib' in which case the attribution is added

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1212 to the yanked region."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1213 :type '(choice (const :tag "Below point" nil)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1214 (const :tag "Without header" body)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1215 (const :tag "Invoke supercite" supercite)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1216 (const :tag "Invoke supercite, automatically" autosupercite)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1217 (const :tag "Without header, with attribution" attribution)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1218 (const :tag "Without header, with attribution, automatically"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1219 autoattrib)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1220 (const :tag "Entire message with headers" t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1221 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1222

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1223 (defcustom mh-letter-complete-function 'ispell-complete-word

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1224 "*Function to call when completing outside of fields specific to aliases."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1225 :type '(choice function (const nil))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1226 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1227

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1228 ;;; Alias handling (:group 'mh-alias)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1229

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1230 (defcustom mh-alias-system-aliases

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1231 '("/etc/nmh/MailAliases" "/usr/lib/mh/MailAliases" "/etc/passwd")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1232 "*A list of system files from which to cull aliases.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1233 If these files are modified, they are automatically reread. This list need

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1234 include only system aliases and the passwd file, since personal alias files

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1235 listed in your \"AliasFile\" MH profile component are automatically included.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1236 You can update the alias list manually using \\[mh-alias-reload]."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1237 :group 'mh-alias

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1238 :type '(choice (file) (repeat file)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1239

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1240 (defcustom mh-alias-expand-aliases-flag nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1241 "*Non-nil means to expand aliases entered in the minibuffer.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1242 In other words, aliases entered in the minibuffer will be expanded to the full

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1243 address in the message draft. By default, this expansion is not performed."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1244 :group 'mh-alias

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1245 :type 'boolean)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1246

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1247 (defcustom mh-alias-completion-ignore-case-flag t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1248 "*Non-nil means don't consider case significant in MH alias completion.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1249 This is the default in plain MH, so it is the default here as well. It

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1250 can be useful to set this to t if, for example, you use lowercase

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1251 aliases for people and uppercase for mailing lists."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1252 :group 'mh-alias

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1253 :type 'boolean)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1254

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1255 (defcustom mh-alias-flash-on-comma t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1256 "*Specify whether to flash or warn on translation.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1257 When a [comma] is pressed while entering aliases or addresses, setting this

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1258 variable to the following values has the listed effects:

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1259 t Flash alias translation but don't warn if there is no translation.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1260 1 Flash alias translation and warn if there is no translation.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1261 nil Do not flash alias translation nor warn if there is no translation."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1262 :group 'mh-alias

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1263 :type '(choice (const :tag "Flash but don't warn if no translation" t)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1264 (const :tag "Flash and warn if no translation" 1)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1265 (const :tag "Don't flash nor warn if no translation" nil)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1266

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1267 (defcustom mh-alias-local-users t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1268 "*If t, local users are completed in MH-E To: and Cc: prompts.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1269

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1270 Users with a userid greater than some magic number (usually 200) are available

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1271 for completion.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1272

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1273 If you set this variable to a string, it will be executed to generate a

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1274 password file. A value of \"ypcat passwd\" is helpful if NIS is in use."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1275 :group 'mh-alias

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1276 :type '(choice (boolean) (string)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1277

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1278 (defcustom mh-alias-insert-file nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1279 "*Filename to use to store new MH-E aliases.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1280 This variable can also be a list of filenames, in which case MH-E will prompt

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1281 for one of them. If nil, the default, then MH-E will use the first file found

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1282 in the \"AliasFile\" component of the MH profile."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1283 :group 'mh-alias

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1284 :type '(choice (const :tag "Use AliasFile MH profile component" nil)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1285 (file :tag "Alias file")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1286 (repeat :tag "List of alias files" file)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1287

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1288 (defcustom mh-alias-insertion-location 'sorted

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1289 "Specifies where new aliases are entered in alias files.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1290 Options are sorted alphabetically, at the top of the file or at the bottom."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1291 :type '(choice (const :tag "Sorted alphabetically" sorted)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1292 (const :tag "At the top of file" top)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1293 (const :tag "At the bottom of file" bottom))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1294 :group 'mh-alias)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1295

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1296 ;;; Indexed searching (:group 'mh-index)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1297

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1298 (defcustom mh-index-program nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1299 "Indexing program that MH-E shall use.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1300 The possible choices are swish++, swish-e, namazu, glimpse and grep. By

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1301 default this variable is nil which means that the programs are tried in order

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1302 and the first one found is used."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1303 :type '(choice (const :tag "auto-detect" nil)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1304 (const :tag "swish++" swish++)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1305 (const :tag "swish-e" swish)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1306 (const :tag "namazu" namazu)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1307 (const :tag "glimpse" glimpse)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1308 (const :tag "grep" grep))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1309 :group 'mh-index)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1310

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1311 ;;; Multiple personalities (:group 'mh-identity)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1312

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1313 (defcustom mh-identity-list nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1314 "*List holding MH-E identity.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1315 Omit the colon and trailing space from the field names.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1316 The keyword name \"none\" is reversed for internal use.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1317 Use the keyname name \"signature\" to specify either a signature file or a

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1318 function to call to insert a signature at point.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1319

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1320 Providing an empty Value (\"\") will cause the field to be deleted.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1321

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1322 Example entries using the customize interface:

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1323 Keyword name: work

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1324 From

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1325 Value: John Doe <john@work.com>

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1326 Organization

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1327 Value: Acme Inc.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1328 Keyword name: home

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1329 From

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1330 Value: John Doe <johndoe@home.net>

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1331 Organization

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1332 Value:

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1333

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1334 This would produce the equivalent of:

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1335 (setq mh-identity-list

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1336 '((\"work\"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1337 ((\"From\" . \"John Doe <john@work.com>\")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1338 (\"Organization\" . \"Acme Inc.\")))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1339 (\"home\"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1340 ((\"From\" . \"John Doe <johndoe@home.net>\")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1341 (\"Organization\" . \"\")))))"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1342 :type '(repeat (list :tag ""

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1343 (string :tag "Keyword name")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1344 (repeat :tag "At least one pair from below"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1345 (choice (cons :tag "From field"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1346 (const "From")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1347 (string :tag "Value"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1348 (cons :tag "Organization field"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1349 (const "Organization")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1350 (string :tag "Value"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1351 (cons :tag "Signature"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1352 (const "signature")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1353 (choice (file) (function)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1354 (cons :tag "Other field & value pair"

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1355 (string :tag "Field")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1356 (string :tag "Value"))))))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1357 :set 'mh-identity-list-set

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1358 :group 'mh-identity)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1359

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1360 (defcustom mh-identity-default nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1361 "Default identity to use when `mh-letter-mode' is called."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1362 ;; Dynamically render :type corresponding to `mh-identity-list' entries,

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1363 ;; e.g.:

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1364 ;; :type '(radio (const :tag "none" nil)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1365 ;; (const "home")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1366 ;; (const "work"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1367 :type (append

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1368 '(radio)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1369 (cons '(const :tag "none" nil)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1370 (mapcar (function (lambda (arg) `(const ,arg)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1371 (mapcar 'car mh-identity-list))))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1372 :group 'mh-identity)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1373

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1374 ;;; Hooks (:group 'mh-hooks + group where hook defined)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1375

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1376 ;;; These are alphabetized. All hooks should be placed in the 'mh-hook group;

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1377 ;;; in addition, add the group in which the hook is defined in the manual (or,

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1378 ;;; if it is new, where it would be defined).

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1379

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1380 (defcustom mh-before-quit-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1381 "Invoked by \\<mh-folder-mode-map>`\\[mh-quit]' before quitting MH-E.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1382 See also `mh-quit-hook'."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1383 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1384 :group 'mh-hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1385 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1386

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1387 (defcustom mh-before-send-letter-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1388 "Invoked at the beginning of the \\<mh-letter-mode-map>\\[mh-send-letter] command."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1389 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1390 :group 'mh-hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1391 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1392

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1393 (defcustom mh-delete-msg-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1394 "Invoked after marking each message for deletion."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1395 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1396 :group 'mh-hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1397 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1398

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1399 (defcustom mh-edit-mhn-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1400 "Invoked on the formatted letter by \\<mh-letter-mode-map>\\[mh-edit-mhn]."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1401 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1402 :group 'mh-hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1403 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1404

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1405 (defcustom mh-find-path-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1406 "Invoked by `mh-find-path' after reading the user's MH profile."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1407 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1408 :group 'mh-hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1409 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1410

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1411 (defcustom mh-folder-list-change-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1412 "Invoked whenever the cached folder list `mh-folder-list' is changed."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1413 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1414 :group 'mh-hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1415 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1416

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1417 (defcustom mh-folder-mode-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1418 "Invoked in `mh-folder-mode' on a new folder."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1419 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1420 :group 'mh-hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1421 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1422

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1423 (defcustom mh-folder-updated-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1424 "Invoked when the folder actions (such as moves and deletes) are performed.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1425 Variables that are useful in this hook include `mh-delete-list' and

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1426 `mh-refile-list' which can be used to see which changes are being made to

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1427 current folder, `mh-current-folder'."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1428 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1429 :group 'mh-hooks)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1430

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1431 (defcustom mh-inc-folder-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1432 "Invoked by \\<mh-folder-mode-map>`\\[mh-inc-folder]' after incorporating mail into a folder."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1433 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1434 :group 'mh-hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1435 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1436

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1437 (defcustom mh-index-show-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1438 "Invoked after the message has been displayed."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1439 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1440 :group 'mh-hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1441 :group 'mh-index)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1442

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1443 (defcustom mh-letter-insert-signature-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1444 "Invoked at the beginning of the \\<mh-letter-mode-map>\\[mh-insert-signature] command.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1445 Can be used to determine which signature file to use based on message content.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1446 On return, if `mh-signature-file-name' is non-nil that file will be inserted at

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1447 the current point in the buffer."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1448 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1449 :group 'mh-hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1450 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1451

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1452 (defcustom mh-letter-mode-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1453 "Invoked in `mh-letter-mode' on a new letter."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1454 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1455 :group 'mh-hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1456 :group 'mh-letter)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1457

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1458 (defcustom mh-pick-mode-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1459 "Invoked upon entry to `mh-pick-mode'."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1460 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1461 :group 'mh-hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1462 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1463

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1464 (defcustom mh-quit-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1465 "Invoked after \\<mh-folder-mode-map>`\\[mh-quit]' quits MH-E.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1466 See also `mh-before-quit-hook'."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1467 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1468 :group 'mh-hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1469 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1470

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1471 (defcustom mh-refile-msg-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1472 "Invoked after marking each message for refiling."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1473 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1474 :group 'mh-hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1475 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1476

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1477 (defcustom mh-show-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1478 "Invoked after \\<mh-folder-mode-map>`\\[mh-show]' shows a message."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1479 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1480 :group 'mh-hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1481 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1482

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1483 (defcustom mh-show-mode-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1484 "Invoked upon entry to `mh-show-mode'."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1485 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1486 :group 'mh-hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1487 :group 'mh-show)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1488

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1489 (defcustom mh-unseen-updated-hook nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1490 "Invoked after the unseen sequence has been updated.

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1491 The variable `mh-seen-list' can be used to obtain the list of messages which

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1492 will be removed from the unseen sequence."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1493 :type 'hook

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1494 :group 'mh-hooks

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1495 :group 'mh-folder)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1496

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1497

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1498

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1499 ;;; Faces

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1500

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1501 ;;; Faces used in speedbar (:group mh-speed-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1502

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1503 (defface mh-speedbar-folder-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1504 '((((class color) (background light))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1505 (:foreground "blue4"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1506 (((class color) (background dark))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1507 (:foreground "light blue")))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1508 "Face used for folders in the speedbar buffer."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1509 :group 'mh-speed-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1510

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1511 (defface mh-speedbar-selected-folder-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1512 '((((class color) (background light))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1513 (:foreground "red" :underline t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1514 (((class color) (background dark))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1515 (:foreground "red" :underline t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1516 (t (:underline t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1517 "Face used for the current folder."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1518 :group 'mh-speed-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1519

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1520 (defface mh-speedbar-folder-with-unseen-messages-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1521 '((t (:inherit mh-speedbar-folder-face :bold t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1522 "Face used for folders in the speedbar buffer which have unread messages."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1523 :group 'mh-speed-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1524

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1525 (defface mh-speedbar-selected-folder-with-unseen-messages-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1526 '((t (:inherit mh-speedbar-selected-folder-face :bold t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1527 "Face used for the current folder when it has unread messages."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1528 :group 'mh-speed-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1529

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1530 ;;; Faces used in scan listing (:group mh-folder-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1531

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1532 (defvar mh-folder-body-face 'mh-folder-body-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1533 "Face for highlighting body text in MH-Folder buffers.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1534 (defface mh-folder-body-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1535 '((((type tty) (class color)) (:foreground "green"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1536 (((class grayscale) (background light)) (:foreground "DimGray" :italic t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1537 (((class grayscale) (background dark)) (:foreground "LightGray" :italic t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1538 (((class color) (background light)) (:foreground "RosyBrown"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1539 (((class color) (background dark)) (:foreground "LightSalmon"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1540 (t (:italic t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1541 "Face for highlighting body text in MH-Folder buffers."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1542 :group 'mh-folder-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1543

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1544 (defvar mh-folder-cur-msg-face 'mh-folder-cur-msg-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1545 "Face for the current message line in MH-Folder buffers.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1546 (defface mh-folder-cur-msg-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1547 '((((type tty pc) (class color))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1548 (:background "LightGreen"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1549 (((class color) (background light))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1550 (:background "LightGreen") ;Use this for solid background colour

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1551 ;; (:underline t) ;Use this for underlining

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1552 )

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1553 (((class color) (background dark))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1554 (:background "DarkOliveGreen4"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1555 (t (:underline t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1556 "Face for the current message line in MH-Folder buffers."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1557 :group 'mh-folder-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1558

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1559 (defvar mh-folder-cur-msg-number-face 'mh-folder-cur-msg-number-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1560 "Face for highlighting the current message in MH-Folder buffers.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1561 (defface mh-folder-cur-msg-number-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1562 '((((type tty) (class color)) (:foreground "cyan" :weight bold))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1563 (((class grayscale) (background light)) (:foreground "LightGray" :bold t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1564 (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1565 (((class color) (background light)) (:foreground "Purple"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1566 (((class color) (background dark)) (:foreground "Cyan"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1567 (t (:bold t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1568 "Face for highlighting the current message in MH-Folder buffers."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1569 :group 'mh-folder-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1570

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1571 (defvar mh-folder-date-face 'mh-folder-date-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1572 "Face for highlighting the date in MH-Folder buffers.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1573 (defface mh-folder-date-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1574 '((((class color) (background light))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1575 (:foreground "snow4"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1576 (((class color) (background dark))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1577 (:foreground "snow3"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1578 (t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1579 (:bold t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1580 "Face for highlighting the date in MH-Folder buffers."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1581 :group 'mh-folder-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1582

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1583 (defvar mh-folder-followup-face 'mh-folder-followup-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1584 "Face for highlighting Re: (followup) subject text in MH-Folder buffers.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1585 (defface mh-folder-followup-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1586 '((((class color) (background light))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1587 (:foreground "blue3"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1588 (((class color) (background dark))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1589 (:foreground "LightGoldenRod"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1590 (t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1591 (:bold t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1592 "Face for highlighting Re: (followup) subject text in MH-Folder buffers."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1593 :group 'mh-folder-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1594

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1595 (defvar mh-folder-msg-number-face 'mh-folder-msg-number-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1596 "Face for highlighting the message number in MH-Folder buffers.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1597 (defface mh-folder-msg-number-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1598 '((((class color) (background light))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1599 (:foreground "snow4"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1600 (((class color) (background dark))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1601 (:foreground "snow3"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1602 (t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1603 (:bold t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1604 "Face for highlighting the message number in MH-Folder buffers."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1605 :group 'mh-folder-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1606

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1607 (defvar mh-folder-deleted-face 'mh-folder-deleted-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1608 "Face for highlighting deleted messages in MH-Folder buffers.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1609 (copy-face 'mh-folder-msg-number-face 'mh-folder-deleted-face)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1610

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1611 (defvar mh-folder-refiled-face 'mh-folder-refiled-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1612 "Face for highlighting refiled messages in MH-Folder buffers.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1613 (defface mh-folder-refiled-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1614 '((((type tty) (class color)) (:foreground "yellow" :weight light))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1615 (((class grayscale) (background light))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1616 (:foreground "Gray90" :bold t :italic t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1617 (((class grayscale) (background dark))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1618 (:foreground "DimGray" :bold t :italic t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1619 (((class color) (background light)) (:foreground "DarkGoldenrod"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1620 (((class color) (background dark)) (:foreground "LightGoldenrod"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1621 (t (:bold t :italic t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1622 "Face for highlighting refiled messages in MH-Folder buffers."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1623 :group 'mh-folder-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1624

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1625 (defvar mh-folder-subject-face 'mh-folder-subject-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1626 "Face for highlighting subject text in MH-Folder buffers.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1627 (if (boundp 'facemenu-unlisted-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1628 (add-to-list 'facemenu-unlisted-faces "^mh-folder"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1629 (defface mh-folder-subject-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1630 '((((class color) (background light))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1631 (:foreground "blue4"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1632 (((class color) (background dark))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1633 (:foreground "yellow"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1634 (t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1635 (:bold t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1636 "Face for highlighting subject text in MH-Folder buffers."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1637 :group 'mh-folder-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1638

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1639 (defvar mh-folder-address-face 'mh-folder-address-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1640 "Face for highlighting the address in MH-Folder buffers.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1641 (copy-face 'mh-folder-subject-face 'mh-folder-address-face)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1642

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1643 (defvar mh-folder-scan-format-face 'mh-folder-scan-format-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1644 "Face for highlighting `mh-scan-format-regexp' matches in MH-Folder buffers.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1645 (copy-face 'mh-folder-followup-face 'mh-folder-scan-format-face)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1646

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1647 (defvar mh-folder-to-face 'mh-folder-to-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1648 "Face for highlighting the To: string in MH-Folder buffers.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1649 (defface mh-folder-to-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1650 '((((type tty) (class color)) (:foreground "green"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1651 (((class grayscale) (background light)) (:foreground "DimGray" :italic t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1652 (((class grayscale) (background dark)) (:foreground "LightGray" :italic t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1653 (((class color) (background light)) (:foreground "RosyBrown"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1654 (((class color) (background dark)) (:foreground "LightSalmon"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1655 (t (:italic t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1656 "Face for highlighting the To: string in MH-Folder buffers."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1657 :group 'mh-folder-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1658

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1659 ;;; Faces used in message display (:group mh-show-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1660

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1661 (defvar mh-show-cc-face 'mh-show-cc-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1662 "Face for highlighting cc header fields.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1663 (defface mh-show-cc-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1664 '((((type tty) (class color)) (:foreground "yellow" :weight light))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1665 (((class grayscale) (background light))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1666 (:foreground "Gray90" :bold t :italic t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1667 (((class grayscale) (background dark))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1668 (:foreground "DimGray" :bold t :italic t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1669 (((class color) (background light)) (:foreground "DarkGoldenrod"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1670 (((class color) (background dark)) (:foreground "LightGoldenrod"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1671 (t (:bold t :italic t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1672 "Face for highlighting cc header fields."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1673 :group 'mh-show-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1674

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1675 (defvar mh-show-date-face 'mh-show-date-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1676 "Face for highlighting the Date header field.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1677 (defface mh-show-date-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1678 '((((type tty) (class color)) (:foreground "green"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1679 (((class grayscale) (background light)) (:foreground "Gray90" :bold t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1680 (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1681 (((class color) (background light)) (:foreground "ForestGreen"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1682 (((class color) (background dark)) (:foreground "PaleGreen"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1683 (t (:bold t :underline t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1684 "Face for highlighting the Date header field."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1685 :group 'mh-show-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1686

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1687 (defvar mh-show-header-face 'mh-show-header-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1688 "Face used to deemphasize unspecified header fields.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1689 (defface mh-show-header-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1690 '((((type tty) (class color)) (:foreground "green"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1691 (((class grayscale) (background light)) (:foreground "DimGray" :italic t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1692 (((class grayscale) (background dark)) (:foreground "LightGray" :italic t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1693 (((class color) (background light)) (:foreground "RosyBrown"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1694 (((class color) (background dark)) (:foreground "LightSalmon"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1695 (t (:italic t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1696 "Face used to deemphasize unspecified header fields."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1697 :group 'mh-show-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1698

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1699 (defvar mh-show-to-face 'mh-show-to-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1700 "Face for highlighting the To: header field.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1701 (if (boundp 'facemenu-unlisted-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1702 (add-to-list 'facemenu-unlisted-faces "^mh-show"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1703 (defface mh-show-to-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1704 '((((class grayscale) (background light))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1705 (:foreground "DimGray" :underline t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1706 (((class grayscale) (background dark))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1707 (:foreground "LightGray" :underline t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1708 (((class color) (background light)) (:foreground "SaddleBrown"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1709 (((class color) (background dark)) (:foreground "burlywood"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1710 (t (:underline t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1711 "Face for highlighting the To: header field."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1712 :group 'mh-show-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1713

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1714 (defvar mh-show-from-face 'mh-show-from-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1715 "Face for highlighting the From: header field.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1716 (defface mh-show-from-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1717 '((((class color) (background light))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1718 (:foreground "red3"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1719 (((class color) (background dark))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1720 (:foreground "cyan"))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1721 (t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1722 (:bold t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1723 "Face for highlighting the From: header field."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1724 :group 'mh-show-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1725

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1726 (defvar mh-show-subject-face 'mh-show-subject-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1727 "Face for highlighting the Subject header field.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1728 (copy-face 'mh-folder-subject-face 'mh-show-subject-face)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1729

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1730 ;;; Faces used in indexed searches (:group mh-index-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1731

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1732 (defvar mh-index-folder-face 'mh-index-folder-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1733 "Face for highlighting folders in MH-Index buffers.")

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1734 (defface mh-index-folder-face

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1735 '((((class color) (background light))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1736 (:foreground "dark green" :bold t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1737 (((class color) (background dark))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1738 (:foreground "indian red" :bold t))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1739 (t

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1740 (:bold t)))

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1741 "Face for highlighting folders in MH-Index buffers."

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1742 :group 'mh-index-faces)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1743

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1744 (provide 'mh-customize)

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1745

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1746 ;;; Local Variables:

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1747 ;;; indent-tabs-mode: nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1748 ;;; sentence-end-double-space: nil

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1749 ;;; End:

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1750

06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we

Bill Wohler <wohler@newt.com>

parents:

diff changeset

1751 ;;; mh-customize.el ends here

Mercurial > emacs

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