Mercurial > emacs
comparison lisp/mh-e/mh-customize.el @ 68192:2cfa649fa39d
* 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)) |