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

annotate lisp/mh-e/mh-customize.el @ 50338:155b4b78aa3b

* tramp.el: Version 2.0.31 released. (tramp-handle-expand-file-name): Do not allow ".." to cross file handler boundaries, so that "/user@host:/../foo" expands to itself, rather than "/foo". This is intended to work in conjunction with a change in `file-relative-name' which makes sure to use absolute file names if FILE and DIRECTORY have different handlers. (tramp-handle-insert-directory): Comment out XEmacs kludge. Suggested by Katsumi Yamaoka <yamaoka@jpl.org>. * Makefile.in (../info/tramp): Compile Emacs, instead of XEmacs, version of manual. * tramp.texi (Auto-save and Backup): New node.

author	Kai Großjohann <kgrossjo@eu.uu.net>
date	Sat, 29 Mar 2003 15:16:57 +0000
parents	0d8b17d428b5
children	7dd3d5eae9c7 d7ddb3e565de

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
49598 0d8b17d428b5 Trailing whitepace deleted. Juanma Barranquero <lekktu@gmail.com> parents: 49578 diff changeset	58 ;; $Id: mh-customize.el,v 1.2 2003/02/03 20:55:30 wohler Exp $
49459 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:
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	61 (provide 'mh-customize)
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	62 (require 'mh-e)
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	63
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	64 ;;;###mh-autoload
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	65 (defun mh-customize (&optional delete-other-windows-flag)
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	66 "Customize MH-E variables.
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	67 With optional argument DELETE-OTHER-WINDOWS-FLAG, other windows in the frame
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	68 are removed."
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	69 (interactive "P")
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	70 (customize-group 'mh)
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	71 (when delete-other-windows-flag
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	72 (delete-other-windows)))
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	73
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	74 ;;; 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	75
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	76 (defgroup mh nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	77 "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	78 :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	79 :group 'mail)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	80
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	81 (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	82 "Toolbar configuration."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	83 :prefix "mh-"
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-speed nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	87 "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	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-folder nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	93 "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	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 Moving Mail")
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-show nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	99 "Message display."
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 Reading")
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-letter nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	105 "Composing messages."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	106 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	107 :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	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-alias nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	111 "Alias handling."
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-alias-"
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-index nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	117 "Indexed searching."
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-identity nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	123 "Multiple personalities."
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 'mh)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	127
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	128 (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	129 "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	130 :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	131 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	132 :group 'faces
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 (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	136 "MH-E hooks."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	137 :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	138 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	139 :group 'mh)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	140
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	141 ;;; Faces
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	142
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	143 (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	144 "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	145 :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	146 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	147 :group 'mh-faces
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	148 :group 'mh-speed)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	149
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	150 (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	151 "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	152 :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	153 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	154 :group 'mh-faces
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	155 :group 'mh-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	156
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	157 (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	158 "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	159 :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	160 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	161 :group 'mh-faces
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	162 :group 'mh-show)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	163
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	164 (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	165 "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	166 :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	167 :prefix "mh-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	168 :group 'mh-faces
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	169 :group 'mh-index)
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
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	172
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	173 ;;; 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	174
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	175 ;;; 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	176
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-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	178 (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	179 (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	180 (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	181 (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	182 (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	183 (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	184 (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	185 (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	186 (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	187 (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	188 (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	189 (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	190 (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	191 (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	192 (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	193 (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	194 (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	195 (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	196 (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	197 (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	198 (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	199 (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	200
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	201 (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	202 (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	203 (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	204 (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	205 (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	206 (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	207 "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	208 (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	209 "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	210 (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	211 "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	212 (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	213 (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	214
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	215 (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	216 "*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	217 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	218 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	219 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	220 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	221 :group 'mh-toolbar)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	222
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	223 (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	224 "*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	225 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	226 :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	227 (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	228 (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	229 :group 'mh-toolbar)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	230
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	231 (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	232 (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	233 (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	234 "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	235 (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	236 (setq
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	237 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	238 (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	239 (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	240 (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	241 :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	242 (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	243 (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	244 '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	245 :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	246 (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	247 (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	248 'mh-showtoolbar-prev
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	249 :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	250 (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	251 (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	252 :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	253 (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	254 (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	255 'mh-showtoolbar-next
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	256 :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	257 (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	258 (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	259 'mh-showtoolbar-delete
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	260 :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	261 (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	262 (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	263 'mh-showtoolbar-refile
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	264 :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	265 (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	266 (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	267 :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	268 (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	269 (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	270 'mh-showtoolbar-exec
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	271 :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	272 (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	273 (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	274 '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	275 :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	276 (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	277 (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	278 (lambda (&optional arg)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	279 (interactive "P")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	280 (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	281 (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	282 '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	283 :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	284 (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	285 (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	286 (lambda (&optional arg)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	287 (interactive "P")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	288 (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	289 (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	290 '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	291 :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	292 (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	293 (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	294 (lambda (&optional arg)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	295 (interactive "P")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	296 (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	297 (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	298 '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	299 :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	300 (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	301 (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	302 'mh-showtoolbar-reply
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	303 :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	304 (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	305 (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	306 'mh-showtoolbar-alias
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	307 :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	308 :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	309 (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	310 (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	311 :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	312 (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	313 (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	314 'mh-showtoolbar-rescan
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	315 :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	316 (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	317 (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	318 'mh-showtoolbar-pack
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	319 :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	320 (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	321 (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	322 (lambda (&optional arg)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	323 (interactive "P")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	324 (call-interactively
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	325 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	326 'mh-showtoolbar-search
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	327 :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	328 (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	329 (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	330 'mh-showtoolbar-visit
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-visit))
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-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	333 (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	334 (interactive)
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	335 (mh-customize t))
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	336 'mh-showtoolbar-customize
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-prefs))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	338 (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	339 (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	340 (interactive)
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	341 (Info-goto-node "(mh-e)Top")
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	342 (delete-other-windows))
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	343 'mh-showtoolbar-help
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	344 :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	345 tool-bar-map))))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	346
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	347 (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	348 ;;;###mh-autoload
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	349 (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	350 "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	351 (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	352 (setq
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	353 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	354 (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	355 (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	356 (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	357 'mh-lettertoolbar-send
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-send))
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-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	360 (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	361 'mh-lettertoolbar-compose
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	362 :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	363 (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	364 (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	365 :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	366 (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	367 (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	368 (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	369 (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	370 (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	371 (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	372 (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	373 (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	374 (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	375 (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	376 (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	377 (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	378 'mh-lettertoolbar-kill
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	379 :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	380 (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	381 (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	382 (interactive)
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	383 (mh-customize t))
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	384 'mh-lettertoolbar-customize
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	385 :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	386 (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	387 (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	388 (interactive)
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	389 (Info-goto-node "(mh-e)Draft Editing")
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	390 (delete-other-windows))
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	391 'mh-lettertoolbar-help
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	392 :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	393 tool-bar-map))))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	394
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	395 (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	396 (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	397 "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	398 ;;;###mh-autoload
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	399 (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	400 "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	401 (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	402 (setq
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	403 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	404 (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	405 (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	406 (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	407 '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	408 :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	409 (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	410 (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	411 '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	412 :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	413 (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	414 (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	415 'mh-foldertoolbar-prev
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	416 :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	417 (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	418 (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	419 :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	420 (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	421 (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	422 'mh-foldertoolbar-next
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	423 :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	424 (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	425 (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	426 :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	427 (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	428 (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	429 :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	430 (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	431 (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	432 :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	433 (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	434 (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	435 'mh-foldertoolbar-exec
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	436 :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	437 (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	438 (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	439 '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	440 :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	441 (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	442 (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	443 (lambda (&optional arg)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	444 (interactive "P")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	445 (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	446 '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	447 :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	448 (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	449 (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	450 (lambda (&optional arg)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	451 (interactive "P")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	452 (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	453 '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	454 :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	455 (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	456 (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	457 (lambda (&optional arg)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	458 (interactive "P")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	459 (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	460 '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	461 :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	462 (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	463 (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	464 'mh-foldertoolbar-reply
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-reply))
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-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	467 (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	468 'mh-foldertoolbar-alias
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-alias
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	470 :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	471 (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	472 (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	473 :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	474 (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	475 (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	476 'mh-foldertoolbar-rescan
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	477 :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	478 (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	479 (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	480 :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	481 (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	482 (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	483 (lambda (&optional arg)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	484 (interactive "P")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	485 (call-interactively
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	486 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	487 'mh-foldertoolbar-search
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	488 :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	489 (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	490 (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	491 'mh-foldertoolbar-visit
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	492 :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	493 (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	494 (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	495 (interactive)
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	496 (mh-customize t))
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	497 'mh-foldertoolbar-customize
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	498 :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	499 (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	500 (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	501 (interactive)
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	502 (Info-goto-node "(mh-e)Top")
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	503 (delete-other-windows))
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	504 'mh-foldertoolbar-help
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	505 :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	506 tool-bar-map))
49598 0d8b17d428b5 Trailing whitepace deleted. Juanma Barranquero <lekktu@gmail.com> parents: 49578 diff changeset	507
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	508 (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	509 (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	510 (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	511 (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	512 :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	513 tool-bar-map))))
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 (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	516 "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	517 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	518 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	519 `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	520 (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	521 (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	522 (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	523
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	524 (custom-declare-variable
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-folder-buttons
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	526 '(append
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	527 (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	528 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	529 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	530 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	531 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	532 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	533 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	534 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	535 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	536 ;;; 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	537 )
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	538 (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	539 (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	540 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	541 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	542 (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	543 (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	544 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	545 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	546 ;;; 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	547 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	548 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	549 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	550 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	551 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	552 "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	553 :group 'mh-toolbar
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	554 :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	555 :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	556 (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	557 (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	558 (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	559 (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	560 (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	561 (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	562 (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	563 (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	564 (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	565 (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	566 (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	567 (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	568 (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	569 (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	570 (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	571 (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	572 (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	573 (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	574 (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	575 (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	576 (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	577 (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	578
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	579 (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	580 "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	581 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	582 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	583 `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	584 (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	585 (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	586
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	587 (custom-declare-variable
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-letter-buttons
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	589 '(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	590 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	591 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	592 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	593 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	594 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	595 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	596 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	597 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	598 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	599 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	600 "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	601 :group 'mh-toolbar
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	602 :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	603 :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	604 (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	605 (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	606 (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	607 (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	608 (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	609 (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	610 (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	611 (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	612 (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	613 (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	614
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	615
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	616
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	617 ;;; 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	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-large-folder 200
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	620 "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	621 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	622 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	623 `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	624 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	625 :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	626 :group 'mh-speed)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	627
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	628 (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	629 "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	630 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	631 :type 'integer
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 (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	635 "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	636 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	637 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	638 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	639 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	640 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	641 :group 'mh-speed)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	642
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	643
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	644
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	645 ;;; 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	646
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	647 (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	648 "*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	649 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	650 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	651 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	652
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	653 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	654 `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	655 `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	656 \"(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	657 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	658 :group 'mh-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	659
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	660 (defcustom mh-default-folder-list nil
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	661 "*Alist of addresses and folders.
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	662 When refiling messages, these folders are the default that is provided if the
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	663 sender has the associated address. You do not need to list your aliases here
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	664 as that lookup is already performed.
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	665 See `mh-prompt-for-refile-folder' and `mh-folder-from-address' for more
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	666 information."
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	667 :type '(repeat (list (string :tag "Address")
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	668 (string :tag "Folder")))
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	669 :group 'mh-folder)
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	670
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	671 (defcustom mh-default-folder-must-exist-flag t
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	672 "*Non-nil means guessed folder name must exist to be used.
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	673 If this variable is t, then the guessed name is only used if the folder
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	674 already exists\; if the folder doesn't exist, then the last folder name used
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	675 is suggested. This is useful if you get mail from various people for whom you
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	676 have an alias, but file them all in the same project folder.
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	677 See `mh-prompt-for-refile-folder' and `mh-folder-from-address' for more
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	678 information."
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	679 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	680 :group 'mh-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	681
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	682 (defcustom mh-default-folder-prefix ""
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	683 "*Prefix used for guessed folder names.
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	684 This can be used to put folders associated with your aliases in a sub-folder
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	685 so as to not clutter your mail directory.
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	686 See `mh-prompt-for-refile-folder' and `mh-folder-from-address' for more
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	687 information."
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	688 :type 'string
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	689 :group 'mh-folder)
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	690
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	691 (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	692 "*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	693 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	694 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	695 :type 'string
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-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	699 "*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	700 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	701 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	702 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	703 :type 'string
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	704 :group 'mh-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	705
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	706 (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	707 "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	708 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	709 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	710 :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	711 (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	712 directory)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	713 :group 'mh-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	714
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	715 (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	716 "*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	717 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	718 :type 'boolean
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
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	721 (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	722 "*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	723 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	724 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	725 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	726 :group 'mh-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	727
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	728 (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	729 "*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	730 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	731 :group 'mh-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	732
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	733 (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	734 "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	735 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	736 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	737 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	738
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	739 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	740 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	741 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	742 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	743 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	744 :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	745 (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	746 (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	747 :group 'mh-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	748
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	749 (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	750 "*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	751 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	752 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	753 :type 'string
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	754 :group 'mh-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	755 (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	756
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	757 (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	758 "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	759 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	760 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	761 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	762 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	763 :group 'mh-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	764
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	765 (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	766 "*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	767 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	768 :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	769 directory)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	770 :group 'mh-folder)
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 (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	773 "*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	774 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	775 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	776 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	777 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	778 :group 'mh-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	779
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	780
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	781
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	782 ;;; 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	783
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	784 (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	785 "*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	786 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	787 :group 'mh-show)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	788
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	789 (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	790 "*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	791 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	792 what is removed."
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-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	797 "*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	798 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	799 :group 'mh-show)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	800
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	801 (defcustom mh-decode-content-transfer-encoded-message-flag
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	802 (and (fboundp 'executable-find) (executable-find "mimencode") t)
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	803 "Non-nil means decode messages with `mimencode', if necessary.
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	804
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	805 Messages which are encoded as quoted-printable or base64 are translated into
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	806 8-bit characters by the `mimencode' command.
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	807
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	808 This variable is initialized to t if `mimencode' is available.
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	809
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	810 The `mimencode' program is part of the metamail package. The source can be
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	811 obtained from
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	812 ftp://thumper.bellcore.com/pub/nsb/"
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	813 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	814 :group 'mh-show)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	815
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	816 (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	817 "*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	818 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	819 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	820 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	821 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	822 :group 'mh-show)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	823
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	824 (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	825 "*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	826 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	827 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	828 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	829 question."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	830 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	831 :group 'mh-show)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	832
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	833 (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	834 "*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	835 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	836 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	837 `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	838 :type 'boolean
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 (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	842 "*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	843 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	844 /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	845 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	846 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	847 :group 'mh-show)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	848
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	849 (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	850 "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	851 The gnus method uses a different color for each indentation."
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	852 :type '(choice (const :tag "Use Gnus" gnus)
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	853 (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	854 (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	855 :group 'mh-show)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	856
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	857 (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	858 "*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	859 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	860 the window."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	861 :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	862 :group 'mh-show)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	863
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	864 (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	865 "*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	866 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	867 window."
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	868 :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	869 :group 'mh-show)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	870
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	871 (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	872 "*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	873 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	874 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	875 :type 'integer
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	876 :group 'mh-show)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	877
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	878 ;; 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	879 ;; 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	880 (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	881 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	882 "*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	883 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	884 :type 'boolean
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 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	888 (and window-system
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	889 (not (null (cond
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	890 (mh-xemacs-flag
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	891 (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	892 ((>= 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	893 (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	894 (t ;Emacs20
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	895 nil))))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	896 (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	897 (executable-find
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	898 "uncompface")))))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	899 "*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	900 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	901 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	902 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	903
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	904 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	905 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	906 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	907 :group 'mh-show)
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 (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	910 (> (frame-height) 24)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	911 (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	912 4)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	913 "*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	914 :type 'integer
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	915 :group 'mh-show)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	916
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	917 (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	918 "*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	919 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	920 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	921 :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	922 :group 'mh-show)
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 (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	925 "*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	926 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	927 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	928 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	929 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	930 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	931 :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	932 :group 'mh-show)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	933 (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	934
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	935 (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	936 "*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	937 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	938 to keep.")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	939
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	940 (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	941 "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	942 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	943 (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	944 (concat
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	945 "^"
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	946 (let ((max-specpdl-size 1000) ;workaround for insufficient default
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	947 (fields (append (if (not mh-show-use-xface-flag)
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	948 '("X-Face: "))
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	949 mh-invisible-header-fields)))
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	950 (regexp-opt fields t)))))
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	951
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	952 (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	953 "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	954 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	955 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	956 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	957 (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	958 (mh-invisible-headers))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	959
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	960 ;; 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	961 (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	962 '("Autoforwarded: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	963 "Bestservhost: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	964 "Content-" ; RFC 2045
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	965 "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	966 "Delivery-Date: " ; MH
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	967 "Delivery: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	968 "Encoding: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	969 "Errors-To: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	970 "Forwarded: " ; MH
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	971 "From " ; sendmail
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	972 "Importance: " ; MS Outlook
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	973 "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	974 "Lines: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	975 "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	976 "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	977 "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	978 "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	979 "Mail-from: " ; MH
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	980 "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	981 "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	982 "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	983 "NNTP-" ; News
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	984 "Old-Return-Path: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	985 "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	986 "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	987 "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	988 "P1-Recipient: " ; X400
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	989 "Path: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	990 "Precedence: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	991 "Prev-Resent" ; MH
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	992 "Priority: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	993 "Received: " ; RFC 822
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	994 "References: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	995 "Remailed-" ; MH
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	996 "Replied: " ; MH
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	997 "Resent" ; MH
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	998 "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	999 "Sensitivity: " ; MS Outlook
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1000 "Status: " ; sendmail
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1001 "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	1002 "User-Agent: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1003 "Via: " ; MH
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1004 "X-Abuse-Info: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1005 "X-Accept-Language: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1006 "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	1007 "X-Ack: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1008 "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	1009 "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	1010 "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	1011 "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	1012 "X-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-Cron-Env: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1014 "X-Delivered"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1015 "X-Envelope-Sender: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1016 "X-Envelope-To: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1017 "X-Folder: " ; Spam
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1018 "X-From-Line"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1019 "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	1020 "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	1021 "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	1022 "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	1023 "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	1024 "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	1025 "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	1026 "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	1027 "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	1028 "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	1029 "X-Info: " ; NTMail
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1030 "X-Juno-" ; Juno
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1031 "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	1032 "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	1033 "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	1034 "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	1035 "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	1036 "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	1037 "X-MIMETrack: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1038 "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	1039 "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	1040 "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	1041 "X-Message-Id"
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1042 "X-MHE-Checksum" ; Checksum added during index search
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1043 "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	1044 "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	1045 "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	1046 "X-News: " ; News
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1047 "X-No-Archive: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1048 "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	1049 "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	1050 "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	1051 "X-Original-Trace: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1052 "X-OriginalArrivalTime: " ; Hotmail
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1053 "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	1054 "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	1055 "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	1056 "X-Received-Date: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1057 "X-Received: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1058 "X-Request-"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1059 "X-SBClass: " ; Spam
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1060 "X-SBNote: " ; Spam
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1061 "X-SBPass: " ; Spam
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1062 "X-SBRule: " ; Spam
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1063 "X-Scanned-By"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1064 "X-Sender: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1065 "X-Server-Date: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1066 "X-Server-Uuid: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1067 "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	1068 "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	1069 "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	1070 "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	1071 "X-SpamBouncer: " ; Spam
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1072 "X-Trace: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1073 "X-UIDL: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1074 "X-UserInfo1: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1075 "X-VSMLoop: " ; NTMail
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1076 "X-Vms-To: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1077 "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	1078 "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	1079 "X-pgp: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1080 "X-submission-address: "
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1081 "X400-" ; X400
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1082 "Xref: ")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1083 "*List of header fields that are not to be shown.
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1084 Regexps are not allowed. Unique fields should have a \": \" suffix; otherwise,
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1085 the element can be used to render invisible an entire class of fields that
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1086 start with the same prefix.
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1087 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	1088 :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	1089 :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	1090 :group 'mh-show)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1091
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1092
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1093
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1094 ;;; 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	1095
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1096 (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	1097 "Use either 'gnus or 'mhn to insert MIME message directives in messages."
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1098 :type '(choice (const :tag "Use Gnus" gnus)
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1099 (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	1100 :group 'mh-letter)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1101
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1102 (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	1103 "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	1104 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	1105 :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	1106 :group 'mh-letter)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1107
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1108 (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	1109 "*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	1110 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	1111 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	1112 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	1113 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1114 :group 'mh-letter)
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 (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	1117 "*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	1118 :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	1119 (const "a �crit :")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1120 (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	1121 :group 'mh-letter)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1122
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1123 (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	1124 "*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	1125 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	1126 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	1127 :type 'string
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1128 :group 'mh-letter)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1129
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1130 (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	1131 "*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	1132 \\<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	1133 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	1134 :type 'string
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1135 :group 'mh-letter)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1136
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1137 (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	1138 "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	1139 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	1140 `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	1141 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1142 :group 'mh-letter)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1143
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1144 (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	1145 "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	1146 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	1147 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	1148 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	1149
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1150 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	1151
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1152 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	1153 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	1154
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1155 This corresponds to:
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1156
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1157 (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	1158 '((\"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	1159 \"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	1160
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1161 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	1162 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	1163 mail in their To: field. It might be best to keep it simple."
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1164 :type '(repeat (list (string :tag "Regexp")
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1165 (string :tag "Address")))
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1166 :group 'mh-letter)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1167
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1168 (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	1169 "*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	1170 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1171 :group 'mh-letter)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1172
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1173 (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	1174 "*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	1175 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	1176 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	1177 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	1178 :type 'integer
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1179 :group 'mh-letter)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1180
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1181 (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	1182 "*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	1183 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	1184 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	1185 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	1186 :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	1187 (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	1188 (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	1189 :group 'mh-letter)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1190
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1191 (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	1192 "*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	1193
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1194 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	1195 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	1196 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	1197 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	1198 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	1199 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	1200 :type 'boolean
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1201 :group 'mh-letter)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1202
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1203 (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	1204 "*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	1205 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	1206 :type 'file
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1207 :group 'mh-letter)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1208
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1209 (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	1210 "*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	1211 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	1212 :type 'file
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1213 :group 'mh-letter)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1214
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1215 (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	1216 "*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	1217 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	1218 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	1219
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1220 (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	1221 "*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	1222 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	1223 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	1224 `supercite' below.
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1225
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1226 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	1227
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1228 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	1229 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	1230 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	1231
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1232 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	1233 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	1234 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	1235 -format switch.
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1236
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1237 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	1238 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	1239
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1240 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	1241 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	1242 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	1243 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	1244 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	1245 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	1246 -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	1247
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1248 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	1249
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1250 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	1251 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	1252 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	1253 :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	1254 (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	1255 (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	1256 (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	1257 (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	1258 (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	1259 autoattrib)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1260 (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	1261 :group 'mh-letter)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1262
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1263 (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	1264 "*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	1265 :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	1266 :group 'mh-letter)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1267
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1268
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1269
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1270 ;;; 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	1271
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1272 (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	1273 '("/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	1274 "*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	1275 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	1276 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	1277 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	1278 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	1279 :group 'mh-alias
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1280 :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	1281
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1282 (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	1283 "*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	1284 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	1285 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	1286 :group 'mh-alias
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1287 :type 'boolean)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1288
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1289 (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	1290 "*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	1291 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	1292 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	1293 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	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 :type 'boolean)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1296
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1297 (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	1298 "*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	1299 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	1300 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	1301 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	1302 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	1303 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	1304 :group 'mh-alias
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1305 :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	1306 (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	1307 (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	1308
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1309 (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	1310 "*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	1311
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1312 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	1313 for completion.
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1314
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1315 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	1316 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	1317 :group 'mh-alias
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1318 :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	1319
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1320 (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	1321 "*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	1322 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	1323 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	1324 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	1325 :group 'mh-alias
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1326 :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	1327 (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	1328 (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	1329
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1330 (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	1331 "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	1332 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	1333 :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	1334 (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	1335 (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	1336 :group 'mh-alias)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1337
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1338
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1339
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1340 ;;; 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	1341
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1342 (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	1343 "Indexing program that MH-E shall use.
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1344 The possible choices are swish++, swish-e, mairix, namazu, glimpse, pick and
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1345 grep. By default this variable is nil which means that the programs are tried
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1346 in order and the first one found is used.
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1347
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1348 More information about setting up an indexing program to use with MH-E can be
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1349 found in the documentation of `mh-index-search'."
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1350 :type '(choice (const :tag "Auto-detect" nil)
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1351 (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	1352 (const :tag "swish-e" swish)
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1353 (const :tag "mairix" mairix)
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1354 (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	1355 (const :tag "glimpse" glimpse)
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1356 (const :tag "pick" pick)
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1357 (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	1358 :group 'mh-index)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1359
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1360
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1361
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1362 ;;; 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	1363
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1364 (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	1365 "*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	1366 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	1367 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	1368 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	1369 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	1370
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1371 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	1372
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1373 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	1374 Keyword name: work
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1375 From
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1376 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	1377 Organization
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1378 Value: Acme Inc.
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1379 Keyword name: home
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1380 From
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1381 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	1382 Organization
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1383 Value:
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1384
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1385 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	1386 (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	1387 '((\"work\"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1388 ((\"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	1389 (\"Organization\" . \"Acme Inc.\")))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1390 (\"home\"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1391 ((\"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	1392 (\"Organization\" . \"\")))))"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1393 :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	1394 (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	1395 (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	1396 (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	1397 (const "From")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1398 (string :tag "Value"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1399 (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	1400 (const "Organization")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1401 (string :tag "Value"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1402 (cons :tag "Signature"
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1403 (const "signature")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1404 (choice (file) (function)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1405 (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	1406 (string :tag "Field")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1407 (string :tag "Value"))))))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1408 :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	1409 :group 'mh-identity)
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-identity-default nil
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1412 "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	1413 ;; 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	1414 ;; e.g.:
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1415 ;; :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	1416 ;; (const "home")
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1417 ;; (const "work"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1418 :type (append
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1419 '(radio)
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1420 (cons '(const :tag "None" nil)
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1421 (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	1422 (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	1423 :group 'mh-identity)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1424
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1425
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1426
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1427 ;;; 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	1428
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1429 ;;; 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	1430 ;;; 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	1431 ;;; 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	1432
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1433 (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	1434 "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	1435 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	1436 :type 'hook
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1437 :group 'mh-hooks
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1438 :group 'mh-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1439
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1440 (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	1441 "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	1442 :type 'hook
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1443 :group 'mh-hooks
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1444 :group 'mh-letter)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1445
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1446 (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	1447 "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	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-folder)
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-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	1453 "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	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-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	1459 "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	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-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	1465 "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	1466 :type 'hook
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1467 :group 'mh-hooks
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1468 :group 'mh-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1469
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1470 (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	1471 "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	1472 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	1473 `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	1474 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	1475 :type 'hook
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1476 :group 'mh-hooks)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1477
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1478 (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	1479 "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	1480 :type 'hook
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1481 :group 'mh-hooks
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1482 :group 'mh-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1483
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1484 (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	1485 "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	1486 :type 'hook
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1487 :group 'mh-hooks
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1488 :group 'mh-index)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1489
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1490 (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	1491 "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	1492 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	1493 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	1494 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	1495 :type 'hook
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1496 :group 'mh-hooks
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1497 :group 'mh-letter)
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 (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	1500 "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	1501 :type 'hook
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1502 :group 'mh-hooks
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1503 :group 'mh-letter)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1504
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1505 (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	1506 "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	1507 :type 'hook
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1508 :group 'mh-hooks
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1509 :group 'mh-folder)
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 (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	1512 "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	1513 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	1514 :type 'hook
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1515 :group 'mh-hooks
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1516 :group 'mh-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1517
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1518 (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	1519 "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	1520 :type 'hook
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1521 :group 'mh-hooks
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1522 :group 'mh-folder)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1523
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1524 (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	1525 "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	1526 :type 'hook
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1527 :group 'mh-hooks
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1528 :group 'mh-show)
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 (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	1531 "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	1532 :type 'hook
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1533 :group 'mh-hooks
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1534 :group 'mh-show)
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1535
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1536 (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	1537 "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	1538 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	1539 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	1540 :type 'hook
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1541 :group 'mh-hooks
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)
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
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1545
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1546 ;;; Faces
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1547
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1548 ;;; 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	1549
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1550 (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	1551 '((((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	1552 (:foreground "blue4"))
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 (:foreground "light blue")))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1555 "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	1556 :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	1557
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1558 (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	1559 '((((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	1560 (: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	1561 (((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	1562 (: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	1563 (t (:underline t)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1564 "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	1565 :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	1566
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1567 (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	1568 '((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	1569 "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	1570 :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	1571
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1572 (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	1573 '((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	1574 "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	1575 :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	1576
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1577
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1578
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1579 ;;; 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	1580
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1581 (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	1582 "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	1583 (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	1584 '((((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	1585 (((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	1586 (((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	1587 (((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	1588 (((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	1589 (t (:italic t)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1590 "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	1591 :group 'mh-folder-faces)
49598 0d8b17d428b5 Trailing whitepace deleted. Juanma Barranquero <lekktu@gmail.com> parents: 49578 diff changeset	1592
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1593 (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	1594 "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	1595 (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	1596 '((((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	1597 (:background "LightGreen"))
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 (: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	1600 ;; (: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	1601 )
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1602 (((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	1603 (:background "DarkOliveGreen4"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1604 (t (:underline t)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1605 "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	1606 :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	1607
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1608 (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	1609 "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	1610 (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	1611 '((((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	1612 (((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	1613 (((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	1614 (((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	1615 (((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	1616 (t (:bold t)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1617 "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	1618 :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	1619
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1620 (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	1621 "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	1622 (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	1623 '((((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	1624 (:foreground "snow4"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1625 (((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	1626 (:foreground "snow3"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1627 (t
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1628 (:bold t)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1629 "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	1630 :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	1631
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1632 (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	1633 "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	1634 (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	1635 '((((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	1636 (:foreground "blue3"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1637 (((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	1638 (:foreground "LightGoldenRod"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1639 (t
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1640 (:bold t)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1641 "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	1642 :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	1643
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1644 (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	1645 "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	1646 (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	1647 '((((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	1648 (:foreground "snow4"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1649 (((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	1650 (:foreground "snow3"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1651 (t
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1652 (:bold t)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1653 "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	1654 :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	1655
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1656 (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	1657 "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	1658 (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	1659
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1660 (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	1661 "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	1662 (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	1663 '((((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	1664 (((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	1665 (: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	1666 (((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	1667 (: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	1668 (((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	1669 (((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	1670 (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	1671 "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	1672 :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	1673
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1674 (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	1675 "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	1676 (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	1677 (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	1678 (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	1679 '((((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	1680 (:foreground "blue4"))
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 dark))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1682 (:foreground "yellow"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1683 (t
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1684 (:bold t)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1685 "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	1686 :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	1687
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1688 (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	1689 "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	1690 (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	1691
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1692 (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	1693 "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	1694 (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	1695
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1696 (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	1697 "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	1698 (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	1699 '((((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	1700 (((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	1701 (((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	1702 (((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	1703 (((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	1704 (t (:italic t)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1705 "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	1706 :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	1707
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1708
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1709
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1710 ;;; 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	1711
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1712 (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	1713 "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	1714 (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	1715 '((((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	1716 (((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	1717 (: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	1718 (((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	1719 (: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	1720 (((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	1721 (((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	1722 (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	1723 "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	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-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	1727 "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	1728 (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	1729 '((((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	1730 (((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	1731 (((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	1732 (((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	1733 (((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	1734 (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	1735 "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	1736 :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	1737
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1738 (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	1739 "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	1740 (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	1741 '((((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	1742 (((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	1743 (((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	1744 (((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	1745 (((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	1746 (t (:italic t)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1747 "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	1748 :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	1749
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1750 (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	1751 "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	1752 (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	1753 (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	1754 (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	1755 '((((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	1756 (: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	1757 (((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	1758 (: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	1759 (((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	1760 (((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	1761 (t (:underline t)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1762 "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	1763 :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	1764
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1765 (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	1766 "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	1767 (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	1768 '((((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	1769 (:foreground "red3"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1770 (((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	1771 (:foreground "cyan"))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1772 (t
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1773 (:bold t)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1774 "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	1775 :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	1776
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1777 (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	1778 "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	1779 (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	1780
49578 b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1781
b35587af8747 Upgraded to MH-E version 7.2. Bill Wohler <wohler@newt.com> parents: 49459 diff changeset	1782
49459 06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1783 ;;; 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	1784
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1785 (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	1786 "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	1787 (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	1788 '((((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	1789 (: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	1790 (((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	1791 (: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	1792 (t
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1793 (:bold t)))
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1794 "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	1795 :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	1796
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1797 ;;; Local Variables:
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1798 ;;; 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	1799 ;;; 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	1800 ;;; End:
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1801
06b77df47802 * mh-e: Created directory. ChangeLog will appear in a week when we Bill Wohler <wohler@newt.com> parents: diff changeset	1802 ;;; mh-customize.el ends here

Mercurial > emacs

annotate lisp/mh-e/mh-customize.el @ 50338:155b4b78aa3b