Mercurial > emacs

comparison lisp/mh-e/mh-customize.el @ 68192:2cfa649fa39d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* mh-customize.el (mh-index): Rename group to mh-search and sort group definition and options accordingly. (mh-index-program): Rename to mh-search-program. (mh-kill-folder-suppress-prompt-hooks): Rename mh-index-p to mh-search-p. (mh-search-mode-hook): Change group from mh-index to mh-search. (mh-index-folder): Rename to mh-search-folder. Change group from mh-index to mh-search. * mh-e.el (mh-folder-font-lock-keywords): Rename mh-index-folder to mh-search-folder. * mh-search.el (mh-indexer) Rename to mh-searcher. The commands pick and grep are searchers too but aren't indexed. (mh-index-execute-search-function): Rename to mh-search-function. (mh-index-next-result-function): Rename to mh-search-next-result-function. (mh-index-regexp-builder): Rename to mh-search-regexp-builder. (mh-search): Since redo-search-flag defaults to nil and is of lesser importance, make it an optional argument and place it after the folder and search-regexp arguments. Sync docstring with manual. (mh-search-mode-map): Autoload so that keys are shown in help even before mh-search is loaded. (mh-search-mode): Sync docstring with manual. (mh-index-do-search): Rename argument indexer to searcher. Sync docstring with manual. (mh-pick-do-search): Sync docstring with manual. (mh-index-p): Rename to mh-search-p. (mh-indexer-choices): Rename to mh-search-choices. (mh-index-choose): Rename to mh-search-choose. Rename argument indexer to searcher. (mh-swish++-execute-search, mh-swish-execute-search) (mh-mairix-execute-search, mh-namazu-execute-search): Drop "and read the results" from docstring since these functions don't. (mh-pick-execute-search, mh-grep-execute-search): Sync docstring with manual. (mh-index-generate-pretty-name): Prune -search from string so that folder names for pick searches are the same as those of other searches.
author Bill Wohler <wohler@newt.com>
date Sat, 14 Jan 2006 21:17:37 +0000
parents 3b7532a82079
children 5012e59a73c7
comparison
equal deleted inserted replaced
68191:80bda70f9d68 68192:2cfa649fa39d
132 "Incorporating your mail." 132 "Incorporating your mail."
133 :prefix "mh-inc-" 133 :prefix "mh-inc-"
134 :link '(custom-manual "(mh-e)Incorporating Mail") 134 :link '(custom-manual "(mh-e)Incorporating Mail")
135 :group 'mh-e) 135 :group 'mh-e)
136 136
137 (defgroup mh-index nil
138 "Searching."
139 :link '(custom-manual "(mh-e)Searching")
140 :prefix "mh-index-"
141 :group 'mh-e)
142
143 (defgroup mh-junk nil 137 (defgroup mh-junk nil
144 "Dealing with junk mail." 138 "Dealing with junk mail."
145 :link '(custom-manual "(mh-e)Junk") 139 :link '(custom-manual "(mh-e)Junk")
146 :prefix "mh-junk-" 140 :prefix "mh-junk-"
147 :group 'mh-e) 141 :group 'mh-e)
160 154
161 (defgroup mh-scan-line-formats nil 155 (defgroup mh-scan-line-formats nil
162 "Scan line formats." 156 "Scan line formats."
163 :link '(custom-manual "(mh-e)Scan Line Formats") 157 :link '(custom-manual "(mh-e)Scan Line Formats")
164 :prefix "mh-" 158 :prefix "mh-"
159 :group 'mh-e)
160
161 (defgroup mh-search nil
162 "Searching."
163 :link '(custom-manual "(mh-e)Searching")
164 :prefix "mh-search-"
165 :group 'mh-e) 165 :group 'mh-e)
166 166
167 (defgroup mh-sending-mail nil 167 (defgroup mh-sending-mail nil
168 "Sending mail." 168 "Sending mail."
169 :prefix "mh-" 169 :prefix "mh-"
711 :set 'mh-inc-spool-list-set 711 :set 'mh-inc-spool-list-set
712 :group 'mh-inc) 712 :group 'mh-inc)
713 713
714 714
715 715
716 ;;; Searching (:group 'mh-index)
717
718 (defcustom mh-index-program nil
719 "Indexing program that MH-E shall use.
720
721 The default setting of this option is \"Auto-detect\" which means
722 that MH-E will automatically choose one of swish++, swish-e,
723 mairix, namazu, pick and grep in that order. If, for example, you
724 have both swish++ and mairix installed and you want to use
725 mairix, then you can set this option to \"mairix\".
726
727 More information about setting up an indexing program to use with
728 MH-E can be found in the documentation of `mh-search'."
729 :type '(choice (const :tag "Auto-detect" nil)
730 (const :tag "swish++" swish++)
731 (const :tag "swish-e" swish)
732 (const :tag "mairix" mairix)
733 (const :tag "namazu" namazu)
734 (const :tag "pick" pick)
735 (const :tag "grep" grep))
736 :group 'mh-index)
737
738
739
740 ;;; Dealing with Junk Mail (:group 'mh-junk) 716 ;;; Dealing with Junk Mail (:group 'mh-junk)
741 717
742 ;; Spam fighting program chosen 718 ;; Spam fighting program chosen
743 (defvar mh-junk-choice nil) 719 (defvar mh-junk-choice nil)
744 720
1109 directory. You may link another program to `scan' (see 1085 directory. You may link another program to `scan' (see
1110 \"mh-profile(5)\") to produce a different type of listing." 1086 \"mh-profile(5)\") to produce a different type of listing."
1111 :type 'string 1087 :type 'string
1112 :group 'mh-scan-line-formats) 1088 :group 'mh-scan-line-formats)
1113 (make-variable-buffer-local 'mh-scan-prog) 1089 (make-variable-buffer-local 'mh-scan-prog)
1090
1091
1092
1093 ;;; Searching (:group 'mh-search)
1094
1095 (defcustom mh-search-program nil
1096 "Search program that MH-E shall use.
1097
1098 The default setting of this option is \"Auto-detect\" which means
1099 that MH-E will automatically choose one of swish++, swish-e,
1100 mairix, namazu, pick and grep in that order. If, for example, you
1101 have both swish++ and mairix installed and you want to use
1102 mairix, then you can set this option to \"mairix\".
1103
1104 More information about setting up an indexing program to use with
1105 MH-E can be found in the documentation of `mh-search'."
1106 :type '(choice (const :tag "Auto-detect" nil)
1107 (const :tag "swish++" swish++)
1108 (const :tag "swish-e" swish)
1109 (const :tag "mairix" mairix)
1110 (const :tag "namazu" namazu)
1111 (const :tag "pick" pick)
1112 (const :tag "grep" grep))
1113 :group 'mh-search)
1114 1114
1115 1115
1116 1116
1117 ;;; Sending Mail (:group 'mh-sending-mail) 1117 ;;; Sending Mail (:group 'mh-sending-mail)
1118 1118
2398 `mh-signature-file-name'." 2398 `mh-signature-file-name'."
2399 :type 'hook 2399 :type 'hook
2400 :group 'mh-hooks 2400 :group 'mh-hooks
2401 :group 'mh-letter) 2401 :group 'mh-letter)
2402 2402
2403 (defcustom mh-kill-folder-suppress-prompt-hooks '(mh-index-p) 2403 (defcustom mh-kill-folder-suppress-prompt-hooks '(mh-search-p)
2404 "Abnormal hook run at the beginning of \\<mh-folder-mode-map>\\[mh-kill-folder]. 2404 "Abnormal hook run at the beginning of \\<mh-folder-mode-map>\\[mh-kill-folder].
2405 2405
2406 The hook functions are called with no arguments and should return 2406 The hook functions are called with no arguments and should return
2407 a non-nil value to suppress the normal prompt when you remove a 2407 a non-nil value to suppress the normal prompt when you remove a
2408 folder. This is useful for folders that are easily regenerated. 2408 folder. This is useful for folders that are easily regenerated.
2409 2409
2410 The default value of `mh-index-p' suppresses the prompt on 2410 The default value of `mh-search-p' suppresses the prompt on
2411 folders generated by an index search. 2411 folders generated by searching.
2412 2412
2413 WARNING: Use this hook with care. If there is a bug in your hook 2413 WARNING: Use this hook with care. If there is a bug in your hook
2414 which returns t on \"+inbox\" and you hit \\[mh-kill-folder] by 2414 which returns t on \"+inbox\" and you hit \\[mh-kill-folder] by
2415 accident in the \"+inbox\" folder, you will not be happy." 2415 accident in the \"+inbox\" folder, you will not be happy."
2416 :type 'hook 2416 :type 'hook
2442 the search template, you may wish to bind some shortcuts to keys. 2442 the search template, you may wish to bind some shortcuts to keys.
2443 This can be done with this hook which is called when 2443 This can be done with this hook which is called when
2444 \\[mh-search] is run on a new pattern." 2444 \\[mh-search] is run on a new pattern."
2445 :type 'hook 2445 :type 'hook
2446 :group 'mh-hooks 2446 :group 'mh-hooks
2447 :group 'mh-index) 2447 :group 'mh-search)
2448 2448
2449 (defcustom mh-quit-hook nil 2449 (defcustom mh-quit-hook nil
2450 "Hook run by \\<mh-folder-mode-map>\\[mh-quit] after quitting MH-E. 2450 "Hook run by \\<mh-folder-mode-map>\\[mh-quit] after quitting MH-E.
2451 2451
2452 This hook is not run in an MH-E context, so you might use it to 2452 This hook is not run in an MH-E context, so you might use it to
2627 (:italic t)))) 2627 (:italic t))))
2628 "\"To:\" face." 2628 "\"To:\" face."
2629 :group 'mh-faces 2629 :group 'mh-faces
2630 :group 'mh-folder) 2630 :group 'mh-folder)
2631 2631
2632 (defface mh-index-folder 2632 (defface mh-search-folder
2633 '((((class color) (background light)) 2633 '((((class color) (background light))
2634 (:foreground "dark green" :bold t)) 2634 (:foreground "dark green" :bold t))
2635 (((class color) (background dark)) 2635 (((class color) (background dark))
2636 (:foreground "indian red" :bold t)) 2636 (:foreground "indian red" :bold t))
2637 (t 2637 (t
2638 (:bold t))) 2638 (:bold t)))
2639 "Folder heading face in MH-Folder buffers created by searches." 2639 "Folder heading face in MH-Folder buffers created by searches."
2640 :group 'mh-faces 2640 :group 'mh-faces
2641 :group 'mh-index) 2641 :group 'mh-search)
2642 2642
2643 (defface mh-letter-header-field 2643 (defface mh-letter-header-field
2644 '((((class color) (background light)) 2644 '((((class color) (background light))
2645 (:background "gray90")) 2645 (:background "gray90"))
2646 (((class color) (background dark)) 2646 (((class color) (background dark))