aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBill Wohler2006-03-30 23:39:32 +0000
committerBill Wohler2006-03-30 23:39:32 +0000
commit23347d769dc6d0ad1327cc1ce6acfebb8d6a4f72 (patch)
treea91ba35373849a86940f34bea953497ee90a469d
parent29444a2f7c59b33530cfeff18d4e3d2c6068da31 (diff)
downloademacs-23347d769dc6d0ad1327cc1ce6acfebb8d6a4f72.tar.gz
emacs-23347d769dc6d0ad1327cc1ce6acfebb8d6a4f72.zip
* mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to remove
new :package-version keyword in older settings. (customize-package-emacs-version-alist): Add MH-E version to Emacs version mappings. (mh-e, mh-alias, mh-folder, mh-folder-selection) (mh-identity, mh-inc, mh-junk, mh-letter, mh-ranges) (mh-scan-line-formats, mh-search, mh-sending-mail) (mh-sequences, mh-show, mh-speedbar, mh-thread, mh-tool-bar) (mh-hooks, mh-faces): Add :package-version keyword to these groups. (mh-alias-completion-ignore-case-flag) (mh-alias-expand-aliases-flag, mh-alias-flash-on-comma) (mh-alias-insert-file, mh-alias-insertion-location) (mh-alias-local-users, mh-alias-local-users-prefix) (mh-alias-passwd-gecos-comma-separator-flag) (mh-new-messages-folders, mh-ticked-messages-folders) (mh-large-folder, mh-recenter-summary-flag) (mh-recursive-folders-flag, mh-sortm-args) (mh-default-folder-for-message-function) (mh-default-folder-list, mh-default-folder-must-exist-flag) (mh-default-folder-prefix, mh-identity-list) (mh-auto-fields-list, mh-auto-fields-prompt-flag) (mh-identity-default, mh-identity-handlers, mh-inc-prog) (mh-inc-spool-list, mh-junk-background, mh-junk-disposition) (mh-junk-program, mh-compose-insertion) (mh-compose-skipped-header-fields) (mh-compose-space-does-completion-flag) (mh-delete-yanked-msg-window-flag) (mh-extract-from-attribution-verb, mh-ins-buf-prefix) (mh-letter-complete-function, mh-letter-fill-column) (mh-mml-method-default, mh-signature-file-name) (mh-signature-separator-flag, mh-x-face-file) (mh-yank-behavior, mh-interpret-number-as-range-flag) (mh-adaptive-cmd-note-flag, mh-scan-format-file, mh-scan-prog) (mh-search-program, mh-compose-forward-as-mime-flag) (mh-compose-letter-function, mh-compose-prompt-flag) (mh-forward-subject-format, mh-insert-x-mailer-flag) (mh-redist-full-contents-flag, mh-reply-default-reply-to) (mh-reply-show-message-flag) (mh-refile-preserves-sequences-flag, mh-tick-seq) (mh-update-sequences-after-mh-show-flag) (mh-bury-show-buffer-flag, mh-clean-message-header-flag) (mh-decode-mime-flag) (mh-display-buttons-for-alternatives-flag) (mh-display-buttons-for-inline-parts-flag) (mh-do-not-confirm-flag, mh-fetch-x-image-url) (mh-graphical-smileys-flag, mh-graphical-emphasis-flag) (mh-highlight-citation-style, mh-invisible-header-fields) (mh-invisible-header-fields-default, mh-lpr-command-format) (mh-max-inline-image-height, mh-max-inline-image-width) (mh-mhl-format-file, mh-mime-save-parts-default-directory) (mh-print-background-flag, mh-show-maximum-size) (mh-show-use-xface-flag, mh-store-default-directory) (mh-summary-height, mh-speed-update-interval) (mh-show-threads-flag, mh-tool-bar-search-function): Add :package-version keyword to these options. (mh-after-commands-processed-hook) (mh-alias-reloaded-hook, mh-before-commands-processed-hook) (mh-before-quit-hook, mh-before-send-letter-hook) (mh-delete-msg-hook, mh-find-path-hook, mh-folder-mode-hook) (mh-forward-hook, mh-inc-folder-hook) (mh-insert-signature-hook) (mh-kill-folder-suppress-prompt-hooks, mh-letter-mode-hook) (mh-mh-to-mime-hook, mh-search-mode-hook, mh-quit-hook) (mh-refile-msg-hook, mh-show-hook, mh-show-mode-hook) (mh-unseen-updated-hook): Add :package-version keyword to these hooks. (mh-min-colors-defined-flag) (mh-folder-address, mh-folder-body, mh-folder-cur-msg-number) (mh-folder-date, mh-folder-deleted, mh-folder-followup) (mh-folder-msg-number, mh-folder-refiled) (mh-folder-sent-to-me-hint, mh-folder-sent-to-me-sender) (mh-folder-subject, mh-folder-tick, mh-folder-to) (mh-letter-header-field, mh-search-folder, mh-show-cc) (mh-show-date, mh-show-from, mh-show-header, mh-show-pgg-bad) (mh-show-pgg-good, mh-show-pgg-unknown, mh-show-signature) (mh-show-subject, mh-show-to, mh-show-xface) (mh-speedbar-folder, mh-speedbar-folder-with-unseen-messages) (mh-speedbar-selected-folder) (mh-speedbar-selected-folder-with-unseen-messages): : Add :package-version keyword to these faces. * mh-tool-bar.el (mh-tool-bar-define): Added commented-out :package-version keywords.
Diffstat
-rw-r--r--lisp/mh-e/ChangeLog87
-rw-r--r--lisp/mh-e/mh-e.el863
-rw-r--r--lisp/mh-e/mh-tool-bar.el8
3 files changed, 616 insertions, 342 deletions
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 45ebe7e97f2..64876717392 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,90 @@
12006-03-30 Bill Wohler <wohler@newt.com>
2
3 * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to
4 remove new :package-version keyword in older settings.
5 (customize-package-emacs-version-alist): Add MH-E version to Emacs
6 version mappings.
7 (mh-e, mh-alias, mh-folder, mh-folder-selection)
8 (mh-identity, mh-inc, mh-junk, mh-letter, mh-ranges)
9 (mh-scan-line-formats, mh-search, mh-sending-mail)
10 (mh-sequences, mh-show, mh-speedbar, mh-thread, mh-tool-bar)
11 (mh-hooks, mh-faces): Add :package-version keyword to these
12 groups.
13 (mh-alias-completion-ignore-case-flag)
14 (mh-alias-expand-aliases-flag, mh-alias-flash-on-comma)
15 (mh-alias-insert-file, mh-alias-insertion-location)
16 (mh-alias-local-users, mh-alias-local-users-prefix)
17 (mh-alias-passwd-gecos-comma-separator-flag)
18 (mh-new-messages-folders, mh-ticked-messages-folders)
19 (mh-large-folder, mh-recenter-summary-flag)
20 (mh-recursive-folders-flag, mh-sortm-args)
21 (mh-default-folder-for-message-function)
22 (mh-default-folder-list, mh-default-folder-must-exist-flag)
23 (mh-default-folder-prefix, mh-identity-list)
24 (mh-auto-fields-list, mh-auto-fields-prompt-flag)
25 (mh-identity-default, mh-identity-handlers, mh-inc-prog)
26 (mh-inc-spool-list, mh-junk-background, mh-junk-disposition)
27 (mh-junk-program, mh-compose-insertion)
28 (mh-compose-skipped-header-fields)
29 (mh-compose-space-does-completion-flag)
30 (mh-delete-yanked-msg-window-flag)
31 (mh-extract-from-attribution-verb, mh-ins-buf-prefix)
32 (mh-letter-complete-function, mh-letter-fill-column)
33 (mh-mml-method-default, mh-signature-file-name)
34 (mh-signature-separator-flag, mh-x-face-file)
35 (mh-yank-behavior, mh-interpret-number-as-range-flag)
36 (mh-adaptive-cmd-note-flag, mh-scan-format-file, mh-scan-prog)
37 (mh-search-program, mh-compose-forward-as-mime-flag)
38 (mh-compose-letter-function, mh-compose-prompt-flag)
39 (mh-forward-subject-format, mh-insert-x-mailer-flag)
40 (mh-redist-full-contents-flag, mh-reply-default-reply-to)
41 (mh-reply-show-message-flag)
42 (mh-refile-preserves-sequences-flag, mh-tick-seq)
43 (mh-update-sequences-after-mh-show-flag)
44 (mh-bury-show-buffer-flag, mh-clean-message-header-flag)
45 (mh-decode-mime-flag)
46 (mh-display-buttons-for-alternatives-flag)
47 (mh-display-buttons-for-inline-parts-flag)
48 (mh-do-not-confirm-flag, mh-fetch-x-image-url)
49 (mh-graphical-smileys-flag, mh-graphical-emphasis-flag)
50 (mh-highlight-citation-style, mh-invisible-header-fields)
51 (mh-invisible-header-fields-default, mh-lpr-command-format)
52 (mh-max-inline-image-height, mh-max-inline-image-width)
53 (mh-mhl-format-file, mh-mime-save-parts-default-directory)
54 (mh-print-background-flag, mh-show-maximum-size)
55 (mh-show-use-xface-flag, mh-store-default-directory)
56 (mh-summary-height, mh-speed-update-interval)
57 (mh-show-threads-flag, mh-tool-bar-search-function): Add
58 :package-version keyword to these options.
59 (mh-after-commands-processed-hook)
60 (mh-alias-reloaded-hook, mh-before-commands-processed-hook)
61 (mh-before-quit-hook, mh-before-send-letter-hook)
62 (mh-delete-msg-hook, mh-find-path-hook, mh-folder-mode-hook)
63 (mh-forward-hook, mh-inc-folder-hook)
64 (mh-insert-signature-hook)
65 (mh-kill-folder-suppress-prompt-hooks, mh-letter-mode-hook)
66 (mh-mh-to-mime-hook, mh-search-mode-hook, mh-quit-hook)
67 (mh-refile-msg-hook, mh-show-hook, mh-show-mode-hook)
68 (mh-unseen-updated-hook): Add :package-version keyword to these
69 hooks.
70 (mh-min-colors-defined-flag)
71 (mh-folder-address, mh-folder-body, mh-folder-cur-msg-number)
72 (mh-folder-date, mh-folder-deleted, mh-folder-followup)
73 (mh-folder-msg-number, mh-folder-refiled)
74 (mh-folder-sent-to-me-hint, mh-folder-sent-to-me-sender)
75 (mh-folder-subject, mh-folder-tick, mh-folder-to)
76 (mh-letter-header-field, mh-search-folder, mh-show-cc)
77 (mh-show-date, mh-show-from, mh-show-header, mh-show-pgg-bad)
78 (mh-show-pgg-good, mh-show-pgg-unknown, mh-show-signature)
79 (mh-show-subject, mh-show-to, mh-show-xface)
80 (mh-speedbar-folder, mh-speedbar-folder-with-unseen-messages)
81 (mh-speedbar-selected-folder)
82 (mh-speedbar-selected-folder-with-unseen-messages): : Add
83 :package-version keyword to these faces.
84
85 * mh-tool-bar.el (mh-tool-bar-define): Added commented-out
86 :package-version keywords.
87
12006-03-28 Bill Wohler <wohler@newt.com> 882006-03-28 Bill Wohler <wohler@newt.com>
2 89
3 * mh-tool-bar.el: Use clipboard-kill-region, 90 * mh-tool-bar.el: Use clipboard-kill-region,
diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el
index 428b4b04555..ce2db4fb66e 100644
--- a/lisp/mh-e/mh-e.el
+++ b/lisp/mh-e/mh-e.el
@@ -888,6 +888,58 @@ necessary and can actually cause problems."
888 888
889 889
890 890
891;;; MH-E Customization Support Routines
892
893;; Shush compiler (Emacs 21 and XEmacs).
894(defvar customize-package-emacs-version-alist)
895
896;; Temporary function and data structure used customization.
897;; These will be unbound after the options are defined.
898(defmacro mh-defgroup (symbol members doc &rest args)
899 "Declare SYMBOL as a customization group containing MEMBERS.
900See documentation for `defgroup' for a description of the arguments
901SYMBOL, MEMBERS, DOC and ARGS.
902This macro is used by Emacs versions that lack the :package-version
903keyword, introduced in Emacs 22."
904 (declare (doc-string 3))
905 `(defgroup ,symbol ,members ,doc ,@(mh-strip-package-version args)))
906(put 'mh-defgroup 'lisp-indent-function 'defun)
907
908(defmacro mh-defcustom (symbol value doc &rest args)
909 "Declare SYMBOL as a customizable variable that defaults to VALUE.
910See documentation for `defcustom' for a description of the arguments
911SYMBOL, VALUE, DOC and ARGS.
912This macro is used by Emacs versions that lack the :package-version
913keyword, introduced in Emacs 22."
914 (declare (doc-string 3))
915 `(defcustom ,symbol ,value ,doc ,@(mh-strip-package-version args)))
916(put 'mh-defcustom 'lisp-indent-function 'defun)
917
918(defmacro mh-defface (face spec doc &rest args)
919 "Declare FACE as a customizable face that defaults to SPEC.
920See documentation for `defface' for a description of the arguments
921FACE, SPEC, DOC and ARGS.
922This macro is used by Emacs versions that lack the :package-version
923keyword, introduced in Emacs 22."
924 (declare (doc-string 3))
925 `(defface ,face ,spec ,doc ,@(mh-strip-package-version args)))
926(put 'mh-defface 'lisp-indent-function 'defun)
927
928(defun mh-strip-package-version (args)
929 "Strip :package-version keyword and its value from ARGS.
930In Emacs versions that support the :package-version keyword,
931ARGS is returned unchanged."
932 (if (boundp 'customize-package-emacs-version-alist)
933 args
934 (let (seen)
935 (loop for keyword in args
936 if (cond ((eq keyword ':package-version) (setq seen t) nil)
937 (seen (setq seen nil) nil)
938 (t t))
939 collect keyword))))
940
941
942
891;;; MH-E Customization 943;;; MH-E Customization
892 944
893;; All of the defgroups, defcustoms, and deffaces in MH-E are found 945;; All of the defgroups, defcustoms, and deffaces in MH-E are found
@@ -933,135 +985,160 @@ windows in the frame are removed."
933 (when delete-other-windows-flag 985 (when delete-other-windows-flag
934 (delete-other-windows))) 986 (delete-other-windows)))
935 987
988(if (boundp 'customize-package-emacs-version-alist)
989 (add-to-list 'customize-package-emacs-version-alist
990 '(MH-E ("6.0" "22.1") ("6.1" "22.1") ("7.0" "22.1")
991 ("7.1" "22.1") ("7.2" "22.1") ("7.3" "22.1")
992 ("7.4" "22.1") ("8.0" "22.1"))))
993
936 994
937 995
938;;; MH-E Customization Groups 996;;; MH-E Customization Groups
939 997
940(defgroup mh-e nil 998(mh-defgroup mh-e nil
941 "Emacs interface to the MH mail system. 999 "Emacs interface to the MH mail system.
942MH is the Rand Mail Handler. Other implementations include nmh 1000MH is the Rand Mail Handler. Other implementations include nmh
943and GNU mailutils." 1001and GNU mailutils."
944 :link '(custom-manual "(mh-e)Top") 1002 :link '(custom-manual "(mh-e)Top")
945 :group 'mail) 1003 :group 'mail
1004 :package-version '(MH-E "8.0"))
946 1005
947(defgroup mh-alias nil 1006(mh-defgroup mh-alias nil
948 "Aliases." 1007 "Aliases."
949 :link '(custom-manual "(mh-e)Aliases") 1008 :link '(custom-manual "(mh-e)Aliases")
950 :prefix "mh-alias-" 1009 :prefix "mh-alias-"
951 :group 'mh-e) 1010 :group 'mh-e
1011 :package-version '(MH-E "7.1"))
952 1012
953(defgroup mh-folder nil 1013(mh-defgroup mh-folder nil
954 "Organizing your mail with folders." 1014 "Organizing your mail with folders."
955 :prefix "mh-" 1015 :prefix "mh-"
956 :link '(custom-manual "(mh-e)Folders") 1016 :link '(custom-manual "(mh-e)Folders")
957 :group 'mh-e) 1017 :group 'mh-e
1018 :package-version '(MH-E "7.1"))
958 1019
959(defgroup mh-folder-selection nil 1020(mh-defgroup mh-folder-selection nil
960 "Folder selection." 1021 "Folder selection."
961 :prefix "mh-" 1022 :prefix "mh-"
962 :link '(custom-manual "(mh-e)Folder Selection") 1023 :link '(custom-manual "(mh-e)Folder Selection")
963 :group 'mh-e) 1024 :group 'mh-e
1025 :package-version '(MH-E "8.0"))
964 1026
965(defgroup mh-identity nil 1027(mh-defgroup mh-identity nil
966 "Identities." 1028 "Identities."
967 :link '(custom-manual "(mh-e)Identities") 1029 :link '(custom-manual "(mh-e)Identities")
968 :prefix "mh-identity-" 1030 :prefix "mh-identity-"
969 :group 'mh-e) 1031 :group 'mh-e
1032 :package-version '(MH-E "7.1"))
970 1033
971(defgroup mh-inc nil 1034(mh-defgroup mh-inc nil
972 "Incorporating your mail." 1035 "Incorporating your mail."
973 :prefix "mh-inc-" 1036 :prefix "mh-inc-"
974 :link '(custom-manual "(mh-e)Incorporating Mail") 1037 :link '(custom-manual "(mh-e)Incorporating Mail")
975 :group 'mh-e) 1038 :group 'mh-e
1039 :package-version '(MH-E "8.0"))
976 1040
977(defgroup mh-junk nil 1041(mh-defgroup mh-junk nil
978 "Dealing with junk mail." 1042 "Dealing with junk mail."
979 :link '(custom-manual "(mh-e)Junk") 1043 :link '(custom-manual "(mh-e)Junk")
980 :prefix "mh-junk-" 1044 :prefix "mh-junk-"
981 :group 'mh-e) 1045 :group 'mh-e
1046 :package-version '(MH-E "7.3"))
982 1047
983(defgroup mh-letter nil 1048(mh-defgroup mh-letter nil
984 "Editing a draft." 1049 "Editing a draft."
985 :prefix "mh-" 1050 :prefix "mh-"
986 :link '(custom-manual "(mh-e)Editing Drafts") 1051 :link '(custom-manual "(mh-e)Editing Drafts")
987 :group 'mh-e) 1052 :group 'mh-e
1053 :package-version '(MH-E "7.1"))
988 1054
989(defgroup mh-ranges nil 1055(mh-defgroup mh-ranges nil
990 "Ranges." 1056 "Ranges."
991 :prefix "mh-" 1057 :prefix "mh-"
992 :link '(custom-manual "(mh-e)Ranges") 1058 :link '(custom-manual "(mh-e)Ranges")
993 :group 'mh-e) 1059 :group 'mh-e
1060 :package-version '(MH-E "8.0"))
994 1061
995(defgroup mh-scan-line-formats nil 1062(mh-defgroup mh-scan-line-formats nil
996 "Scan line formats." 1063 "Scan line formats."
997 :link '(custom-manual "(mh-e)Scan Line Formats") 1064 :link '(custom-manual "(mh-e)Scan Line Formats")
998 :prefix "mh-" 1065 :prefix "mh-"
999 :group 'mh-e) 1066 :group 'mh-e
1067 :package-version '(MH-E "8.0"))
1000 1068
1001(defgroup mh-search nil 1069(mh-defgroup mh-search nil
1002 "Searching." 1070 "Searching."
1003 :link '(custom-manual "(mh-e)Searching") 1071 :link '(custom-manual "(mh-e)Searching")
1004 :prefix "mh-search-" 1072 :prefix "mh-search-"
1005 :group 'mh-e) 1073 :group 'mh-e
1074 :package-version '(MH-E "8.0"))
1006 1075
1007(defgroup mh-sending-mail nil 1076(mh-defgroup mh-sending-mail nil
1008 "Sending mail." 1077 "Sending mail."
1009 :prefix "mh-" 1078 :prefix "mh-"
1010 :link '(custom-manual "(mh-e)Sending Mail") 1079 :link '(custom-manual "(mh-e)Sending Mail")
1011 :group 'mh-e) 1080 :group 'mh-e
1081 :package-version '(MH-E "8.0"))
1012 1082
1013(defgroup mh-sequences nil 1083(mh-defgroup mh-sequences nil
1014 "Sequences." 1084 "Sequences."
1015 :prefix "mh-" 1085 :prefix "mh-"
1016 :link '(custom-manual "(mh-e)Sequences") 1086 :link '(custom-manual "(mh-e)Sequences")
1017 :group 'mh-e) 1087 :group 'mh-e
1088 :package-version '(MH-E "8.0"))
1018 1089
1019(defgroup mh-show nil 1090(mh-defgroup mh-show nil
1020 "Reading your mail." 1091 "Reading your mail."
1021 :prefix "mh-" 1092 :prefix "mh-"
1022 :link '(custom-manual "(mh-e)Reading Mail") 1093 :link '(custom-manual "(mh-e)Reading Mail")
1023 :group 'mh-e) 1094 :group 'mh-e
1095 :package-version '(MH-E "7.1"))
1024 1096
1025(defgroup mh-speedbar nil 1097(mh-defgroup mh-speedbar nil
1026 "The speedbar." 1098 "The speedbar."
1027 :prefix "mh-speed-" 1099 :prefix "mh-speed-"
1028 :link '(custom-manual "(mh-e)Speedbar") 1100 :link '(custom-manual "(mh-e)Speedbar")
1029 :group 'mh-e) 1101 :group 'mh-e
1102 :package-version '(MH-E "8.0"))
1030 1103
1031(defgroup mh-thread nil 1104(mh-defgroup mh-thread nil
1032 "Threading." 1105 "Threading."
1033 :prefix "mh-thread-" 1106 :prefix "mh-thread-"
1034 :link '(custom-manual "(mh-e)Threading") 1107 :link '(custom-manual "(mh-e)Threading")
1035 :group 'mh-e) 1108 :group 'mh-e
1109 :package-version '(MH-E "8.0"))
1036 1110
1037(defgroup mh-tool-bar nil 1111(mh-defgroup mh-tool-bar nil
1038 "The tool bar" 1112 "The tool bar"
1039 :link '(custom-manual "(mh-e)Tool Bar") 1113 :link '(custom-manual "(mh-e)Tool Bar")
1040 :prefix "mh-" 1114 :prefix "mh-"
1041 :group 'mh-e) 1115 :group 'mh-e
1116 :package-version '(MH-E "8.0"))
1042 1117
1043(defgroup mh-hooks nil 1118(mh-defgroup mh-hooks nil
1044 "MH-E hooks." 1119 "MH-E hooks."
1045 :link '(custom-manual "(mh-e)Top") 1120 :link '(custom-manual "(mh-e)Top")
1046 :prefix "mh-" 1121 :prefix "mh-"
1047 :group 'mh-e) 1122 :group 'mh-e
1123 :package-version '(MH-E "7.1"))
1048 1124
1049(defgroup mh-faces nil 1125(mh-defgroup mh-faces nil
1050 "Faces used in MH-E." 1126 "Faces used in MH-E."
1051 :link '(custom-manual "(mh-e)Top") 1127 :link '(custom-manual "(mh-e)Top")
1052 :prefix "mh-" 1128 :prefix "mh-"
1053 :group 'faces 1129 :group 'faces
1054 :group 'mh-e) 1130 :group 'mh-e
1131 :package-version '(MH-E "7.1"))
1055 1132
1056 1133
1057 1134
1058;;; Emacs Interface to the MH Mail System (:group mh-e) 1135;;; MH-E Customization
1059 1136
1060;; See Variant Support, above. 1137;; See Variant Support, above, for mh-e group.
1061 1138
1062;;; Aliases (:group 'mh-alias) 1139;;; Aliases (:group 'mh-alias)
1063 1140
1064(defcustom mh-alias-completion-ignore-case-flag t 1141(mh-defcustom mh-alias-completion-ignore-case-flag t
1065 "*Non-nil means don't consider case significant in MH alias completion. 1142 "*Non-nil means don't consider case significant in MH alias completion.
1066 1143
1067As MH ignores case in the aliases, so too does MH-E. However, you 1144As MH ignores case in the aliases, so too does MH-E. However, you
@@ -1069,18 +1146,20 @@ may turn off this option to make case significant which can be
1069used to segregate completion of your aliases. You might use 1146used to segregate completion of your aliases. You might use
1070lowercase for mailing lists and uppercase for people." 1147lowercase for mailing lists and uppercase for people."
1071 :type 'boolean 1148 :type 'boolean
1072 :group 'mh-alias) 1149 :group 'mh-alias
1150 :package-version '(MH-E "7.1"))
1073 1151
1074(defcustom mh-alias-expand-aliases-flag nil 1152(mh-defcustom mh-alias-expand-aliases-flag nil
1075 "*Non-nil means to expand aliases entered in the minibuffer. 1153 "*Non-nil means to expand aliases entered in the minibuffer.
1076 1154
1077In other words, aliases entered in the minibuffer will be 1155In other words, aliases entered in the minibuffer will be
1078expanded to the full address in the message draft. By default, 1156expanded to the full address in the message draft. By default,
1079this expansion is not performed." 1157this expansion is not performed."
1080 :type 'boolean 1158 :type 'boolean
1081 :group 'mh-alias) 1159 :group 'mh-alias
1160 :package-version '(MH-E "7.1"))
1082 1161
1083(defcustom mh-alias-flash-on-comma t 1162(mh-defcustom mh-alias-flash-on-comma t
1084 "*Specify whether to flash address or warn on translation. 1163 "*Specify whether to flash address or warn on translation.
1085 1164
1086This option controls the behavior when a [comma] is pressed while 1165This option controls the behavior when a [comma] is pressed while
@@ -1090,9 +1169,10 @@ does not display a warning if the alias is not found."
1090 :type '(choice (const :tag "Flash but Don't Warn If No Alias" t) 1169 :type '(choice (const :tag "Flash but Don't Warn If No Alias" t)
1091 (const :tag "Flash and Warn If No Alias" 1) 1170 (const :tag "Flash and Warn If No Alias" 1)
1092 (const :tag "Don't Flash Nor Warn If No Alias" nil)) 1171 (const :tag "Don't Flash Nor Warn If No Alias" nil))
1093 :group 'mh-alias) 1172 :group 'mh-alias
1173 :package-version '(MH-E "7.1"))
1094 1174
1095(defcustom mh-alias-insert-file nil 1175(mh-defcustom mh-alias-insert-file nil
1096 "*Filename used to store a new MH-E alias. 1176 "*Filename used to store a new MH-E alias.
1097 1177
1098The default setting of this option is \"Use Aliasfile Profile 1178The default setting of this option is \"Use Aliasfile Profile
@@ -1103,9 +1183,10 @@ name, MH-E will prompt for one of them when MH-E adds an alias."
1103 :type '(choice (const :tag "Use Aliasfile Profile Component" nil) 1183 :type '(choice (const :tag "Use Aliasfile Profile Component" nil)
1104 (file :tag "Alias File") 1184 (file :tag "Alias File")
1105 (repeat :tag "List of Alias Files" file)) 1185 (repeat :tag "List of Alias Files" file))
1106 :group 'mh-alias) 1186 :group 'mh-alias
1187 :package-version '(MH-E "7.1"))
1107 1188
1108(defcustom mh-alias-insertion-location 'sorted 1189(mh-defcustom mh-alias-insertion-location 'sorted
1109 "Specifies where new aliases are entered in alias files. 1190 "Specifies where new aliases are entered in alias files.
1110 1191
1111This option is set to \"Alphabetical\" by default. If you organize 1192This option is set to \"Alphabetical\" by default. If you organize
@@ -1114,9 +1195,10 @@ or \"Bottom\" of your alias file might be more appropriate."
1114 :type '(choice (const :tag "Alphabetical" sorted) 1195 :type '(choice (const :tag "Alphabetical" sorted)
1115 (const :tag "Top" top) 1196 (const :tag "Top" top)
1116 (const :tag "Bottom" bottom)) 1197 (const :tag "Bottom" bottom))
1117 :group 'mh-alias) 1198 :group 'mh-alias
1199 :package-version '(MH-E "7.1"))
1118 1200
1119(defcustom mh-alias-local-users t 1201(mh-defcustom mh-alias-local-users t
1120 "*If on, local users are added to alias completion. 1202 "*If on, local users are added to alias completion.
1121 1203
1122Aliases are created from \"/etc/passwd\" entries with a user ID 1204Aliases are created from \"/etc/passwd\" entries with a user ID
@@ -1134,9 +1216,10 @@ This option also takes a string which is executed to generate the
1134password file. For example, use \"ypcat passwd\" to obtain the 1216password file. For example, use \"ypcat passwd\" to obtain the
1135NIS password file." 1217NIS password file."
1136 :type '(choice (boolean) (string)) 1218 :type '(choice (boolean) (string))
1137 :group 'mh-alias) 1219 :group 'mh-alias
1220 :package-version '(MH-E "7.1"))
1138 1221
1139(defcustom mh-alias-local-users-prefix "local." 1222(mh-defcustom mh-alias-local-users-prefix "local."
1140 "*String prefixed to the real names of users from the password file. 1223 "*String prefixed to the real names of users from the password file.
1141This option can also be set to \"Use Login\". 1224This option can also be set to \"Use Login\".
1142 1225
@@ -1155,9 +1238,10 @@ This option has no effect if variable `mh-alias-local-users' is
1155turned off." 1238turned off."
1156 :type '(choice (const :tag "Use Login" nil) 1239 :type '(choice (const :tag "Use Login" nil)
1157 (string)) 1240 (string))
1158 :group 'mh-alias) 1241 :group 'mh-alias
1242 :package-version '(MH-E "7.4"))
1159 1243
1160(defcustom mh-alias-passwd-gecos-comma-separator-flag t 1244(mh-defcustom mh-alias-passwd-gecos-comma-separator-flag t
1161 "*Non-nil means the gecos field in the password file uses a comma separator. 1245 "*Non-nil means the gecos field in the password file uses a comma separator.
1162 1246
1163In the example in `mh-alias-local-users-prefix', commas are used 1247In the example in `mh-alias-local-users-prefix', commas are used
@@ -1166,13 +1250,12 @@ This is a fairly common usage. However, in the rare case that the
1166gecos field in your password file is not separated by commas and 1250gecos field in your password file is not separated by commas and
1167whose contents may contain commas, you can turn this option off." 1251whose contents may contain commas, you can turn this option off."
1168 :type 'boolean 1252 :type 'boolean
1169 :group 'mh-alias) 1253 :group 'mh-alias
1170 1254 :package-version '(MH-E "7.4"))
1171
1172 1255
1173;;; Organizing Your Mail with Folders (:group 'mh-folder) 1256;;; Organizing Your Mail with Folders (:group 'mh-folder)
1174 1257
1175(defcustom mh-new-messages-folders t 1258(mh-defcustom mh-new-messages-folders t
1176 "Folders searched for the \"unseen\" sequence. 1259 "Folders searched for the \"unseen\" sequence.
1177 1260
1178Set this option to \"Inbox\" to search the \"+inbox\" folder or 1261Set this option to \"Inbox\" to search the \"+inbox\" folder or
@@ -1184,9 +1267,10 @@ See also `mh-recursive-folders-flag'."
1184 :type '(choice (const :tag "Inbox" t) 1267 :type '(choice (const :tag "Inbox" t)
1185 (const :tag "All" nil) 1268 (const :tag "All" nil)
1186 (repeat :tag "Choose Folders" (string :tag "Folder"))) 1269 (repeat :tag "Choose Folders" (string :tag "Folder")))
1187 :group 'mh-folder) 1270 :group 'mh-folder
1271 :package-version '(MH-E "8.0"))
1188 1272
1189(defcustom mh-ticked-messages-folders t 1273(mh-defcustom mh-ticked-messages-folders t
1190 "Folders searched for `mh-tick-seq'. 1274 "Folders searched for `mh-tick-seq'.
1191 1275
1192Set this option to \"Inbox\" to search the \"+inbox\" folder or 1276Set this option to \"Inbox\" to search the \"+inbox\" folder or
@@ -1198,9 +1282,10 @@ See also `mh-recursive-folders-flag'."
1198 :type '(choice (const :tag "Inbox" t) 1282 :type '(choice (const :tag "Inbox" t)
1199 (const :tag "All" nil) 1283 (const :tag "All" nil)
1200 (repeat :tag "Choose Folders" (string :tag "Folder"))) 1284 (repeat :tag "Choose Folders" (string :tag "Folder")))
1201 :group 'mh-folder) 1285 :group 'mh-folder
1286 :package-version '(MH-E "8.0"))
1202 1287
1203(defcustom mh-large-folder 200 1288(mh-defcustom mh-large-folder 200
1204 "The number of messages that indicates a large folder. 1289 "The number of messages that indicates a large folder.
1205 1290
1206If a folder is deemed to be large, that is the number of messages 1291If a folder is deemed to be large, that is the number of messages
@@ -1209,22 +1294,25 @@ visited. Even when `mh-show-threads-flag' is non-nil, the folder
1209is not automatically threaded, if it is large. If set to nil all 1294is not automatically threaded, if it is large. If set to nil all
1210folders are treated as if they are small." 1295folders are treated as if they are small."
1211 :type '(choice (const :tag "No Limit") integer) 1296 :type '(choice (const :tag "No Limit") integer)
1212 :group 'mh-folder) 1297 :group 'mh-folder
1298 :package-version '(MH-E "7.0"))
1213 1299
1214(defcustom mh-recenter-summary-flag nil 1300(mh-defcustom mh-recenter-summary-flag nil
1215 "*Non-nil means to recenter the summary window. 1301 "*Non-nil means to recenter the summary window.
1216 1302
1217If this option is turned on, recenter the summary window when the 1303If this option is turned on, recenter the summary window when the
1218show window is toggled off." 1304show window is toggled off."
1219 :type 'boolean 1305 :type 'boolean
1220 :group 'mh-folder) 1306 :group 'mh-folder
1307 :package-version '(MH-E "7.0"))
1221 1308
1222(defcustom mh-recursive-folders-flag nil 1309(mh-defcustom mh-recursive-folders-flag nil
1223 "*Non-nil means that commands which operate on folders do so recursively." 1310 "*Non-nil means that commands which operate on folders do so recursively."
1224 :type 'boolean 1311 :type 'boolean
1225 :group 'mh-folder) 1312 :group 'mh-folder
1313 :package-version '(MH-E "7.0"))
1226 1314
1227(defcustom mh-sortm-args nil 1315(mh-defcustom mh-sortm-args nil
1228 "*Additional arguments for \"sortm\"\\<mh-folder-mode-map>. 1316 "*Additional arguments for \"sortm\"\\<mh-folder-mode-map>.
1229 1317
1230This option is consulted when a prefix argument is used with 1318This option is consulted when a prefix argument is used with
@@ -1233,13 +1321,12 @@ specified in the MH profile. This option may be used to provide
1233an alternate view. For example, \"'(\"-nolimit\" \"-textfield\" 1321an alternate view. For example, \"'(\"-nolimit\" \"-textfield\"
1234\"subject\")\" is a useful setting." 1322\"subject\")\" is a useful setting."
1235 :type 'string 1323 :type 'string
1236 :group 'mh-folder) 1324 :group 'mh-folder
1237 1325 :package-version '(MH-E "8.0"))
1238
1239 1326
1240;;; Folder Selection (:group 'mh-folder-selection) 1327;;; Folder Selection (:group 'mh-folder-selection)
1241 1328
1242(defcustom mh-default-folder-for-message-function nil 1329(mh-defcustom mh-default-folder-for-message-function nil
1243 "Function to select a default folder for refiling or \"Fcc:\". 1330 "Function to select a default folder for refiling or \"Fcc:\".
1244 1331
1245When this function is called, the current buffer contains the message 1332When this function is called, the current buffer contains the message
@@ -1248,9 +1335,10 @@ should return the default folder as a string with a leading \"+\"
1248sign. It can also return nil so that the last folder name is used as 1335sign. It can also return nil so that the last folder name is used as
1249the default, or an empty string to suppress the default entirely." 1336the default, or an empty string to suppress the default entirely."
1250 :type 'function 1337 :type 'function
1251 :group 'mh-folder-selection) 1338 :group 'mh-folder-selection
1339 :package-version '(MH-E "8.0"))
1252 1340
1253(defcustom mh-default-folder-list nil 1341(mh-defcustom mh-default-folder-list nil
1254 "*List of addresses and folders. 1342 "*List of addresses and folders.
1255 1343
1256The folder name associated with the first address found in this 1344The folder name associated with the first address found in this
@@ -1265,9 +1353,10 @@ for more information."
1265 :type '(repeat (list (regexp :tag "Address") 1353 :type '(repeat (list (regexp :tag "Address")
1266 (string :tag "Folder") 1354 (string :tag "Folder")
1267 (boolean :tag "Check Recipient"))) 1355 (boolean :tag "Check Recipient")))
1268 :group 'mh-folder-selection) 1356 :group 'mh-folder-selection
1357 :package-version '(MH-E "7.2"))
1269 1358
1270(defcustom mh-default-folder-must-exist-flag t 1359(mh-defcustom mh-default-folder-must-exist-flag t
1271 "*Non-nil means guessed folder name must exist to be used. 1360 "*Non-nil means guessed folder name must exist to be used.
1272 1361
1273If the derived folder does not exist, and this option is on, then 1362If the derived folder does not exist, and this option is on, then
@@ -1278,18 +1367,18 @@ them all in the same project folder.
1278See `mh-prompt-for-refile-folder' and `mh-folder-from-address' 1367See `mh-prompt-for-refile-folder' and `mh-folder-from-address'
1279for more information." 1368for more information."
1280 :type 'boolean 1369 :type 'boolean
1281 :group 'mh-folder-selection) 1370 :group 'mh-folder-selection
1371 :package-version '(MH-E "7.2"))
1282 1372
1283(defcustom mh-default-folder-prefix "" 1373(mh-defcustom mh-default-folder-prefix ""
1284 "*Prefix used for folder names generated from aliases. 1374 "*Prefix used for folder names generated from aliases.
1285The prefix is used to prevent clutter in your mail directory. 1375The prefix is used to prevent clutter in your mail directory.
1286 1376
1287See `mh-prompt-for-refile-folder' and `mh-folder-from-address' 1377See `mh-prompt-for-refile-folder' and `mh-folder-from-address'
1288for more information." 1378for more information."
1289 :type 'string 1379 :type 'string
1290 :group 'mh-folder-selection) 1380 :group 'mh-folder-selection
1291 1381 :package-version '(MH-E "7.2"))
1292
1293 1382
1294;;; Identities (:group 'mh-identity) 1383;;; Identities (:group 'mh-identity)
1295 1384
@@ -1300,7 +1389,7 @@ for more information."
1300Real definition will take effect when mh-identity is loaded." 1389Real definition will take effect when mh-identity is loaded."
1301 nil))) 1390 nil)))
1302 1391
1303(defcustom mh-identity-list nil 1392(mh-defcustom mh-identity-list nil
1304 "*List of identities. 1393 "*List of identities.
1305 1394
1306To customize this option, click on the \"INS\" button and enter a label 1395To customize this option, click on the \"INS\" button and enter a label
@@ -1366,9 +1455,10 @@ fashion."
1366 :set (lambda (symbol value) 1455 :set (lambda (symbol value)
1367 (set-default symbol value) 1456 (set-default symbol value)
1368 (mh-identity-make-menu-no-autoload)) 1457 (mh-identity-make-menu-no-autoload))
1369 :group 'mh-identity) 1458 :group 'mh-identity
1459 :package-version '(MH-E "7.1"))
1370 1460
1371(defcustom mh-auto-fields-list nil 1461(mh-defcustom mh-auto-fields-list nil
1372 "List of recipients for which header lines are automatically inserted. 1462 "List of recipients for which header lines are automatically inserted.
1373 1463
1374This option can be used to set the identity depending on the 1464This option can be used to set the identity depending on the
@@ -1426,15 +1516,17 @@ as the result is undefined."
1426 (cons :tag "Other Field" 1516 (cons :tag "Other Field"
1427 (string :tag "Field") 1517 (string :tag "Field")
1428 (string :tag "Value")))))) 1518 (string :tag "Value"))))))
1429 :group 'mh-identity) 1519 :group 'mh-identity
1520 :package-version '(MH-E "7.3"))
1430 1521
1431(defcustom mh-auto-fields-prompt-flag t 1522(mh-defcustom mh-auto-fields-prompt-flag t
1432 "*Non-nil means to prompt before sending if fields inserted. 1523 "*Non-nil means to prompt before sending if fields inserted.
1433See `mh-auto-fields-list'." 1524See `mh-auto-fields-list'."
1434 :type 'boolean 1525 :type 'boolean
1435 :group 'mh-identity) 1526 :group 'mh-identity
1527 :package-version '(MH-E "8.0"))
1436 1528
1437(defcustom mh-identity-default nil 1529(mh-defcustom mh-identity-default nil
1438 "Default identity to use when `mh-letter-mode' is called. 1530 "Default identity to use when `mh-letter-mode' is called.
1439See `mh-identity-list'." 1531See `mh-identity-list'."
1440 :type (append 1532 :type (append
@@ -1442,9 +1534,10 @@ See `mh-identity-list'."
1442 (cons '(const :tag "None" nil) 1534 (cons '(const :tag "None" nil)
1443 (mapcar (function (lambda (arg) `(const ,arg))) 1535 (mapcar (function (lambda (arg) `(const ,arg)))
1444 (mapcar 'car mh-identity-list)))) 1536 (mapcar 'car mh-identity-list))))
1445 :group 'mh-identity) 1537 :group 'mh-identity
1538 :package-version '(MH-E "7.1"))
1446 1539
1447(defcustom mh-identity-handlers 1540(mh-defcustom mh-identity-handlers
1448 '(("From" . mh-identity-handler-top) 1541 '(("From" . mh-identity-handler-top)
1449 (":default" . mh-identity-handler-bottom) 1542 (":default" . mh-identity-handler-bottom)
1450 (":attribution-verb" . mh-identity-handler-attribution-verb) 1543 (":attribution-verb" . mh-identity-handler-attribution-verb)
@@ -1475,13 +1568,12 @@ fields (for example, \":signature\"), and the ACTION 'remove or
1475'add. If the action is 'add, an additional argument 1568'add. If the action is 'add, an additional argument
1476containing the VALUE for the field is given." 1569containing the VALUE for the field is given."
1477 :type '(repeat (cons (string :tag "Field") function)) 1570 :type '(repeat (cons (string :tag "Field") function))
1478 :group 'mh-identity) 1571 :group 'mh-identity
1479 1572 :package-version '(MH-E "8.0"))
1480
1481 1573
1482;;; Incorporating Your Mail (:group 'mh-inc) 1574;;; Incorporating Your Mail (:group 'mh-inc)
1483 1575
1484(defcustom mh-inc-prog "inc" 1576(mh-defcustom mh-inc-prog "inc"
1485 "*Program to incorporate new mail into a folder. 1577 "*Program to incorporate new mail into a folder.
1486 1578
1487This program generates a one-line summary for each of the new 1579This program generates a one-line summary for each of the new
@@ -1490,7 +1582,8 @@ to be in the `mh-progs' directory. You may also link a file to
1490\"inc\" that uses a different format. You'll then need to modify 1582\"inc\" that uses a different format. You'll then need to modify
1491several scan line format variables appropriately." 1583several scan line format variables appropriately."
1492 :type 'string 1584 :type 'string
1493 :group 'mh-inc) 1585 :group 'mh-inc
1586 :package-version '(MH-E "6.0"))
1494 1587
1495(eval-and-compile 1588(eval-and-compile
1496 (unless (fboundp 'mh-inc-spool-make-no-autoload) 1589 (unless (fboundp 'mh-inc-spool-make-no-autoload)
@@ -1499,7 +1592,7 @@ several scan line format variables appropriately."
1499Real definition will take effect when mh-inc is loaded." 1592Real definition will take effect when mh-inc is loaded."
1500 nil))) 1593 nil)))
1501 1594
1502(defcustom mh-inc-spool-list nil 1595(mh-defcustom mh-inc-spool-list nil
1503 "*Alternate spool files. 1596 "*Alternate spool files.
1504 1597
1505You can use the `mh-inc-spool-list' variable to direct MH-E to 1598You can use the `mh-inc-spool-list' variable to direct MH-E to
@@ -1539,9 +1632,8 @@ fashion."
1539 :set (lambda (symbol value) 1632 :set (lambda (symbol value)
1540 (set-default symbol value) 1633 (set-default symbol value)
1541 (mh-inc-spool-make-no-autoload)) 1634 (mh-inc-spool-make-no-autoload))
1542 :group 'mh-inc) 1635 :group 'mh-inc
1543 1636 :package-version '(MH-E "7.3"))
1544
1545 1637
1546;;; Dealing with Junk Mail (:group 'mh-junk) 1638;;; Dealing with Junk Mail (:group 'mh-junk)
1547 1639
@@ -1573,7 +1665,7 @@ The function is always called with SYMBOL bound to
1573 until (executable-find (symbol-name (car element))) 1665 until (executable-find (symbol-name (car element)))
1574 finally return (car element))))) 1666 finally return (car element)))))
1575 1667
1576(defcustom mh-junk-background nil 1668(mh-defcustom mh-junk-background nil
1577 "If on, spam programs are run in background. 1669 "If on, spam programs are run in background.
1578 1670
1579By default, the programs are run in the foreground, but this can 1671By default, the programs are run in the foreground, but this can
@@ -1582,15 +1674,17 @@ enough memory or don't junk that many messages at the same time,
1582you might try turning on this option." 1674you might try turning on this option."
1583 :type '(choice (const :tag "Off" nil) 1675 :type '(choice (const :tag "Off" nil)
1584 (const :tag "On" 0)) 1676 (const :tag "On" 0))
1585 :group 'mh-junk) 1677 :group 'mh-junk
1678 :package-version '(MH-E "8.0"))
1586 1679
1587(defcustom mh-junk-disposition nil 1680(mh-defcustom mh-junk-disposition nil
1588 "Disposition of junk mail." 1681 "Disposition of junk mail."
1589 :type '(choice (const :tag "Delete Spam" nil) 1682 :type '(choice (const :tag "Delete Spam" nil)
1590 (string :tag "Spam Folder")) 1683 (string :tag "Spam Folder"))
1591 :group 'mh-junk) 1684 :group 'mh-junk
1685 :package-version '(MH-E "8.0"))
1592 1686
1593(defcustom mh-junk-program nil 1687(mh-defcustom mh-junk-program nil
1594 "Spam program that MH-E should use. 1688 "Spam program that MH-E should use.
1595 1689
1596The default setting of this option is \"Auto-detect\" which means 1690The default setting of this option is \"Auto-detect\" which means
@@ -1603,13 +1697,12 @@ bogofilter, then you can set this option to \"Bogofilter\"."
1603 (const :tag "Bogofilter" bogofilter) 1697 (const :tag "Bogofilter" bogofilter)
1604 (const :tag "SpamProbe" spamprobe)) 1698 (const :tag "SpamProbe" spamprobe))
1605 :set 'mh-junk-choose 1699 :set 'mh-junk-choose
1606 :group 'mh-junk) 1700 :group 'mh-junk
1607 1701 :package-version '(MH-E "7.3"))
1608
1609 1702
1610;;; Editing a Draft (:group 'mh-letter) 1703;;; Editing a Draft (:group 'mh-letter)
1611 1704
1612(defcustom mh-compose-insertion (if (locate-library "mml") 'mml 'mh) 1705(mh-defcustom mh-compose-insertion (if (locate-library "mml") 'mml 'mh)
1613 "Type of tags used when composing MIME messages. 1706 "Type of tags used when composing MIME messages.
1614 1707
1615In addition to MH-style directives, MH-E also supports MML (MIME 1708In addition to MH-style directives, MH-E also supports MML (MIME
@@ -1620,30 +1713,34 @@ lot more functionality. This option can also be set to \"MH\" if
1620MH-style directives are preferred." 1713MH-style directives are preferred."
1621 :type '(choice (const :tag "MML" mml) 1714 :type '(choice (const :tag "MML" mml)
1622 (const :tag "MH" mh)) 1715 (const :tag "MH" mh))
1623 :group 'mh-letter) 1716 :group 'mh-letter
1717 :package-version '(MH-E "7.0"))
1624 1718
1625(defcustom mh-compose-skipped-header-fields 1719(mh-defcustom mh-compose-skipped-header-fields
1626 '("From" "Organization" "References" "In-Reply-To" 1720 '("From" "Organization" "References" "In-Reply-To"
1627 "X-Face" "Face" "X-Image-URL" "X-Mailer") 1721 "X-Face" "Face" "X-Image-URL" "X-Mailer")
1628 "List of header fields to skip over when navigating in draft." 1722 "List of header fields to skip over when navigating in draft."
1629 :type '(repeat (string :tag "Field")) 1723 :type '(repeat (string :tag "Field"))
1630 :group 'mh-letter) 1724 :group 'mh-letter
1725 :package-version '(MH-E "7.4"))
1631 1726
1632(defcustom mh-compose-space-does-completion-flag nil 1727(mh-defcustom mh-compose-space-does-completion-flag nil
1633 "*Non-nil means \\<mh-letter-mode-map>\\[mh-letter-complete-or-space] does completion in message header." 1728 "*Non-nil means \\<mh-letter-mode-map>\\[mh-letter-complete-or-space] does completion in message header."
1634 :type 'boolean 1729 :type 'boolean
1635 :group 'mh-letter) 1730 :group 'mh-letter
1731 :package-version '(MH-E "7.4"))
1636 1732
1637(defcustom mh-delete-yanked-msg-window-flag nil 1733(mh-defcustom mh-delete-yanked-msg-window-flag nil
1638 "*Non-nil means delete any window displaying the message. 1734 "*Non-nil means delete any window displaying the message.
1639 1735
1640This deletes the window containing the original message after 1736This deletes the window containing the original message after
1641yanking it with \\<mh-letter-mode-map>\\[mh-yank-cur-msg] to make 1737yanking it with \\<mh-letter-mode-map>\\[mh-yank-cur-msg] to make
1642more room on your screen for your reply." 1738more room on your screen for your reply."
1643 :type 'boolean 1739 :type 'boolean
1644 :group 'mh-letter) 1740 :group 'mh-letter
1741 :package-version '(MH-E "7.0"))
1645 1742
1646(defcustom mh-extract-from-attribution-verb "wrote:" 1743(mh-defcustom mh-extract-from-attribution-verb "wrote:"
1647 "*Verb to use for attribution when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg]. 1744 "*Verb to use for attribution when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
1648 1745
1649The attribution consists of the sender's name and email address 1746The attribution consists of the sender's name and email address
@@ -1654,9 +1751,10 @@ followed by the content of this option. This option can be set to
1654 (const "a écrit:") 1751 (const "a écrit:")
1655 (const "schrieb:") 1752 (const "schrieb:")
1656 (string :tag "Custom String")) 1753 (string :tag "Custom String"))
1657 :group 'mh-letter) 1754 :group 'mh-letter
1755 :package-version '(MH-E "7.0"))
1658 1756
1659(defcustom mh-ins-buf-prefix "> " 1757(mh-defcustom mh-ins-buf-prefix "> "
1660 "*String to put before each line of a yanked or inserted message. 1758 "*String to put before each line of a yanked or inserted message.
1661 1759
1662The prefix \"> \" is the default setting of this option. I 1760The prefix \"> \" is the default setting of this option. I
@@ -1669,26 +1767,29 @@ This prefix is not inserted if you use one of the supercite
1669flavors of `mh-yank-behavior' or you have added a 1767flavors of `mh-yank-behavior' or you have added a
1670`mail-citation-hook'." 1768`mail-citation-hook'."
1671 :type 'string 1769 :type 'string
1672 :group 'mh-letter) 1770 :group 'mh-letter
1771 :package-version '(MH-E "6.0"))
1673 1772
1674(defcustom mh-letter-complete-function 'ispell-complete-word 1773(mh-defcustom mh-letter-complete-function 'ispell-complete-word
1675 "*Function to call when completing outside of address or folder fields. 1774 "*Function to call when completing outside of address or folder fields.
1676 1775
1677In the body of the message, 1776In the body of the message,
1678\\<mh-letter-mode-map>\\[mh-letter-complete] runs this function, 1777\\<mh-letter-mode-map>\\[mh-letter-complete] runs this function,
1679which is set to \"ispell-complete-word\" by default." 1778which is set to \"ispell-complete-word\" by default."
1680 :type '(choice function (const nil)) 1779 :type '(choice function (const nil))
1681 :group 'mh-letter) 1780 :group 'mh-letter
1781 :package-version '(MH-E "7.1"))
1682 1782
1683(defcustom mh-letter-fill-column 72 1783(mh-defcustom mh-letter-fill-column 72
1684 "*Fill column to use in MH Letter mode. 1784 "*Fill column to use in MH Letter mode.
1685 1785
1686By default, this option is 72 to allow others to quote your 1786By default, this option is 72 to allow others to quote your
1687message without line wrapping." 1787message without line wrapping."
1688 :type 'integer 1788 :type 'integer
1689 :group 'mh-letter) 1789 :group 'mh-letter
1790 :package-version '(MH-E "6.0"))
1690 1791
1691(defcustom mh-mml-method-default (if mh-pgp-support-flag "pgpmime" "none") 1792(mh-defcustom mh-mml-method-default (if mh-pgp-support-flag "pgpmime" "none")
1692 "Default method to use in security tags. 1793 "Default method to use in security tags.
1693 1794
1694This option is used to select between a variety of mail security 1795This option is used to select between a variety of mail security
@@ -1708,9 +1809,10 @@ you write!"
1708 (const :tag "PGP" "pgp") 1809 (const :tag "PGP" "pgp")
1709 (const :tag "S/MIME" "smime") 1810 (const :tag "S/MIME" "smime")
1710 (const :tag "None" "none")) 1811 (const :tag "None" "none"))
1711 :group 'mh-letter) 1812 :group 'mh-letter
1813 :package-version '(MH-E "8.0"))
1712 1814
1713(defcustom mh-signature-file-name "~/.signature" 1815(mh-defcustom mh-signature-file-name "~/.signature"
1714 "*Source of user's signature. 1816 "*Source of user's signature.
1715 1817
1716By default, the text of your signature is taken from the file 1818By default, the text of your signature is taken from the file
@@ -1730,9 +1832,10 @@ The signature is inserted into your message with the command
1730\\<mh-letter-mode-map>\\[mh-insert-signature] or with the option 1832\\<mh-letter-mode-map>\\[mh-insert-signature] or with the option
1731`mh-identity-list'." 1833`mh-identity-list'."
1732 :type 'file 1834 :type 'file
1733 :group 'mh-letter) 1835 :group 'mh-letter
1836 :package-version '(MH-E "6.0"))
1734 1837
1735(defcustom mh-signature-separator-flag t 1838(mh-defcustom mh-signature-separator-flag t
1736 "*Non-nil means a signature separator should be inserted. 1839 "*Non-nil means a signature separator should be inserted.
1737 1840
1738It is not recommended that you change this option since various 1841It is not recommended that you change this option since various
@@ -1740,9 +1843,10 @@ mail user agents, including MH-E, use the separator to present
1740the signature differently, and to suppress the signature when 1843the signature differently, and to suppress the signature when
1741replying or yanking a letter into a draft." 1844replying or yanking a letter into a draft."
1742 :type 'boolean 1845 :type 'boolean
1743 :group 'mh-letter) 1846 :group 'mh-letter
1847 :package-version '(MH-E "8.0"))
1744 1848
1745(defcustom mh-x-face-file "~/.face" 1849(mh-defcustom mh-x-face-file "~/.face"
1746 "*File containing face header field to insert in outgoing mail. 1850 "*File containing face header field to insert in outgoing mail.
1747 1851
1748If the file starts with either of the strings \"X-Face:\", \"Face:\" 1852If the file starts with either of the strings \"X-Face:\", \"Face:\"
@@ -1768,9 +1872,10 @@ To prevent the setting of any of these header fields, either set
1768`mh-x-face-file' to nil, or simply ensure that the file defined by 1872`mh-x-face-file' to nil, or simply ensure that the file defined by
1769this option doesn't exist." 1873this option doesn't exist."
1770 :type 'file 1874 :type 'file
1771 :group 'mh-letter) 1875 :group 'mh-letter
1876 :package-version '(MH-E "7.0"))
1772 1877
1773(defcustom mh-yank-behavior 'attribution 1878(mh-defcustom mh-yank-behavior 'attribution
1774 "*Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg]. 1879 "*Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
1775 1880
1776To include the entire message, including the entire header, use 1881To include the entire message, including the entire header, use
@@ -1812,13 +1917,12 @@ inserted."
1812 (const :tag "Body With Attribution" attribution) 1917 (const :tag "Body With Attribution" attribution)
1813 (const :tag "Body With Attribution, Automatically" 1918 (const :tag "Body With Attribution, Automatically"
1814 autoattrib)) 1919 autoattrib))
1815 :group 'mh-letter) 1920 :group 'mh-letter
1816 1921 :package-version '(MH-E "8.0"))
1817
1818 1922
1819;;; Ranges (:group 'mh-ranges) 1923;;; Ranges (:group 'mh-ranges)
1820 1924
1821(defcustom mh-interpret-number-as-range-flag t 1925(mh-defcustom mh-interpret-number-as-range-flag t
1822 "*Non-nil means interpret a number as a range. 1926 "*Non-nil means interpret a number as a range.
1823 1927
1824Since one of the most frequent ranges used is \"last:N\", MH-E 1928Since one of the most frequent ranges used is \"last:N\", MH-E
@@ -1826,9 +1930,8 @@ will interpret input such as \"200\" as \"last:200\" if this
1826option is on (which is the default). If you need to scan just the 1930option is on (which is the default). If you need to scan just the
1827message 200, then use the range \"200:200\"." 1931message 200, then use the range \"200:200\"."
1828 :type 'boolean 1932 :type 'boolean
1829 :group 'mh-ranges) 1933 :group 'mh-ranges
1830 1934 :package-version '(MH-E "7.4"))
1831
1832 1935
1833;;; Scan Line Formats (:group 'mh-scan-line-formats) 1936;;; Scan Line Formats (:group 'mh-scan-line-formats)
1834 1937
@@ -1839,7 +1942,7 @@ message 200, then use the range \"200:200\"."
1839Real definition, below, uses variables that aren't defined yet." 1942Real definition, below, uses variables that aren't defined yet."
1840 (set-default symbol value)))) 1943 (set-default symbol value))))
1841 1944
1842(defcustom mh-adaptive-cmd-note-flag t 1945(mh-defcustom mh-adaptive-cmd-note-flag t
1843 "*Non-nil means that the message number width is determined dynamically. 1946 "*Non-nil means that the message number width is determined dynamically.
1844 1947
1845If you've created your own format to handle long message numbers, 1948If you've created your own format to handle long message numbers,
@@ -1854,7 +1957,8 @@ call `mh-set-cmd-note' with the width specified by your format file
1854you would use \"(mh-set-cmd-note 4)\"." 1957you would use \"(mh-set-cmd-note 4)\"."
1855 :type 'boolean 1958 :type 'boolean
1856 :group 'mh-scan-line-formats 1959 :group 'mh-scan-line-formats
1857 :set 'mh-adaptive-cmd-note-flag-check) 1960 :set 'mh-adaptive-cmd-note-flag-check
1961 :package-version '(MH-E "7.0"))
1858 1962
1859(defun mh-scan-format-file-check (symbol value) 1963(defun mh-scan-format-file-check (symbol value)
1860 "Check if desired setting is legal. 1964 "Check if desired setting is legal.
@@ -1867,7 +1971,7 @@ set SYMBOL to VALUE."
1867 "unless you use \"Use MH-E scan Format\"") 1971 "unless you use \"Use MH-E scan Format\"")
1868 (set-default symbol value))) 1972 (set-default symbol value)))
1869 1973
1870(defcustom mh-scan-format-file t 1974(mh-defcustom mh-scan-format-file t
1871 "Specifies the format file to pass to the scan program. 1975 "Specifies the format file to pass to the scan program.
1872 1976
1873The default setting for this option is \"Use MH-E scan Format\". This 1977The default setting for this option is \"Use MH-E scan Format\". This
@@ -1892,7 +1996,8 @@ Emacs start with 0)."
1892 (const :tag "Use Default scan Format" nil) 1996 (const :tag "Use Default scan Format" nil)
1893 (file :tag "Specify a scan Format File")) 1997 (file :tag "Specify a scan Format File"))
1894 :group 'mh-scan-line-formats 1998 :group 'mh-scan-line-formats
1895 :set 'mh-scan-format-file-check) 1999 :set 'mh-scan-format-file-check
2000 :package-version '(MH-E "6.0"))
1896 2001
1897(defun mh-adaptive-cmd-note-flag-check (symbol value) 2002(defun mh-adaptive-cmd-note-flag-check (symbol value)
1898 "Check if desired setting is legal. 2003 "Check if desired setting is legal.
@@ -1905,7 +2010,7 @@ Otherwise, set SYMBOL to VALUE."
1905 "is set to \"Use MH-E scan Format\"") 2010 "is set to \"Use MH-E scan Format\"")
1906 (set-default symbol value))) 2011 (set-default symbol value)))
1907 2012
1908(defcustom mh-scan-prog "scan" 2013(mh-defcustom mh-scan-prog "scan"
1909 "*Program used to scan messages. 2014 "*Program used to scan messages.
1910 2015
1911The name of the program that generates a listing of one line per 2016The name of the program that generates a listing of one line per
@@ -1914,14 +2019,13 @@ absolute pathname, it is assumed to be in the `mh-progs'
1914directory. You may link another program to `scan' (see 2019directory. You may link another program to `scan' (see
1915\"mh-profile(5)\") to produce a different type of listing." 2020\"mh-profile(5)\") to produce a different type of listing."
1916 :type 'string 2021 :type 'string
1917 :group 'mh-scan-line-formats) 2022 :group 'mh-scan-line-formats
2023 :package-version '(MH-E "6.0"))
1918(make-variable-buffer-local 'mh-scan-prog) 2024(make-variable-buffer-local 'mh-scan-prog)
1919 2025
1920
1921
1922;;; Searching (:group 'mh-search) 2026;;; Searching (:group 'mh-search)
1923 2027
1924(defcustom mh-search-program nil 2028(mh-defcustom mh-search-program nil
1925 "Search program that MH-E shall use. 2029 "Search program that MH-E shall use.
1926 2030
1927The default setting of this option is \"Auto-detect\" which means 2031The default setting of this option is \"Auto-detect\" which means
@@ -1939,13 +2043,12 @@ MH-E can be found in the documentation of `mh-search'."
1939 (const :tag "namazu" namazu) 2043 (const :tag "namazu" namazu)
1940 (const :tag "pick" pick) 2044 (const :tag "pick" pick)
1941 (const :tag "grep" grep)) 2045 (const :tag "grep" grep))
1942 :group 'mh-search) 2046 :group 'mh-search
1943 2047 :package-version '(MH-E "8.0"))
1944
1945 2048
1946;;; Sending Mail (:group 'mh-sending-mail) 2049;;; Sending Mail (:group 'mh-sending-mail)
1947 2050
1948(defcustom mh-compose-forward-as-mime-flag t 2051(mh-defcustom mh-compose-forward-as-mime-flag t
1949 "*Non-nil means that messages are forwarded as attachments. 2052 "*Non-nil means that messages are forwarded as attachments.
1950 2053
1951By default, this option is on which means that the forwarded 2054By default, this option is on which means that the forwarded
@@ -1958,9 +2061,10 @@ aware that if you have \"forw: -mime\" in your MH profile, then
1958forwarded messages will always be included as attachments 2061forwarded messages will always be included as attachments
1959regardless of the settings of this option." 2062regardless of the settings of this option."
1960 :type 'boolean 2063 :type 'boolean
1961 :group 'mh-sending-mail) 2064 :group 'mh-sending-mail
2065 :package-version '(MH-E "8.0"))
1962 2066
1963(defcustom mh-compose-letter-function nil 2067(mh-defcustom mh-compose-letter-function nil
1964 "Invoked when starting a new draft. 2068 "Invoked when starting a new draft.
1965 2069
1966However, it is the last function called before you edit your 2070However, it is the last function called before you edit your
@@ -1969,32 +2073,36 @@ to write and send the message for you. This function is passed
1969three arguments: the contents of the TO, SUBJECT, and CC header 2073three arguments: the contents of the TO, SUBJECT, and CC header
1970fields." 2074fields."
1971 :type '(choice (const nil) function) 2075 :type '(choice (const nil) function)
1972 :group 'mh-sending-mail) 2076 :group 'mh-sending-mail
2077 :package-version '(MH-E "6.0"))
1973 2078
1974(defcustom mh-compose-prompt-flag nil 2079(mh-defcustom mh-compose-prompt-flag nil
1975 "*Non-nil means prompt for header fields when composing a new draft." 2080 "*Non-nil means prompt for header fields when composing a new draft."
1976 :type 'boolean 2081 :type 'boolean
1977 :group 'mh-sending-mail) 2082 :group 'mh-sending-mail
2083 :package-version '(MH-E "7.4"))
1978 2084
1979(defcustom mh-forward-subject-format "%s: %s" 2085(mh-defcustom mh-forward-subject-format "%s: %s"
1980 "*Format string for forwarded message subject. 2086 "*Format string for forwarded message subject.
1981 2087
1982This option is a string which includes two escapes (\"%s\"). The 2088This option is a string which includes two escapes (\"%s\"). The
1983first \"%s\" is replaced with the sender of the original message, 2089first \"%s\" is replaced with the sender of the original message,
1984and the second one is replaced with the original \"Subject:\"." 2090and the second one is replaced with the original \"Subject:\"."
1985 :type 'string 2091 :type 'string
1986 :group 'mh-sending-mail) 2092 :group 'mh-sending-mail
2093 :package-version '(MH-E "6.0"))
1987 2094
1988(defcustom mh-insert-x-mailer-flag t 2095(mh-defcustom mh-insert-x-mailer-flag t
1989 "*Non-nil means append an \"X-Mailer:\" header field to the header. 2096 "*Non-nil means append an \"X-Mailer:\" header field to the header.
1990 2097
1991This header field includes the version of MH-E and Emacs that you 2098This header field includes the version of MH-E and Emacs that you
1992are using. If you don't want to participate in our marketing, you 2099are using. If you don't want to participate in our marketing, you
1993can turn this option off." 2100can turn this option off."
1994 :type 'boolean 2101 :type 'boolean
1995 :group 'mh-sending-mail) 2102 :group 'mh-sending-mail
2103 :package-version '(MH-E "7.0"))
1996 2104
1997(defcustom mh-redist-full-contents-flag nil 2105(mh-defcustom mh-redist-full-contents-flag nil
1998 "*Non-nil means the \"dist\" command needs entire letter for redistribution. 2106 "*Non-nil means the \"dist\" command needs entire letter for redistribution.
1999 2107
2000This option must be turned on if \"dist\" requires the whole 2108This option must be turned on if \"dist\" requires the whole
@@ -2003,9 +2111,10 @@ compiled with the BERK option (which many people abhor). If you
2003find that MH will not allow you to redistribute a message that 2111find that MH will not allow you to redistribute a message that
2004has been redistributed before, turn off this option." 2112has been redistributed before, turn off this option."
2005 :type 'boolean 2113 :type 'boolean
2006 :group 'mh-sending-mail) 2114 :group 'mh-sending-mail
2115 :package-version '(MH-E "8.0"))
2007 2116
2008(defcustom mh-reply-default-reply-to nil 2117(mh-defcustom mh-reply-default-reply-to nil
2009 "*Sets the person or persons to whom a reply will be sent. 2118 "*Sets the person or persons to whom a reply will be sent.
2010 2119
2011This option is set to \"Prompt\" by default so that you are 2120This option is set to \"Prompt\" by default so that you are
@@ -2018,9 +2127,10 @@ this option to \"cc\". Other choices include \"from\", \"to\", or
2018 (const "to") 2127 (const "to")
2019 (const "cc") 2128 (const "cc")
2020 (const "all")) 2129 (const "all"))
2021 :group 'mh-sending-mail) 2130 :group 'mh-sending-mail
2131 :package-version '(MH-E "6.0"))
2022 2132
2023(defcustom mh-reply-show-message-flag t 2133(mh-defcustom mh-reply-show-message-flag t
2024 "*Non-nil means the MH-Show buffer is displayed when replying. 2134 "*Non-nil means the MH-Show buffer is displayed when replying.
2025 2135
2026If you include the message automatically, you can hide the 2136If you include the message automatically, you can hide the
@@ -2028,9 +2138,8 @@ MH-Show buffer by turning off this option.
2028 2138
2029See also `mh-reply'." 2139See also `mh-reply'."
2030 :type 'boolean 2140 :type 'boolean
2031 :group 'mh-sending-mail) 2141 :group 'mh-sending-mail
2032 2142 :package-version '(MH-E "7.0"))
2033
2034 2143
2035;;; Sequences (:group 'mh-sequences) 2144;;; Sequences (:group 'mh-sequences)
2036 2145
@@ -2038,7 +2147,7 @@ See also `mh-reply'."
2038;; the docstring: "Additional sequences that should not to be preserved can be 2147;; the docstring: "Additional sequences that should not to be preserved can be
2039;; specified by setting `mh-unpropagated-sequences' appropriately." XXX 2148;; specified by setting `mh-unpropagated-sequences' appropriately." XXX
2040 2149
2041(defcustom mh-refile-preserves-sequences-flag t 2150(mh-defcustom mh-refile-preserves-sequences-flag t
2042 "*Non-nil means that sequences are preserved when messages are refiled. 2151 "*Non-nil means that sequences are preserved when messages are refiled.
2043 2152
2044If a message is in any sequence (except \"Previous-Sequence:\" 2153If a message is in any sequence (except \"Previous-Sequence:\"
@@ -2046,9 +2155,10 @@ and \"cur\") when it is refiled, then it will still be in those
2046sequences in the destination folder. If this behavior is not 2155sequences in the destination folder. If this behavior is not
2047desired, then turn off this option." 2156desired, then turn off this option."
2048 :type 'boolean 2157 :type 'boolean
2049 :group 'mh-sequences) 2158 :group 'mh-sequences
2159 :package-version '(MH-E "7.4"))
2050 2160
2051(defcustom mh-tick-seq 'tick 2161(mh-defcustom mh-tick-seq 'tick
2052 "The name of the MH sequence for ticked messages. 2162 "The name of the MH sequence for ticked messages.
2053 2163
2054You can customize this option if you already use the \"tick\" 2164You can customize this option if you already use the \"tick\"
@@ -2057,9 +2167,10 @@ ticking functions by choosing the \"Disable Ticking\" item but
2057there isn't much advantage to that." 2167there isn't much advantage to that."
2058 :type '(choice (const :tag "Disable Ticking" nil) 2168 :type '(choice (const :tag "Disable Ticking" nil)
2059 symbol) 2169 symbol)
2060 :group 'mh-sequences) 2170 :group 'mh-sequences
2171 :package-version '(MH-E "7.3"))
2061 2172
2062(defcustom mh-update-sequences-after-mh-show-flag t 2173(mh-defcustom mh-update-sequences-after-mh-show-flag t
2063 "*Non-nil means flush MH sequences to disk after message is shown\\<mh-folder-mode-map>. 2174 "*Non-nil means flush MH sequences to disk after message is shown\\<mh-folder-mode-map>.
2064 2175
2065Three sequences are maintained internally by MH-E and pushed out 2176Three sequences are maintained internally by MH-E and pushed out
@@ -2071,13 +2182,12 @@ this option. You can then update the state manually with the
2071\\[mh-execute-commands], \\[mh-quit], or \\[mh-update-sequences] 2182\\[mh-execute-commands], \\[mh-quit], or \\[mh-update-sequences]
2072commands." 2183commands."
2073 :type 'boolean 2184 :type 'boolean
2074 :group 'mh-sequences) 2185 :group 'mh-sequences
2075 2186 :package-version '(MH-E "7.0"))
2076
2077 2187
2078;;; Reading Your Mail (:group 'mh-show) 2188;;; Reading Your Mail (:group 'mh-show)
2079 2189
2080(defcustom mh-bury-show-buffer-flag t 2190(mh-defcustom mh-bury-show-buffer-flag t
2081 "*Non-nil means show buffer is buried. 2191 "*Non-nil means show buffer is buried.
2082 2192
2083One advantage of not burying the show buffer is that one can 2193One advantage of not burying the show buffer is that one can
@@ -2085,17 +2195,19 @@ delete the show buffer more easily in an electric buffer list
2085because of its proximity to its associated MH-Folder buffer. Try 2195because of its proximity to its associated MH-Folder buffer. Try
2086running \\[electric-buffer-list] to see what I mean." 2196running \\[electric-buffer-list] to see what I mean."
2087 :type 'boolean 2197 :type 'boolean
2088 :group 'mh-show) 2198 :group 'mh-show
2199 :package-version '(MH-E "7.0"))
2089 2200
2090(defcustom mh-clean-message-header-flag t 2201(mh-defcustom mh-clean-message-header-flag t
2091 "*Non-nil means remove extraneous header fields. 2202 "*Non-nil means remove extraneous header fields.
2092 2203
2093See also `mh-invisible-header-fields-default' and 2204See also `mh-invisible-header-fields-default' and
2094`mh-invisible-header-fields'." 2205`mh-invisible-header-fields'."
2095 :type 'boolean 2206 :type 'boolean
2096 :group 'mh-show) 2207 :group 'mh-show
2208 :package-version '(MH-E "7.0"))
2097 2209
2098(defcustom mh-decode-mime-flag (not (not (locate-library "mm-decode"))) 2210(mh-defcustom mh-decode-mime-flag (not (not (locate-library "mm-decode")))
2099 "*Non-nil means attachments are handled\\<mh-folder-mode-map>. 2211 "*Non-nil means attachments are handled\\<mh-folder-mode-map>.
2100 2212
2101MH-E can handle attachments as well if the Gnus `mm-decode' 2213MH-E can handle attachments as well if the Gnus `mm-decode'
@@ -2110,9 +2222,10 @@ This option also controls the display of quoted-printable
2110messages and other graphical widgets. See the options 2222messages and other graphical widgets. See the options
2111`mh-graphical-smileys-flag' and `mh-graphical-emphasis-flag'." 2223`mh-graphical-smileys-flag' and `mh-graphical-emphasis-flag'."
2112 :type 'boolean 2224 :type 'boolean
2113 :group 'mh-show) 2225 :group 'mh-show
2226 :package-version '(MH-E "7.0"))
2114 2227
2115(defcustom mh-display-buttons-for-alternatives-flag nil 2228(mh-defcustom mh-display-buttons-for-alternatives-flag nil
2116 "*Non-nil means display buttons for all alternative attachments. 2229 "*Non-nil means display buttons for all alternative attachments.
2117 2230
2118Sometimes, a mail program will produce multiple alternatives of 2231Sometimes, a mail program will produce multiple alternatives of
@@ -2121,9 +2234,10 @@ original content. By default, only the preferred alternative is
2121displayed. If this option is on, then the preferred part is shown 2234displayed. If this option is on, then the preferred part is shown
2122inline and buttons are shown for each of the other alternatives." 2235inline and buttons are shown for each of the other alternatives."
2123 :type 'boolean 2236 :type 'boolean
2124 :group 'mh-show) 2237 :group 'mh-show
2238 :package-version '(MH-E "7.4"))
2125 2239
2126(defcustom mh-display-buttons-for-inline-parts-flag nil 2240(mh-defcustom mh-display-buttons-for-inline-parts-flag nil
2127 "*Non-nil means display buttons for all inline attachments\\<mh-folder-mode-map>. 2241 "*Non-nil means display buttons for all inline attachments\\<mh-folder-mode-map>.
2128 2242
2129The sender can request that attachments should be viewed inline so 2243The sender can request that attachments should be viewed inline so
@@ -2143,9 +2257,10 @@ by turning on this option.
2143MH-E cannot display all attachments inline however. It can display 2257MH-E cannot display all attachments inline however. It can display
2144text (including HTML) and images." 2258text (including HTML) and images."
2145 :type 'boolean 2259 :type 'boolean
2146 :group 'mh-show) 2260 :group 'mh-show
2261 :package-version '(MH-E "7.0"))
2147 2262
2148(defcustom mh-do-not-confirm-flag nil 2263(mh-defcustom mh-do-not-confirm-flag nil
2149 "*Non-nil means non-reversible commands do not prompt for confirmation. 2264 "*Non-nil means non-reversible commands do not prompt for confirmation.
2150 2265
2151Commands such as `mh-pack-folder' prompt to confirm whether to 2266Commands such as `mh-pack-folder' prompt to confirm whether to
@@ -2154,9 +2269,10 @@ Turning on this option means that these actions will be
2154performed--which is usually desired but cannot be 2269performed--which is usually desired but cannot be
2155retracted--without question." 2270retracted--without question."
2156 :type 'boolean 2271 :type 'boolean
2157 :group 'mh-show) 2272 :group 'mh-show
2273 :package-version '(MH-E "7.0"))
2158 2274
2159(defcustom mh-fetch-x-image-url nil 2275(mh-defcustom mh-fetch-x-image-url nil
2160 "*Control fetching of \"X-Image-URL:\" header field image. 2276 "*Control fetching of \"X-Image-URL:\" header field image.
2161 2277
2162Ths option controls the fetching of the \"X-Image-URL:\" header 2278Ths option controls the fetching of the \"X-Image-URL:\" header
@@ -2189,9 +2305,10 @@ turned on."
2189 2305
2190 :type '(choice (const :tag "Ask Before Fetching" ask) 2306 :type '(choice (const :tag "Ask Before Fetching" ask)
2191 (const :tag "Never Fetch" nil)) 2307 (const :tag "Never Fetch" nil))
2192 :group 'mh-show) 2308 :group 'mh-show
2309 :package-version '(MH-E "7.3"))
2193 2310
2194(defcustom mh-graphical-smileys-flag t 2311(mh-defcustom mh-graphical-smileys-flag t
2195 "*Non-nil means graphical smileys are displayed. 2312 "*Non-nil means graphical smileys are displayed.
2196 2313
2197It is a long standing custom to inject body language using a 2314It is a long standing custom to inject body language using a
@@ -2203,9 +2320,10 @@ and ;-).
2203This option is disabled if the option `mh-decode-mime-flag' is 2320This option is disabled if the option `mh-decode-mime-flag' is
2204turned off." 2321turned off."
2205 :type 'boolean 2322 :type 'boolean
2206 :group 'mh-show) 2323 :group 'mh-show
2324 :package-version '(MH-E "7.0"))
2207 2325
2208(defcustom mh-graphical-emphasis-flag t 2326(mh-defcustom mh-graphical-emphasis-flag t
2209 "*Non-nil means graphical emphasis is displayed. 2327 "*Non-nil means graphical emphasis is displayed.
2210 2328
2211A few typesetting features are indicated in ASCII text with 2329A few typesetting features are indicated in ASCII text with
@@ -2219,9 +2337,10 @@ whole list.
2219This option is disabled if the option `mh-decode-mime-flag' is 2337This option is disabled if the option `mh-decode-mime-flag' is
2220turned off." 2338turned off."
2221 :type 'boolean 2339 :type 'boolean
2222 :group 'mh-show) 2340 :group 'mh-show
2341 :package-version '(MH-E "7.0"))
2223 2342
2224(defcustom mh-highlight-citation-style 'gnus 2343(mh-defcustom mh-highlight-citation-style 'gnus
2225 "Style for highlighting citations. 2344 "Style for highlighting citations.
2226 2345
2227If the sender of the message has cited other messages in his 2346If the sender of the message has cited other messages in his
@@ -2234,7 +2353,8 @@ of citations entirely, choose \"None\"."
2234 :type '(choice (const :tag "Multicolor" gnus) 2353 :type '(choice (const :tag "Multicolor" gnus)
2235 (const :tag "Monochrome" font-lock) 2354 (const :tag "Monochrome" font-lock)
2236 (const :tag "None" nil)) 2355 (const :tag "None" nil))
2237 :group 'mh-show) 2356 :group 'mh-show
2357 :package-version '(MH-E "8.0"))
2238 2358
2239;; Keep fields alphabetized. Mention source, if known. 2359;; Keep fields alphabetized. Mention source, if known.
2240(defvar mh-invisible-header-fields-internal 2360(defvar mh-invisible-header-fields-internal
@@ -2447,7 +2567,7 @@ Because the function `mh-invisible-headers' uses both
2447`mh-invisible-header-fields' and `mh-invisible-header-fields', it 2567`mh-invisible-header-fields' and `mh-invisible-header-fields', it
2448cannot be run until both variables have been initialized.") 2568cannot be run until both variables have been initialized.")
2449 2569
2450(defcustom mh-invisible-header-fields nil 2570(mh-defcustom mh-invisible-header-fields nil
2451 "*Additional header fields to hide. 2571 "*Additional header fields to hide.
2452 2572
2453Header fields that you would like to hide that aren't listed in 2573Header fields that you would like to hide that aren't listed in
@@ -2465,9 +2585,10 @@ See also `mh-clean-message-header-flag'."
2465 :set (lambda (symbol value) 2585 :set (lambda (symbol value)
2466 (set-default symbol value) 2586 (set-default symbol value)
2467 (mh-invisible-headers)) 2587 (mh-invisible-headers))
2468 :group 'mh-show) 2588 :group 'mh-show
2589 :package-version '(MH-E "7.1"))
2469 2590
2470(defcustom mh-invisible-header-fields-default nil 2591(mh-defcustom mh-invisible-header-fields-default nil
2471 "*List of hidden header fields. 2592 "*List of hidden header fields.
2472 2593
2473The header fields listed in this option are hidden, although you 2594The header fields listed in this option are hidden, although you
@@ -2482,7 +2603,8 @@ See also `mh-clean-message-header-flag'."
2482 :set (lambda (symbol value) 2603 :set (lambda (symbol value)
2483 (set-default symbol value) 2604 (set-default symbol value)
2484 (mh-invisible-headers)) 2605 (mh-invisible-headers))
2485 :group 'mh-show) 2606 :group 'mh-show
2607 :package-version '(MH-E "8.0"))
2486 2608
2487(defvar mh-invisible-header-fields-compiled nil 2609(defvar mh-invisible-header-fields-compiled nil
2488 "*Regexp matching lines in a message header that are not to be shown. 2610 "*Regexp matching lines in a message header that are not to be shown.
@@ -2519,7 +2641,7 @@ removed and entries from `mh-invisible-header-fields' are added."
2519;; Compile invisible header fields. 2641;; Compile invisible header fields.
2520(mh-invisible-headers) 2642(mh-invisible-headers)
2521 2643
2522(defcustom mh-lpr-command-format "lpr -J '%s'" 2644(mh-defcustom mh-lpr-command-format "lpr -J '%s'"
2523 "*Command used to print\\<mh-folder-mode-map>. 2645 "*Command used to print\\<mh-folder-mode-map>.
2524 2646
2525This option contains the Unix command line which performs the 2647This option contains the Unix command line which performs the
@@ -2533,9 +2655,10 @@ printer's margins.
2533This options is not used by the commands \\[mh-ps-print-msg] or 2655This options is not used by the commands \\[mh-ps-print-msg] or
2534\\[mh-ps-print-msg-file]." 2656\\[mh-ps-print-msg-file]."
2535 :type 'string 2657 :type 'string
2536 :group 'mh-show) 2658 :group 'mh-show
2659 :package-version '(MH-E "6.0"))
2537 2660
2538(defcustom mh-max-inline-image-height nil 2661(mh-defcustom mh-max-inline-image-height nil
2539 "*Maximum inline image height if \"Content-Disposition:\" is not present. 2662 "*Maximum inline image height if \"Content-Disposition:\" is not present.
2540 2663
2541Some older mail programs do not insert this needed plumbing to 2664Some older mail programs do not insert this needed plumbing to
@@ -2548,9 +2671,10 @@ the options `mh-max-inline-image-width' and
2548a large number. The size of your screen is a good choice for 2671a large number. The size of your screen is a good choice for
2549these numbers." 2672these numbers."
2550 :type '(choice (const nil) integer) 2673 :type '(choice (const nil) integer)
2551 :group 'mh-show) 2674 :group 'mh-show
2675 :package-version '(MH-E "7.0"))
2552 2676
2553(defcustom mh-max-inline-image-width nil 2677(mh-defcustom mh-max-inline-image-width nil
2554 "*Maximum inline image width if \"Content-Disposition:\" is not present. 2678 "*Maximum inline image width if \"Content-Disposition:\" is not present.
2555 2679
2556Some older mail programs do not insert this needed plumbing to 2680Some older mail programs do not insert this needed plumbing to
@@ -2563,9 +2687,10 @@ the options `mh-max-inline-image-width' and
2563a large number. The size of your screen is a good choice for 2687a large number. The size of your screen is a good choice for
2564these numbers." 2688these numbers."
2565 :type '(choice (const nil) integer) 2689 :type '(choice (const nil) integer)
2566 :group 'mh-show) 2690 :group 'mh-show
2691 :package-version '(MH-E "7.0"))
2567 2692
2568(defcustom mh-mhl-format-file nil 2693(mh-defcustom mh-mhl-format-file nil
2569 "*Specifies the format file to pass to the \"mhl\" program. 2694 "*Specifies the format file to pass to the \"mhl\" program.
2570 2695
2571Normally MH-E takes care of displaying messages itself (rather than 2696Normally MH-E takes care of displaying messages itself (rather than
@@ -2586,9 +2711,10 @@ file."
2586 :type '(choice (const :tag "Use Default mhl Format (Printing Only)" nil) 2711 :type '(choice (const :tag "Use Default mhl Format (Printing Only)" nil)
2587 (const :tag "Use Default mhl Format" t) 2712 (const :tag "Use Default mhl Format" t)
2588 (file :tag "Specify an mhl Format File")) 2713 (file :tag "Specify an mhl Format File"))
2589 :group 'mh-show) 2714 :group 'mh-show
2715 :package-version '(MH-E "8.0"))
2590 2716
2591(defcustom mh-mime-save-parts-default-directory t 2717(mh-defcustom mh-mime-save-parts-default-directory t
2592 "Default directory to use for \\<mh-folder-mode-map>\\[mh-mime-save-parts]. 2718 "Default directory to use for \\<mh-folder-mode-map>\\[mh-mime-save-parts].
2593 2719
2594The default value for this option is \"Prompt Always\" so that 2720The default value for this option is \"Prompt Always\" so that
@@ -2601,9 +2727,10 @@ directory's name."
2601 :type '(choice (const :tag "Prompt the First Time" nil) 2727 :type '(choice (const :tag "Prompt the First Time" nil)
2602 (const :tag "Prompt Always" t) 2728 (const :tag "Prompt Always" t)
2603 directory) 2729 directory)
2604 :group 'mh-show) 2730 :group 'mh-show
2731 :package-version '(MH-E "7.0"))
2605 2732
2606(defcustom mh-print-background-flag nil 2733(mh-defcustom mh-print-background-flag nil
2607 "*Non-nil means messages should be printed in the background\\<mh-folder-mode-map>. 2734 "*Non-nil means messages should be printed in the background\\<mh-folder-mode-map>.
2608 2735
2609Normally messages are printed in the foreground. If this is slow on 2736Normally messages are printed in the foreground. If this is slow on
@@ -2616,18 +2743,20 @@ or else the output may be truncated.
2616This option is not used by the commands \\[mh-ps-print-msg] or 2743This option is not used by the commands \\[mh-ps-print-msg] or
2617\\[mh-ps-print-msg-file]." 2744\\[mh-ps-print-msg-file]."
2618 :type 'boolean 2745 :type 'boolean
2619 :group 'mh-show) 2746 :group 'mh-show
2747 :package-version '(MH-E "7.0"))
2620 2748
2621(defcustom mh-show-maximum-size 0 2749(mh-defcustom mh-show-maximum-size 0
2622 "*Maximum size of message (in bytes) to display automatically. 2750 "*Maximum size of message (in bytes) to display automatically.
2623 2751
2624This option provides an opportunity to skip over large messages 2752This option provides an opportunity to skip over large messages
2625which may be slow to load. The default value of 0 means that all 2753which may be slow to load. The default value of 0 means that all
2626message are shown regardless of size." 2754message are shown regardless of size."
2627 :type 'integer 2755 :type 'integer
2628 :group 'mh-show) 2756 :group 'mh-show
2757 :package-version '(MH-E "8.0"))
2629 2758
2630(defcustom mh-show-use-xface-flag (>= emacs-major-version 21) 2759(mh-defcustom mh-show-use-xface-flag (>= emacs-major-version 21)
2631 "*Non-nil means display face images in MH-show buffers. 2760 "*Non-nil means display face images in MH-show buffers.
2632 2761
2633MH-E can display the content of \"Face:\", \"X-Face:\", and 2762MH-E can display the content of \"Face:\", \"X-Face:\", and
@@ -2664,9 +2793,10 @@ image doesn't need to be transmitted with every single mail.
2664The option `mh-fetch-x-image-url' controls the fetching of the 2793The option `mh-fetch-x-image-url' controls the fetching of the
2665\"X-Image-URL:\" header field image." 2794\"X-Image-URL:\" header field image."
2666 :type 'boolean 2795 :type 'boolean
2667 :group 'mh-show) 2796 :group 'mh-show
2797 :package-version '(MH-E "7.0"))
2668 2798
2669(defcustom mh-store-default-directory nil 2799(mh-defcustom mh-store-default-directory nil
2670 "*Default directory for \\<mh-folder-mode-map>\\[mh-store-msg]. 2800 "*Default directory for \\<mh-folder-mode-map>\\[mh-store-msg].
2671 2801
2672If you would like to change the initial default directory, 2802If you would like to change the initial default directory,
@@ -2675,9 +2805,10 @@ customize this option, change the value from \"Current\" to
2675the content of these messages." 2805the content of these messages."
2676 :type '(choice (const :tag "Current" nil) 2806 :type '(choice (const :tag "Current" nil)
2677 directory) 2807 directory)
2678 :group 'mh-show) 2808 :group 'mh-show
2809 :package-version '(MH-E "6.0"))
2679 2810
2680(defcustom mh-summary-height nil 2811(mh-defcustom mh-summary-height nil
2681 "*Number of lines in MH-Folder buffer (including the mode line). 2812 "*Number of lines in MH-Folder buffer (including the mode line).
2682 2813
2683The default value of this option is \"Automatic\" which means 2814The default value of this option is \"Automatic\" which means
@@ -2687,23 +2818,21 @@ then choose the \"Fixed Size\" option and enter the number of
2687lines you'd like to see." 2818lines you'd like to see."
2688 :type '(choice (const :tag "Automatic" nil) 2819 :type '(choice (const :tag "Automatic" nil)
2689 (integer :tag "Fixed Size")) 2820 (integer :tag "Fixed Size"))
2690 :group 'mh-show) 2821 :group 'mh-show
2691 2822 :package-version '(MH-E "7.4"))
2692
2693 2823
2694;;; The Speedbar (:group 'mh-speedbar) 2824;;; The Speedbar (:group 'mh-speedbar)
2695 2825
2696(defcustom mh-speed-update-interval 60 2826(mh-defcustom mh-speed-update-interval 60
2697 "Time between speedbar updates in seconds. 2827 "Time between speedbar updates in seconds.
2698Set to 0 to disable automatic update." 2828Set to 0 to disable automatic update."
2699 :type 'integer 2829 :type 'integer
2700 :group 'mh-speedbar) 2830 :group 'mh-speedbar
2701 2831 :package-version '(MH-E "8.0"))
2702
2703 2832
2704;;; Threading (:group 'mh-thread) 2833;;; Threading (:group 'mh-thread)
2705 2834
2706(defcustom mh-show-threads-flag nil 2835(mh-defcustom mh-show-threads-flag nil
2707 "*Non-nil means new folders start in threaded mode. 2836 "*Non-nil means new folders start in threaded mode.
2708 2837
2709Threading large number of messages can be time consuming so this 2838Threading large number of messages can be time consuming so this
@@ -2711,16 +2840,15 @@ option is turned off by default. If you turn this option on, then
2711threading will be done only if the number of messages being 2840threading will be done only if the number of messages being
2712threaded is less than `mh-large-folder'." 2841threaded is less than `mh-large-folder'."
2713 :type 'boolean 2842 :type 'boolean
2714 :group 'mh-thread) 2843 :group 'mh-thread
2715 2844 :package-version '(MH-E "7.1"))
2716
2717 2845
2718;;; The Tool Bar (:group 'mh-tool-bar) 2846;;; The Tool Bar (:group 'mh-tool-bar)
2719 2847
2720;; mh-tool-bar-folder-buttons and mh-tool-bar-letter-buttons defined 2848;; mh-tool-bar-folder-buttons and mh-tool-bar-letter-buttons defined
2721;; dynamically in mh-tool-bar.el. 2849;; dynamically in mh-tool-bar.el.
2722 2850
2723(defcustom mh-tool-bar-search-function 'mh-search 2851(mh-defcustom mh-tool-bar-search-function 'mh-search
2724 "*Function called by the tool bar search button. 2852 "*Function called by the tool bar search button.
2725 2853
2726By default, this is set to `mh-search'. You can also choose 2854By default, this is set to `mh-search'. You can also choose
@@ -2728,11 +2856,12 @@ By default, this is set to `mh-search'. You can also choose
2728of your own choosing." 2856of your own choosing."
2729 :type '(choice (const mh-search) 2857 :type '(choice (const mh-search)
2730 (function :tag "Other Function")) 2858 (function :tag "Other Function"))
2731 :group 'mh-tool-bar) 2859 :group 'mh-tool-bar
2860 :package-version '(MH-E "7.0"))
2732 2861
2733;; XEmacs has a couple of extra customizations... 2862;; XEmacs has a couple of extra customizations...
2734(mh-do-in-xemacs 2863(mh-do-in-xemacs
2735 (defcustom mh-xemacs-use-tool-bar-flag mh-xemacs-has-tool-bar-flag 2864 (mh-defcustom mh-xemacs-use-tool-bar-flag mh-xemacs-has-tool-bar-flag
2736 "*If non-nil, use tool bar. 2865 "*If non-nil, use tool bar.
2737 2866
2738This option controls whether to show the MH-E icons at all. By 2867This option controls whether to show the MH-E icons at all. By
@@ -2745,9 +2874,10 @@ won't be able to turn on this option."
2745 (if (and (eq value t) 2874 (if (and (eq value t)
2746 (not mh-xemacs-has-tool-bar-flag)) 2875 (not mh-xemacs-has-tool-bar-flag))
2747 (error "Tool bar not supported")) 2876 (error "Tool bar not supported"))
2748 (set-default symbol value))) 2877 (set-default symbol value))
2878 :package-version '(MH-E "7.3"))
2749 2879
2750 (defcustom mh-xemacs-tool-bar-position nil 2880 (mh-defcustom mh-xemacs-tool-bar-position nil
2751 "*Tool bar location. 2881 "*Tool bar location.
2752 2882
2753This option controls the placement of the tool bar along the four 2883This option controls the placement of the tool bar along the four
@@ -2762,13 +2892,14 @@ default tool bar."
2762 (const :tag "Bottom" :value bottom) 2892 (const :tag "Bottom" :value bottom)
2763 (const :tag "Left" :value left) 2893 (const :tag "Left" :value left)
2764 (const :tag "Right" :value right)) 2894 (const :tag "Right" :value right))
2765 :group 'mh-tool-bar)) 2895 :group 'mh-tool-bar
2896 :package-version '(MH-E "7.3")))
2766 2897
2767 2898
2768 2899
2769;;; Hooks (:group 'mh-hooks + group where hook described) 2900;;; Hooks (:group 'mh-hooks + group where hook described)
2770 2901
2771(defcustom mh-after-commands-processed-hook nil 2902(mh-defcustom mh-after-commands-processed-hook nil
2772 "Hook run by \\<mh-folder-mode-map>\\[mh-execute-commands] after performing outstanding refile and delete requests. 2903 "Hook run by \\<mh-folder-mode-map>\\[mh-execute-commands] after performing outstanding refile and delete requests.
2773 2904
2774Variables that are useful in this hook include 2905Variables that are useful in this hook include
@@ -2777,15 +2908,17 @@ deletes and refiles. This list will always include the current
2777folder, which is also available in `mh-current-folder'." 2908folder, which is also available in `mh-current-folder'."
2778 :type 'hook 2909 :type 'hook
2779 :group 'mh-hooks 2910 :group 'mh-hooks
2780 :group 'mh-folder) 2911 :group 'mh-folder
2912 :package-version '(MH-E "8.0"))
2781 2913
2782(defcustom mh-alias-reloaded-hook nil 2914(mh-defcustom mh-alias-reloaded-hook nil
2783 "Hook run by `mh-alias-reload' after loading aliases." 2915 "Hook run by `mh-alias-reload' after loading aliases."
2784 :type 'hook 2916 :type 'hook
2785 :group 'mh-hooks 2917 :group 'mh-hooks
2786 :group 'mh-alias) 2918 :group 'mh-alias
2919 :package-version '(MH-E "8.0"))
2787 2920
2788(defcustom mh-before-commands-processed-hook nil 2921(mh-defcustom mh-before-commands-processed-hook nil
2789 "Hook run by \\<mh-folder-mode-map>\\[mh-execute-commands] before performing outstanding refile and delete requests. 2922 "Hook run by \\<mh-folder-mode-map>\\[mh-execute-commands] before performing outstanding refile and delete requests.
2790 2923
2791Variables that are useful in this hook include `mh-delete-list' 2924Variables that are useful in this hook include `mh-delete-list'
@@ -2793,9 +2926,10 @@ and `mh-refile-list' which can be used to see which changes will
2793be made to the current folder, `mh-current-folder'." 2926be made to the current folder, `mh-current-folder'."
2794 :type 'hook 2927 :type 'hook
2795 :group 'mh-hooks 2928 :group 'mh-hooks
2796 :group 'mh-folder) 2929 :group 'mh-folder
2930 :package-version '(MH-E "8.0"))
2797 2931
2798(defcustom mh-before-quit-hook nil 2932(mh-defcustom mh-before-quit-hook nil
2799 "Hook run by \\<mh-folder-mode-map>\\[mh-quit] before quitting MH-E. 2933 "Hook run by \\<mh-folder-mode-map>\\[mh-quit] before quitting MH-E.
2800 2934
2801This hook is called before the quit occurs, so you might use it 2935This hook is called before the quit occurs, so you might use it
@@ -2805,9 +2939,10 @@ abort the quit or call `mh-execute-commands', for example.
2805See also `mh-quit-hook'." 2939See also `mh-quit-hook'."
2806 :type 'hook 2940 :type 'hook
2807 :group 'mh-hooks 2941 :group 'mh-hooks
2808 :group 'mh-folder) 2942 :group 'mh-folder
2943 :package-version '(MH-E "6.0"))
2809 2944
2810(defcustom mh-before-send-letter-hook nil 2945(mh-defcustom mh-before-send-letter-hook nil
2811 "Hook run at the beginning of the \\<mh-letter-mode-map>\\[mh-send-letter] command. 2946 "Hook run at the beginning of the \\<mh-letter-mode-map>\\[mh-send-letter] command.
2812 2947
2813For example, if you want to check your spelling in your message 2948For example, if you want to check your spelling in your message
@@ -2815,18 +2950,20 @@ before sending, add the `ispell-message' function."
2815 :type 'hook 2950 :type 'hook
2816 :options '(ispell-message) 2951 :options '(ispell-message)
2817 :group 'mh-hooks 2952 :group 'mh-hooks
2818 :group 'mh-letter) 2953 :group 'mh-letter
2954 :package-version '(MH-E "6.0"))
2819 2955
2820(defcustom mh-delete-msg-hook nil 2956(mh-defcustom mh-delete-msg-hook nil
2821 "Hook run by \\<mh-letter-mode-map>\\[mh-delete-msg] after marking each message for deletion. 2957 "Hook run by \\<mh-letter-mode-map>\\[mh-delete-msg] after marking each message for deletion.
2822 2958
2823For example, a past maintainer of MH-E used this once when he 2959For example, a past maintainer of MH-E used this once when he
2824kept statistics on his mail usage." 2960kept statistics on his mail usage."
2825 :type 'hook 2961 :type 'hook
2826 :group 'mh-hooks 2962 :group 'mh-hooks
2827 :group 'mh-show) 2963 :group 'mh-show
2964 :package-version '(MH-E "6.0"))
2828 2965
2829(defcustom mh-find-path-hook nil 2966(mh-defcustom mh-find-path-hook nil
2830 "Hook run by `mh-find-path' after reading the user's MH profile. 2967 "Hook run by `mh-find-path' after reading the user's MH profile.
2831 2968
2832This hook can be used the change the value of the variables that 2969This hook can be used the change the value of the variables that
@@ -2834,27 +2971,31 @@ This hook can be used the change the value of the variables that
2834between MH and MH-E." 2971between MH and MH-E."
2835 :type 'hook 2972 :type 'hook
2836 :group 'mh-hooks 2973 :group 'mh-hooks
2837 :group 'mh-e) 2974 :group 'mh-e
2975 :package-version '(MH-E "7.0"))
2838 2976
2839(defcustom mh-folder-mode-hook nil 2977(mh-defcustom mh-folder-mode-hook nil
2840 "Hook run by `mh-folder-mode' when visiting a new folder." 2978 "Hook run by `mh-folder-mode' when visiting a new folder."
2841 :type 'hook 2979 :type 'hook
2842 :group 'mh-hooks 2980 :group 'mh-hooks
2843 :group 'mh-folder) 2981 :group 'mh-folder
2982 :package-version '(MH-E "6.0"))
2844 2983
2845(defcustom mh-forward-hook nil 2984(mh-defcustom mh-forward-hook nil
2846 "Hook run by `mh-forward' on a forwarded letter." 2985 "Hook run by `mh-forward' on a forwarded letter."
2847 :type 'hook 2986 :type 'hook
2848 :group 'mh-hooks 2987 :group 'mh-hooks
2849 :group 'mh-sending-mail) 2988 :group 'mh-sending-mail
2989 :package-version '(MH-E "8.0"))
2850 2990
2851(defcustom mh-inc-folder-hook nil 2991(mh-defcustom mh-inc-folder-hook nil
2852 "Hook run by \\<mh-folder-mode-map>\\[mh-inc-folder] after incorporating mail into a folder." 2992 "Hook run by \\<mh-folder-mode-map>\\[mh-inc-folder] after incorporating mail into a folder."
2853 :type 'hook 2993 :type 'hook
2854 :group 'mh-hooks 2994 :group 'mh-hooks
2855 :group 'mh-inc) 2995 :group 'mh-inc
2996 :package-version '(MH-E "6.0"))
2856 2997
2857(defcustom mh-insert-signature-hook nil 2998(mh-defcustom mh-insert-signature-hook nil
2858 "Hook run by \\<mh-letter-mode-map>\\[mh-insert-signature] after signature has been inserted. 2999 "Hook run by \\<mh-letter-mode-map>\\[mh-insert-signature] after signature has been inserted.
2859 3000
2860Hook functions may access the actual name of the file or the 3001Hook functions may access the actual name of the file or the
@@ -2862,9 +3003,10 @@ function used to insert the signature with
2862`mh-signature-file-name'." 3003`mh-signature-file-name'."
2863 :type 'hook 3004 :type 'hook
2864 :group 'mh-hooks 3005 :group 'mh-hooks
2865 :group 'mh-letter) 3006 :group 'mh-letter
3007 :package-version '(MH-E "8.0"))
2866 3008
2867(defcustom mh-kill-folder-suppress-prompt-hooks '(mh-search-p) 3009(mh-defcustom mh-kill-folder-suppress-prompt-hooks '(mh-search-p)
2868 "Abnormal hook run at the beginning of \\<mh-folder-mode-map>\\[mh-kill-folder]. 3010 "Abnormal hook run at the beginning of \\<mh-folder-mode-map>\\[mh-kill-folder].
2869 3011
2870The hook functions are called with no arguments and should return 3012The hook functions are called with no arguments and should return
@@ -2879,9 +3021,10 @@ which returns t on \"+inbox\" and you hit \\[mh-kill-folder] by
2879accident in the \"+inbox\" folder, you will not be happy." 3021accident in the \"+inbox\" folder, you will not be happy."
2880 :type 'hook 3022 :type 'hook
2881 :group 'mh-hooks 3023 :group 'mh-hooks
2882 :group 'mh-folder) 3024 :group 'mh-folder
3025 :package-version '(MH-E "7.4"))
2883 3026
2884(defcustom mh-letter-mode-hook nil 3027(mh-defcustom mh-letter-mode-hook nil
2885 "Hook run by `mh-letter-mode' on a new letter. 3028 "Hook run by `mh-letter-mode' on a new letter.
2886 3029
2887This hook allows you to do some processing before editing a 3030This hook allows you to do some processing before editing a
@@ -2891,15 +3034,17 @@ letter. For example, you may wish to modify the header after
2891go." 3034go."
2892 :type 'hook 3035 :type 'hook
2893 :group 'mh-hooks 3036 :group 'mh-hooks
2894 :group 'mh-sending-mail) 3037 :group 'mh-sending-mail
3038 :package-version '(MH-E "6.0"))
2895 3039
2896(defcustom mh-mh-to-mime-hook nil 3040(mh-defcustom mh-mh-to-mime-hook nil
2897 "Hook run on the formatted letter by \\<mh-letter-mode-map>\\[mh-mh-to-mime]." 3041 "Hook run on the formatted letter by \\<mh-letter-mode-map>\\[mh-mh-to-mime]."
2898 :type 'hook 3042 :type 'hook
2899 :group 'mh-hooks 3043 :group 'mh-hooks
2900 :group 'mh-letter) 3044 :group 'mh-letter
3045 :package-version '(MH-E "8.0"))
2901 3046
2902(defcustom mh-search-mode-hook nil 3047(mh-defcustom mh-search-mode-hook nil
2903 "Hook run upon entry to `mh-search-mode'\\<mh-folder-mode-map>. 3048 "Hook run upon entry to `mh-search-mode'\\<mh-folder-mode-map>.
2904 3049
2905If you find that you do the same thing over and over when editing 3050If you find that you do the same thing over and over when editing
@@ -2908,9 +3053,10 @@ This can be done with this hook which is called when
2908\\[mh-search] is run on a new pattern." 3053\\[mh-search] is run on a new pattern."
2909 :type 'hook 3054 :type 'hook
2910 :group 'mh-hooks 3055 :group 'mh-hooks
2911 :group 'mh-search) 3056 :group 'mh-search
3057 :package-version '(MH-E "8.0"))
2912 3058
2913(defcustom mh-quit-hook nil 3059(mh-defcustom mh-quit-hook nil
2914 "Hook run by \\<mh-folder-mode-map>\\[mh-quit] after quitting MH-E. 3060 "Hook run by \\<mh-folder-mode-map>\\[mh-quit] after quitting MH-E.
2915 3061
2916This hook is not run in an MH-E context, so you might use it to 3062This hook is not run in an MH-E context, so you might use it to
@@ -2919,15 +3065,17 @@ modify the window setup.
2919See also `mh-before-quit-hook'." 3065See also `mh-before-quit-hook'."
2920 :type 'hook 3066 :type 'hook
2921 :group 'mh-hooks 3067 :group 'mh-hooks
2922 :group 'mh-folder) 3068 :group 'mh-folder
3069 :package-version '(MH-E "6.0"))
2923 3070
2924(defcustom mh-refile-msg-hook nil 3071(mh-defcustom mh-refile-msg-hook nil
2925 "Hook run by \\<mh-folder-mode-map>\\[mh-refile-msg] after marking each message for refiling." 3072 "Hook run by \\<mh-folder-mode-map>\\[mh-refile-msg] after marking each message for refiling."
2926 :type 'hook 3073 :type 'hook
2927 :group 'mh-hooks 3074 :group 'mh-hooks
2928 :group 'mh-folder) 3075 :group 'mh-folder
3076 :package-version '(MH-E "6.0"))
2929 3077
2930(defcustom mh-show-hook nil 3078(mh-defcustom mh-show-hook nil
2931 "Hook run after \\<mh-folder-mode-map>\\[mh-show] shows a message. 3079 "Hook run after \\<mh-folder-mode-map>\\[mh-show] shows a message.
2932 3080
2933It is the last thing called after messages are displayed. It's 3081It is the last thing called after messages are displayed. It's
@@ -2935,9 +3083,10 @@ used to affect the behavior of MH-E in general or when
2935`mh-show-mode-hook' is too early. See `mh-show-mode-hook'." 3083`mh-show-mode-hook' is too early. See `mh-show-mode-hook'."
2936 :type 'hook 3084 :type 'hook
2937 :group 'mh-hooks 3085 :group 'mh-hooks
2938 :group 'mh-show) 3086 :group 'mh-show
3087 :package-version '(MH-E "6.0"))
2939 3088
2940(defcustom mh-show-mode-hook nil 3089(mh-defcustom mh-show-mode-hook nil
2941 "Hook run upon entry to `mh-show-mode'. 3090 "Hook run upon entry to `mh-show-mode'.
2942 3091
2943This hook is called early on in the process of the message 3092This hook is called early on in the process of the message
@@ -2945,9 +3094,10 @@ display. It is usually used to perform some action on the
2945message's content. See `mh-show-hook'." 3094message's content. See `mh-show-hook'."
2946 :type 'hook 3095 :type 'hook
2947 :group 'mh-hooks 3096 :group 'mh-hooks
2948 :group 'mh-show) 3097 :group 'mh-show
3098 :package-version '(MH-E "6.0"))
2949 3099
2950(defcustom mh-unseen-updated-hook nil 3100(mh-defcustom mh-unseen-updated-hook nil
2951 "Hook run after the unseen sequence has been updated. 3101 "Hook run after the unseen sequence has been updated.
2952 3102
2953The variable `mh-seen-list' can be used by this hook to obtain 3103The variable `mh-seen-list' can be used by this hook to obtain
@@ -2955,7 +3105,8 @@ the list of messages which were removed from the unseen
2955sequence." 3105sequence."
2956 :type 'hook 3106 :type 'hook
2957 :group 'mh-hooks 3107 :group 'mh-hooks
2958 :group 'mh-sequences) 3108 :group 'mh-sequences
3109 :package-version '(MH-E "6.0"))
2959 3110
2960 3111
2961 3112
@@ -2968,7 +3119,7 @@ sequence."
2968;; These will be unbound after the faces are defined. 3119;; These will be unbound after the faces are defined.
2969(defvar mh-min-colors-defined-flag (and (not mh-xemacs-flag) 3120(defvar mh-min-colors-defined-flag (and (not mh-xemacs-flag)
2970 (>= emacs-major-version 22)) 3121 (>= emacs-major-version 22))
2971 "Non-nil means defface supports min-colors display requirement.") 3122 "Non-nil means `defface' supports min-colors display requirement.")
2972 3123
2973(defun mh-defface-compat (spec) 3124(defun mh-defface-compat (spec)
2974 "Convert SPEC for defface if necessary to run on older platforms. 3125 "Convert SPEC for defface if necessary to run on older platforms.
@@ -3160,13 +3311,14 @@ in the inherit parameter are not added to the returned spec."
3160 inherit 3311 inherit
3161 (mh-defface-compat (cadr (assoc face mh-face-data))))) 3312 (mh-defface-compat (cadr (assoc face mh-face-data)))))
3162 3313
3163(defface mh-folder-address 3314(mh-defface mh-folder-address
3164 (mh-face-data 'mh-folder-subject '((t (:inherit mh-folder-subject)))) 3315 (mh-face-data 'mh-folder-subject '((t (:inherit mh-folder-subject))))
3165 "Recipient face." 3316 "Recipient face."
3166 :group 'mh-faces 3317 :group 'mh-faces
3167 :group 'mh-folder) 3318 :group 'mh-folder
3319 :package-version '(MH-E "8.0"))
3168 3320
3169(defface mh-folder-body 3321(mh-defface mh-folder-body
3170 (mh-face-data 'mh-folder-msg-number 3322 (mh-face-data 'mh-folder-msg-number
3171 '((((class color)) 3323 '((((class color))
3172 (:inherit mh-folder-msg-number)) 3324 (:inherit mh-folder-msg-number))
@@ -3174,171 +3326,202 @@ in the inherit parameter are not added to the returned spec."
3174 (:inherit mh-folder-msg-number :italic t)))) 3326 (:inherit mh-folder-msg-number :italic t))))
3175 "Body text face." 3327 "Body text face."
3176 :group 'mh-faces 3328 :group 'mh-faces
3177 :group 'mh-folder) 3329 :group 'mh-folder
3330 :package-version '(MH-E "8.0"))
3178 3331
3179(defface mh-folder-cur-msg-number 3332(mh-defface mh-folder-cur-msg-number
3180 (mh-face-data 'mh-folder-msg-number 3333 (mh-face-data 'mh-folder-msg-number
3181 '((t (:inherit mh-folder-msg-number :bold t)))) 3334 '((t (:inherit mh-folder-msg-number :bold t))))
3182 "Current message number face." 3335 "Current message number face."
3183 :group 'mh-faces 3336 :group 'mh-faces
3184 :group 'mh-folder) 3337 :group 'mh-folder
3338 :package-version '(MH-E "8.0"))
3185 3339
3186(defface mh-folder-date 3340(mh-defface mh-folder-date
3187 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-msg-number)))) 3341 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-msg-number))))
3188 "Date face." 3342 "Date face."
3189 :group 'mh-faces 3343 :group 'mh-faces
3190 :group 'mh-folder) 3344 :group 'mh-folder
3345 :package-version '(MH-E "8.0"))
3191 3346
3192(defface mh-folder-deleted 3347(mh-defface mh-folder-deleted
3193 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-msg-number)))) 3348 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-msg-number))))
3194 "Deleted message face." 3349 "Deleted message face."
3195 :group 'mh-faces 3350 :group 'mh-faces
3196 :group 'mh-folder) 3351 :group 'mh-folder
3352 :package-version '(MH-E "8.0"))
3197 3353
3198(defface mh-folder-followup (mh-face-data 'mh-folder-followup) 3354(mh-defface mh-folder-followup (mh-face-data 'mh-folder-followup)
3199 "\"Re:\" face." 3355 "\"Re:\" face."
3200 :group 'mh-faces 3356 :group 'mh-faces
3201 :group 'mh-folder) 3357 :group 'mh-folder
3358 :package-version '(MH-E "8.0"))
3202 3359
3203(defface mh-folder-msg-number (mh-face-data 'mh-folder-msg-number) 3360(mh-defface mh-folder-msg-number (mh-face-data 'mh-folder-msg-number)
3204 "Message number face." 3361 "Message number face."
3205 :group 'mh-faces 3362 :group 'mh-faces
3206 :group 'mh-folder) 3363 :group 'mh-folder
3364 :package-version '(MH-E "8.0"))
3207 3365
3208(defface mh-folder-refiled (mh-face-data 'mh-folder-refiled) 3366(mh-defface mh-folder-refiled (mh-face-data 'mh-folder-refiled)
3209 "Refiled message face." 3367 "Refiled message face."
3210 :group 'mh-faces 3368 :group 'mh-faces
3211 :group 'mh-folder) 3369 :group 'mh-folder
3370 :package-version '(MH-E "8.0"))
3212 3371
3213(defface mh-folder-sent-to-me-hint 3372(mh-defface mh-folder-sent-to-me-hint
3214 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-date)))) 3373 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-date))))
3215 "Fontification hint face in messages sent directly to us. 3374 "Fontification hint face in messages sent directly to us.
3216The detection of messages sent to us is governed by the scan 3375The detection of messages sent to us is governed by the scan
3217format `mh-scan-format-nmh' and the regular expression 3376format `mh-scan-format-nmh' and the regular expression
3218`mh-scan-sent-to-me-sender-regexp'." 3377`mh-scan-sent-to-me-sender-regexp'."
3219 :group 'mh-faces 3378 :group 'mh-faces
3220 :group 'mh-folder) 3379 :group 'mh-folder
3380 :package-version '(MH-E "8.0"))
3221 3381
3222(defface mh-folder-sent-to-me-sender 3382(mh-defface mh-folder-sent-to-me-sender
3223 (mh-face-data 'mh-folder-followup '((t (:inherit mh-folder-followup)))) 3383 (mh-face-data 'mh-folder-followup '((t (:inherit mh-folder-followup))))
3224 "Sender face in messages sent directly to us. 3384 "Sender face in messages sent directly to us.
3225The detection of messages sent to us is governed by the scan 3385The detection of messages sent to us is governed by the scan
3226format `mh-scan-format-nmh' and the regular expression 3386format `mh-scan-format-nmh' and the regular expression
3227`mh-scan-sent-to-me-sender-regexp'." 3387`mh-scan-sent-to-me-sender-regexp'."
3228 :group 'mh-faces 3388 :group 'mh-faces
3229 :group 'mh-folder) 3389 :group 'mh-folder
3390 :package-version '(MH-E "8.0"))
3230 3391
3231(defface mh-folder-subject (mh-face-data 'mh-folder-subject) 3392(mh-defface mh-folder-subject (mh-face-data 'mh-folder-subject)
3232 "Subject face." 3393 "Subject face."
3233 :group 'mh-faces 3394 :group 'mh-faces
3234 :group 'mh-folder) 3395 :group 'mh-folder
3396 :package-version '(MH-E "8.0"))
3235 3397
3236(defface mh-folder-tick (mh-face-data 'mh-folder-tick) 3398(mh-defface mh-folder-tick (mh-face-data 'mh-folder-tick)
3237 "Ticked message face." 3399 "Ticked message face."
3238 :group 'mh-faces 3400 :group 'mh-faces
3239 :group 'mh-folder) 3401 :group 'mh-folder
3402 :package-version '(MH-E "8.0"))
3240 3403
3241(defface mh-folder-to (mh-face-data 'mh-folder-to) 3404(mh-defface mh-folder-to (mh-face-data 'mh-folder-to)
3242 "\"To:\" face." 3405 "\"To:\" face."
3243 :group 'mh-faces 3406 :group 'mh-faces
3244 :group 'mh-folder) 3407 :group 'mh-folder
3408 :package-version '(MH-E "8.0"))
3245 3409
3246(defface mh-letter-header-field (mh-face-data 'mh-letter-header-field) 3410(mh-defface mh-letter-header-field (mh-face-data 'mh-letter-header-field)
3247 "Editable header field value face in draft buffers." 3411 "Editable header field value face in draft buffers."
3248 :group 'mh-faces 3412 :group 'mh-faces
3249 :group 'mh-letter) 3413 :group 'mh-letter
3414 :package-version '(MH-E "8.0"))
3250 3415
3251(defface mh-search-folder (mh-face-data 'mh-search-folder) 3416(mh-defface mh-search-folder (mh-face-data 'mh-search-folder)
3252 "Folder heading face in MH-Folder buffers created by searches." 3417 "Folder heading face in MH-Folder buffers created by searches."
3253 :group 'mh-faces 3418 :group 'mh-faces
3254 :group 'mh-search) 3419 :group 'mh-search
3420 :package-version '(MH-E "8.0"))
3255 3421
3256(defface mh-show-cc (mh-face-data 'mh-show-cc) 3422(mh-defface mh-show-cc (mh-face-data 'mh-show-cc)
3257 "Face used to highlight \"cc:\" header fields." 3423 "Face used to highlight \"cc:\" header fields."
3258 :group 'mh-faces 3424 :group 'mh-faces
3259 :group 'mh-show) 3425 :group 'mh-show
3426 :package-version '(MH-E "8.0"))
3260 3427
3261(defface mh-show-date (mh-face-data 'mh-show-date) 3428(mh-defface mh-show-date (mh-face-data 'mh-show-date)
3262 "Face used to highlight \"Date:\" header fields." 3429 "Face used to highlight \"Date:\" header fields."
3263 :group 'mh-faces 3430 :group 'mh-faces
3264 :group 'mh-show) 3431 :group 'mh-show
3432 :package-version '(MH-E "8.0"))
3265 3433
3266(defface mh-show-from (mh-face-data 'mh-show-from) 3434(mh-defface mh-show-from (mh-face-data 'mh-show-from)
3267 "Face used to highlight \"From:\" header fields." 3435 "Face used to highlight \"From:\" header fields."
3268 :group 'mh-faces 3436 :group 'mh-faces
3269 :group 'mh-show) 3437 :group 'mh-show
3438 :package-version '(MH-E "8.0"))
3270 3439
3271(defface mh-show-header (mh-face-data 'mh-show-header) 3440(mh-defface mh-show-header (mh-face-data 'mh-show-header)
3272 "Face used to deemphasize less interesting header fields." 3441 "Face used to deemphasize less interesting header fields."
3273 :group 'mh-faces 3442 :group 'mh-faces
3274 :group 'mh-show) 3443 :group 'mh-show
3444 :package-version '(MH-E "8.0"))
3275 3445
3276(defface mh-show-pgg-bad (mh-face-data 'mh-show-pgg-bad) 3446(mh-defface mh-show-pgg-bad (mh-face-data 'mh-show-pgg-bad)
3277 "Bad PGG signature face." 3447 "Bad PGG signature face."
3278 :group 'mh-faces 3448 :group 'mh-faces
3279 :group 'mh-show) 3449 :group 'mh-show
3450 :package-version '(MH-E "8.0"))
3280 3451
3281(defface mh-show-pgg-good (mh-face-data 'mh-show-pgg-good) 3452(mh-defface mh-show-pgg-good (mh-face-data 'mh-show-pgg-good)
3282 "Good PGG signature face." 3453 "Good PGG signature face."
3283 :group 'mh-faces 3454 :group 'mh-faces
3284 :group 'mh-show) 3455 :group 'mh-show
3456 :package-version '(MH-E "8.0"))
3285 3457
3286(defface mh-show-pgg-unknown (mh-face-data 'mh-show-pgg-unknown) 3458(mh-defface mh-show-pgg-unknown (mh-face-data 'mh-show-pgg-unknown)
3287 "Unknown or untrusted PGG signature face." 3459 "Unknown or untrusted PGG signature face."
3288 :group 'mh-faces 3460 :group 'mh-faces
3289 :group 'mh-show) 3461 :group 'mh-show
3462 :package-version '(MH-E "8.0"))
3290 3463
3291(defface mh-show-signature (mh-face-data 'mh-show-signature) 3464(mh-defface mh-show-signature (mh-face-data 'mh-show-signature)
3292 "Signature face." 3465 "Signature face."
3293 :group 'mh-faces 3466 :group 'mh-faces
3294 :group 'mh-show) 3467 :group 'mh-show
3468 :package-version '(MH-E "8.0"))
3295 3469
3296(defface mh-show-subject 3470(mh-defface mh-show-subject
3297 (mh-face-data 'mh-folder-subject '((t (:inherit mh-folder-subject)))) 3471 (mh-face-data 'mh-folder-subject '((t (:inherit mh-folder-subject))))
3298 "Face used to highlight \"Subject:\" header fields." 3472 "Face used to highlight \"Subject:\" header fields."
3299 :group 'mh-faces 3473 :group 'mh-faces
3300 :group 'mh-show) 3474 :group 'mh-show
3475 :package-version '(MH-E "8.0"))
3301 3476
3302(defface mh-show-to (mh-face-data 'mh-show-to) 3477(mh-defface mh-show-to (mh-face-data 'mh-show-to)
3303 "Face used to highlight \"To:\" header fields." 3478 "Face used to highlight \"To:\" header fields."
3304 :group 'mh-faces 3479 :group 'mh-faces
3305 :group 'mh-show) 3480 :group 'mh-show
3481 :package-version '(MH-E "8.0"))
3306 3482
3307(defface mh-show-xface 3483(mh-defface mh-show-xface
3308 (mh-face-data 'mh-show-from '((t (:inherit (mh-show-from highlight))))) 3484 (mh-face-data 'mh-show-from '((t (:inherit (mh-show-from highlight)))))
3309
3310"X-Face image face. 3485"X-Face image face.
3311The background and foreground are used in the image." 3486The background and foreground are used in the image."
3312 :group 'mh-faces 3487 :group 'mh-faces
3313 :group 'mh-show) 3488 :group 'mh-show
3489 :package-version '(MH-E "8.0"))
3314 3490
3315(defface mh-speedbar-folder (mh-face-data 'mh-speedbar-folder) 3491(mh-defface mh-speedbar-folder (mh-face-data 'mh-speedbar-folder)
3316 "Basic folder face." 3492 "Basic folder face."
3317 :group 'mh-faces 3493 :group 'mh-faces
3318 :group 'mh-speedbar) 3494 :group 'mh-speedbar
3495 :package-version '(MH-E "8.0"))
3319 3496
3320(defface mh-speedbar-folder-with-unseen-messages 3497(mh-defface mh-speedbar-folder-with-unseen-messages
3321 (mh-face-data 'mh-speedbar-folder 3498 (mh-face-data 'mh-speedbar-folder
3322 '((t (:inherit mh-speedbar-folder :bold t)))) 3499 '((t (:inherit mh-speedbar-folder :bold t))))
3323 "Folder face when folder contains unread messages." 3500 "Folder face when folder contains unread messages."
3324 :group 'mh-faces 3501 :group 'mh-faces
3325 :group 'mh-speedbar) 3502 :group 'mh-speedbar
3503 :package-version '(MH-E "8.0"))
3326 3504
3327(defface mh-speedbar-selected-folder 3505(mh-defface mh-speedbar-selected-folder
3328 (mh-face-data 'mh-speedbar-selected-folder) 3506 (mh-face-data 'mh-speedbar-selected-folder)
3329 "Selected folder face." 3507 "Selected folder face."
3330 :group 'mh-faces 3508 :group 'mh-faces
3331 :group 'mh-speedbar) 3509 :group 'mh-speedbar
3510 :package-version '(MH-E "8.0"))
3332 3511
3333(defface mh-speedbar-selected-folder-with-unseen-messages 3512(mh-defface mh-speedbar-selected-folder-with-unseen-messages
3334 (mh-face-data 'mh-speedbar-selected-folder 3513 (mh-face-data 'mh-speedbar-selected-folder
3335 '((t (:inherit mh-speedbar-selected-folder :bold t)))) 3514 '((t (:inherit mh-speedbar-selected-folder :bold t))))
3336 "Selected folder face when folder contains unread messages." 3515 "Selected folder face when folder contains unread messages."
3337 :group 'mh-faces 3516 :group 'mh-faces
3338 :group 'mh-speedbar) 3517 :group 'mh-speedbar
3518 :package-version '(MH-E "8.0"))
3339 3519
3340;; Get rid of temporary functions and data structures. 3520;; Get rid of temporary functions and data structures.
3521(fmakunbound 'mh-defcustom)
3522(fmakunbound 'mh-defface)
3341(fmakunbound 'mh-defface-compat) 3523(fmakunbound 'mh-defface-compat)
3524(fmakunbound 'mh-defgroup)
3342(fmakunbound 'mh-face-data) 3525(fmakunbound 'mh-face-data)
3343(makunbound 'mh-face-data) 3526(makunbound 'mh-face-data)
3344(makunbound 'mh-inherit-face-flag) 3527(makunbound 'mh-inherit-face-flag)
diff --git a/lisp/mh-e/mh-tool-bar.el b/lisp/mh-e/mh-tool-bar.el
index 24db058721f..fccf83cf8d6 100644
--- a/lisp/mh-e/mh-tool-bar.el
+++ b/lisp/mh-e/mh-tool-bar.el
@@ -321,7 +321,9 @@ where,
321 :group 'mh-tool-bar :set 'mh-tool-bar-folder-buttons-set 321 :group 'mh-tool-bar :set 'mh-tool-bar-folder-buttons-set
322 :type '(set ,@(loop for x in folder-buttons 322 :type '(set ,@(loop for x in folder-buttons
323 for y in folder-docs 323 for y in folder-docs
324 collect `(const :tag ,y ,x)))) 324 collect `(const :tag ,y ,x)))
325 ;;:package-version '(MH-E "7.1")
326 )
325 (custom-declare-variable 327 (custom-declare-variable
326 'mh-tool-bar-letter-buttons 328 'mh-tool-bar-letter-buttons
327 '(list ,@(mapcar (lambda (x) `(quote ,x)) letter-defaults)) 329 '(list ,@(mapcar (lambda (x) `(quote ,x)) letter-defaults))
@@ -329,7 +331,9 @@ where,
329 :group 'mh-tool-bar :set 'mh-tool-bar-letter-buttons-set 331 :group 'mh-tool-bar :set 'mh-tool-bar-letter-buttons-set
330 :type '(set ,@(loop for x in letter-buttons 332 :type '(set ,@(loop for x in letter-buttons
331 for y in letter-docs 333 for y in letter-docs
332 collect `(const :tag ,y ,x))))))) 334 collect `(const :tag ,y ,x)))
335 ;;:package-version '(MH-E "7.1")
336 ))))
333 337
334(mh-tool-bar-define 338(mh-tool-bar-define
335 ((:folder mh-inc-folder mh-mime-save-parts 339 ((:folder mh-inc-folder mh-mime-save-parts
generated by cgit v1.2.1 (git 2.18.0) at 2026-01-23 06:03:35 +0000