Mercurial > emacs
comparison lisp/mh-e/mh-e.el @ 70022:34e6282ccc27
(customize-package-emacs-version-alist)
(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, 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)
(mh-defcustom, 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, 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): Use dotted
notation in :package-version keyword.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Fri, 14 Apr 2006 00:47:00 +0000 |
parents | 9942deb37276 |
children | a0de53f6c617 |
comparison
equal
deleted
inserted
replaced
70021:8991a6461375 | 70022:34e6282ccc27 |
---|---|
987 (when delete-other-windows-flag | 987 (when delete-other-windows-flag |
988 (delete-other-windows))) | 988 (delete-other-windows))) |
989 | 989 |
990 (if (boundp 'customize-package-emacs-version-alist) | 990 (if (boundp 'customize-package-emacs-version-alist) |
991 (add-to-list 'customize-package-emacs-version-alist | 991 (add-to-list 'customize-package-emacs-version-alist |
992 '(MH-E ("6.0" "22.1") ("6.1" "22.1") ("7.0" "22.1") | 992 '(MH-E ("6.0" . "22.1") ("6.1" . "22.1") ("7.0" . "22.1") |
993 ("7.1" "22.1") ("7.2" "22.1") ("7.3" "22.1") | 993 ("7.1" . "22.1") ("7.2" . "22.1") ("7.3" . "22.1") |
994 ("7.4" "22.1") ("8.0" "22.1")))) | 994 ("7.4" . "22.1") ("8.0" . "22.1")))) |
995 | 995 |
996 | 996 |
997 | 997 |
998 ;;; MH-E Customization Groups | 998 ;;; MH-E Customization Groups |
999 | 999 |
1001 "Emacs interface to the MH mail system. | 1001 "Emacs interface to the MH mail system. |
1002 MH is the Rand Mail Handler. Other implementations include nmh | 1002 MH is the Rand Mail Handler. Other implementations include nmh |
1003 and GNU mailutils." | 1003 and GNU mailutils." |
1004 :link '(custom-manual "(mh-e)Top") | 1004 :link '(custom-manual "(mh-e)Top") |
1005 :group 'mail | 1005 :group 'mail |
1006 :package-version '(MH-E "8.0")) | 1006 :package-version '(MH-E . "8.0")) |
1007 | 1007 |
1008 (mh-defgroup mh-alias nil | 1008 (mh-defgroup mh-alias nil |
1009 "Aliases." | 1009 "Aliases." |
1010 :link '(custom-manual "(mh-e)Aliases") | 1010 :link '(custom-manual "(mh-e)Aliases") |
1011 :prefix "mh-alias-" | 1011 :prefix "mh-alias-" |
1012 :group 'mh-e | 1012 :group 'mh-e |
1013 :package-version '(MH-E "7.1")) | 1013 :package-version '(MH-E . "7.1")) |
1014 | 1014 |
1015 (mh-defgroup mh-folder nil | 1015 (mh-defgroup mh-folder nil |
1016 "Organizing your mail with folders." | 1016 "Organizing your mail with folders." |
1017 :prefix "mh-" | 1017 :prefix "mh-" |
1018 :link '(custom-manual "(mh-e)Folders") | 1018 :link '(custom-manual "(mh-e)Folders") |
1019 :group 'mh-e | 1019 :group 'mh-e |
1020 :package-version '(MH-E "7.1")) | 1020 :package-version '(MH-E . "7.1")) |
1021 | 1021 |
1022 (mh-defgroup mh-folder-selection nil | 1022 (mh-defgroup mh-folder-selection nil |
1023 "Folder selection." | 1023 "Folder selection." |
1024 :prefix "mh-" | 1024 :prefix "mh-" |
1025 :link '(custom-manual "(mh-e)Folder Selection") | 1025 :link '(custom-manual "(mh-e)Folder Selection") |
1026 :group 'mh-e | 1026 :group 'mh-e |
1027 :package-version '(MH-E "8.0")) | 1027 :package-version '(MH-E . "8.0")) |
1028 | 1028 |
1029 (mh-defgroup mh-identity nil | 1029 (mh-defgroup mh-identity nil |
1030 "Identities." | 1030 "Identities." |
1031 :link '(custom-manual "(mh-e)Identities") | 1031 :link '(custom-manual "(mh-e)Identities") |
1032 :prefix "mh-identity-" | 1032 :prefix "mh-identity-" |
1033 :group 'mh-e | 1033 :group 'mh-e |
1034 :package-version '(MH-E "7.1")) | 1034 :package-version '(MH-E . "7.1")) |
1035 | 1035 |
1036 (mh-defgroup mh-inc nil | 1036 (mh-defgroup mh-inc nil |
1037 "Incorporating your mail." | 1037 "Incorporating your mail." |
1038 :prefix "mh-inc-" | 1038 :prefix "mh-inc-" |
1039 :link '(custom-manual "(mh-e)Incorporating Mail") | 1039 :link '(custom-manual "(mh-e)Incorporating Mail") |
1040 :group 'mh-e | 1040 :group 'mh-e |
1041 :package-version '(MH-E "8.0")) | 1041 :package-version '(MH-E . "8.0")) |
1042 | 1042 |
1043 (mh-defgroup mh-junk nil | 1043 (mh-defgroup mh-junk nil |
1044 "Dealing with junk mail." | 1044 "Dealing with junk mail." |
1045 :link '(custom-manual "(mh-e)Junk") | 1045 :link '(custom-manual "(mh-e)Junk") |
1046 :prefix "mh-junk-" | 1046 :prefix "mh-junk-" |
1047 :group 'mh-e | 1047 :group 'mh-e |
1048 :package-version '(MH-E "7.3")) | 1048 :package-version '(MH-E . "7.3")) |
1049 | 1049 |
1050 (mh-defgroup mh-letter nil | 1050 (mh-defgroup mh-letter nil |
1051 "Editing a draft." | 1051 "Editing a draft." |
1052 :prefix "mh-" | 1052 :prefix "mh-" |
1053 :link '(custom-manual "(mh-e)Editing Drafts") | 1053 :link '(custom-manual "(mh-e)Editing Drafts") |
1054 :group 'mh-e | 1054 :group 'mh-e |
1055 :package-version '(MH-E "7.1")) | 1055 :package-version '(MH-E . "7.1")) |
1056 | 1056 |
1057 (mh-defgroup mh-ranges nil | 1057 (mh-defgroup mh-ranges nil |
1058 "Ranges." | 1058 "Ranges." |
1059 :prefix "mh-" | 1059 :prefix "mh-" |
1060 :link '(custom-manual "(mh-e)Ranges") | 1060 :link '(custom-manual "(mh-e)Ranges") |
1061 :group 'mh-e | 1061 :group 'mh-e |
1062 :package-version '(MH-E "8.0")) | 1062 :package-version '(MH-E . "8.0")) |
1063 | 1063 |
1064 (mh-defgroup mh-scan-line-formats nil | 1064 (mh-defgroup mh-scan-line-formats nil |
1065 "Scan line formats." | 1065 "Scan line formats." |
1066 :link '(custom-manual "(mh-e)Scan Line Formats") | 1066 :link '(custom-manual "(mh-e)Scan Line Formats") |
1067 :prefix "mh-" | 1067 :prefix "mh-" |
1068 :group 'mh-e | 1068 :group 'mh-e |
1069 :package-version '(MH-E "8.0")) | 1069 :package-version '(MH-E . "8.0")) |
1070 | 1070 |
1071 (mh-defgroup mh-search nil | 1071 (mh-defgroup mh-search nil |
1072 "Searching." | 1072 "Searching." |
1073 :link '(custom-manual "(mh-e)Searching") | 1073 :link '(custom-manual "(mh-e)Searching") |
1074 :prefix "mh-search-" | 1074 :prefix "mh-search-" |
1075 :group 'mh-e | 1075 :group 'mh-e |
1076 :package-version '(MH-E "8.0")) | 1076 :package-version '(MH-E . "8.0")) |
1077 | 1077 |
1078 (mh-defgroup mh-sending-mail nil | 1078 (mh-defgroup mh-sending-mail nil |
1079 "Sending mail." | 1079 "Sending mail." |
1080 :prefix "mh-" | 1080 :prefix "mh-" |
1081 :link '(custom-manual "(mh-e)Sending Mail") | 1081 :link '(custom-manual "(mh-e)Sending Mail") |
1082 :group 'mh-e | 1082 :group 'mh-e |
1083 :package-version '(MH-E "8.0")) | 1083 :package-version '(MH-E . "8.0")) |
1084 | 1084 |
1085 (mh-defgroup mh-sequences nil | 1085 (mh-defgroup mh-sequences nil |
1086 "Sequences." | 1086 "Sequences." |
1087 :prefix "mh-" | 1087 :prefix "mh-" |
1088 :link '(custom-manual "(mh-e)Sequences") | 1088 :link '(custom-manual "(mh-e)Sequences") |
1089 :group 'mh-e | 1089 :group 'mh-e |
1090 :package-version '(MH-E "8.0")) | 1090 :package-version '(MH-E . "8.0")) |
1091 | 1091 |
1092 (mh-defgroup mh-show nil | 1092 (mh-defgroup mh-show nil |
1093 "Reading your mail." | 1093 "Reading your mail." |
1094 :prefix "mh-" | 1094 :prefix "mh-" |
1095 :link '(custom-manual "(mh-e)Reading Mail") | 1095 :link '(custom-manual "(mh-e)Reading Mail") |
1096 :group 'mh-e | 1096 :group 'mh-e |
1097 :package-version '(MH-E "7.1")) | 1097 :package-version '(MH-E . "7.1")) |
1098 | 1098 |
1099 (mh-defgroup mh-speedbar nil | 1099 (mh-defgroup mh-speedbar nil |
1100 "The speedbar." | 1100 "The speedbar." |
1101 :prefix "mh-speed-" | 1101 :prefix "mh-speed-" |
1102 :link '(custom-manual "(mh-e)Speedbar") | 1102 :link '(custom-manual "(mh-e)Speedbar") |
1103 :group 'mh-e | 1103 :group 'mh-e |
1104 :package-version '(MH-E "8.0")) | 1104 :package-version '(MH-E . "8.0")) |
1105 | 1105 |
1106 (mh-defgroup mh-thread nil | 1106 (mh-defgroup mh-thread nil |
1107 "Threading." | 1107 "Threading." |
1108 :prefix "mh-thread-" | 1108 :prefix "mh-thread-" |
1109 :link '(custom-manual "(mh-e)Threading") | 1109 :link '(custom-manual "(mh-e)Threading") |
1110 :group 'mh-e | 1110 :group 'mh-e |
1111 :package-version '(MH-E "8.0")) | 1111 :package-version '(MH-E . "8.0")) |
1112 | 1112 |
1113 (mh-defgroup mh-tool-bar nil | 1113 (mh-defgroup mh-tool-bar nil |
1114 "The tool bar" | 1114 "The tool bar" |
1115 :link '(custom-manual "(mh-e)Tool Bar") | 1115 :link '(custom-manual "(mh-e)Tool Bar") |
1116 :prefix "mh-" | 1116 :prefix "mh-" |
1117 :group 'mh-e | 1117 :group 'mh-e |
1118 :package-version '(MH-E "8.0")) | 1118 :package-version '(MH-E . "8.0")) |
1119 | 1119 |
1120 (mh-defgroup mh-hooks nil | 1120 (mh-defgroup mh-hooks nil |
1121 "MH-E hooks." | 1121 "MH-E hooks." |
1122 :link '(custom-manual "(mh-e)Top") | 1122 :link '(custom-manual "(mh-e)Top") |
1123 :prefix "mh-" | 1123 :prefix "mh-" |
1124 :group 'mh-e | 1124 :group 'mh-e |
1125 :package-version '(MH-E "7.1")) | 1125 :package-version '(MH-E . "7.1")) |
1126 | 1126 |
1127 (mh-defgroup mh-faces nil | 1127 (mh-defgroup mh-faces nil |
1128 "Faces used in MH-E." | 1128 "Faces used in MH-E." |
1129 :link '(custom-manual "(mh-e)Top") | 1129 :link '(custom-manual "(mh-e)Top") |
1130 :prefix "mh-" | 1130 :prefix "mh-" |
1131 :group 'faces | 1131 :group 'faces |
1132 :group 'mh-e | 1132 :group 'mh-e |
1133 :package-version '(MH-E "7.1")) | 1133 :package-version '(MH-E . "7.1")) |
1134 | 1134 |
1135 | 1135 |
1136 | 1136 |
1137 ;;; MH-E Customization | 1137 ;;; MH-E Customization |
1138 | 1138 |
1147 may turn off this option to make case significant which can be | 1147 may turn off this option to make case significant which can be |
1148 used to segregate completion of your aliases. You might use | 1148 used to segregate completion of your aliases. You might use |
1149 lowercase for mailing lists and uppercase for people." | 1149 lowercase for mailing lists and uppercase for people." |
1150 :type 'boolean | 1150 :type 'boolean |
1151 :group 'mh-alias | 1151 :group 'mh-alias |
1152 :package-version '(MH-E "7.1")) | 1152 :package-version '(MH-E . "7.1")) |
1153 | 1153 |
1154 (mh-defcustom mh-alias-expand-aliases-flag nil | 1154 (mh-defcustom mh-alias-expand-aliases-flag nil |
1155 "*Non-nil means to expand aliases entered in the minibuffer. | 1155 "*Non-nil means to expand aliases entered in the minibuffer. |
1156 | 1156 |
1157 In other words, aliases entered in the minibuffer will be | 1157 In other words, aliases entered in the minibuffer will be |
1158 expanded to the full address in the message draft. By default, | 1158 expanded to the full address in the message draft. By default, |
1159 this expansion is not performed." | 1159 this expansion is not performed." |
1160 :type 'boolean | 1160 :type 'boolean |
1161 :group 'mh-alias | 1161 :group 'mh-alias |
1162 :package-version '(MH-E "7.1")) | 1162 :package-version '(MH-E . "7.1")) |
1163 | 1163 |
1164 (mh-defcustom mh-alias-flash-on-comma t | 1164 (mh-defcustom mh-alias-flash-on-comma t |
1165 "*Specify whether to flash address or warn on translation. | 1165 "*Specify whether to flash address or warn on translation. |
1166 | 1166 |
1167 This option controls the behavior when a [comma] is pressed while | 1167 This option controls the behavior when a [comma] is pressed while |
1170 does not display a warning if the alias is not found." | 1170 does not display a warning if the alias is not found." |
1171 :type '(choice (const :tag "Flash but Don't Warn If No Alias" t) | 1171 :type '(choice (const :tag "Flash but Don't Warn If No Alias" t) |
1172 (const :tag "Flash and Warn If No Alias" 1) | 1172 (const :tag "Flash and Warn If No Alias" 1) |
1173 (const :tag "Don't Flash Nor Warn If No Alias" nil)) | 1173 (const :tag "Don't Flash Nor Warn If No Alias" nil)) |
1174 :group 'mh-alias | 1174 :group 'mh-alias |
1175 :package-version '(MH-E "7.1")) | 1175 :package-version '(MH-E . "7.1")) |
1176 | 1176 |
1177 (mh-defcustom mh-alias-insert-file nil | 1177 (mh-defcustom mh-alias-insert-file nil |
1178 "*Filename used to store a new MH-E alias. | 1178 "*Filename used to store a new MH-E alias. |
1179 | 1179 |
1180 The default setting of this option is \"Use Aliasfile Profile | 1180 The default setting of this option is \"Use Aliasfile Profile |
1184 name, MH-E will prompt for one of them when MH-E adds an alias." | 1184 name, MH-E will prompt for one of them when MH-E adds an alias." |
1185 :type '(choice (const :tag "Use Aliasfile Profile Component" nil) | 1185 :type '(choice (const :tag "Use Aliasfile Profile Component" nil) |
1186 (file :tag "Alias File") | 1186 (file :tag "Alias File") |
1187 (repeat :tag "List of Alias Files" file)) | 1187 (repeat :tag "List of Alias Files" file)) |
1188 :group 'mh-alias | 1188 :group 'mh-alias |
1189 :package-version '(MH-E "7.1")) | 1189 :package-version '(MH-E . "7.1")) |
1190 | 1190 |
1191 (mh-defcustom mh-alias-insertion-location 'sorted | 1191 (mh-defcustom mh-alias-insertion-location 'sorted |
1192 "Specifies where new aliases are entered in alias files. | 1192 "Specifies where new aliases are entered in alias files. |
1193 | 1193 |
1194 This option is set to \"Alphabetical\" by default. If you organize | 1194 This option is set to \"Alphabetical\" by default. If you organize |
1196 or \"Bottom\" of your alias file might be more appropriate." | 1196 or \"Bottom\" of your alias file might be more appropriate." |
1197 :type '(choice (const :tag "Alphabetical" sorted) | 1197 :type '(choice (const :tag "Alphabetical" sorted) |
1198 (const :tag "Top" top) | 1198 (const :tag "Top" top) |
1199 (const :tag "Bottom" bottom)) | 1199 (const :tag "Bottom" bottom)) |
1200 :group 'mh-alias | 1200 :group 'mh-alias |
1201 :package-version '(MH-E "7.1")) | 1201 :package-version '(MH-E . "7.1")) |
1202 | 1202 |
1203 (mh-defcustom mh-alias-local-users t | 1203 (mh-defcustom mh-alias-local-users t |
1204 "*If on, local users are added to alias completion. | 1204 "*If on, local users are added to alias completion. |
1205 | 1205 |
1206 Aliases are created from \"/etc/passwd\" entries with a user ID | 1206 Aliases are created from \"/etc/passwd\" entries with a user ID |
1217 This option also takes a string which is executed to generate the | 1217 This option also takes a string which is executed to generate the |
1218 password file. For example, use \"ypcat passwd\" to obtain the | 1218 password file. For example, use \"ypcat passwd\" to obtain the |
1219 NIS password file." | 1219 NIS password file." |
1220 :type '(choice (boolean) (string)) | 1220 :type '(choice (boolean) (string)) |
1221 :group 'mh-alias | 1221 :group 'mh-alias |
1222 :package-version '(MH-E "7.1")) | 1222 :package-version '(MH-E . "7.1")) |
1223 | 1223 |
1224 (mh-defcustom mh-alias-local-users-prefix "local." | 1224 (mh-defcustom mh-alias-local-users-prefix "local." |
1225 "*String prefixed to the real names of users from the password file. | 1225 "*String prefixed to the real names of users from the password file. |
1226 This option can also be set to \"Use Login\". | 1226 This option can also be set to \"Use Login\". |
1227 | 1227 |
1239 This option has no effect if variable `mh-alias-local-users' is | 1239 This option has no effect if variable `mh-alias-local-users' is |
1240 turned off." | 1240 turned off." |
1241 :type '(choice (const :tag "Use Login" nil) | 1241 :type '(choice (const :tag "Use Login" nil) |
1242 (string)) | 1242 (string)) |
1243 :group 'mh-alias | 1243 :group 'mh-alias |
1244 :package-version '(MH-E "7.4")) | 1244 :package-version '(MH-E . "7.4")) |
1245 | 1245 |
1246 (mh-defcustom mh-alias-passwd-gecos-comma-separator-flag t | 1246 (mh-defcustom mh-alias-passwd-gecos-comma-separator-flag t |
1247 "*Non-nil means the gecos field in the password file uses a comma separator. | 1247 "*Non-nil means the gecos field in the password file uses a comma separator. |
1248 | 1248 |
1249 In the example in `mh-alias-local-users-prefix', commas are used | 1249 In the example in `mh-alias-local-users-prefix', commas are used |
1251 This is a fairly common usage. However, in the rare case that the | 1251 This is a fairly common usage. However, in the rare case that the |
1252 gecos field in your password file is not separated by commas and | 1252 gecos field in your password file is not separated by commas and |
1253 whose contents may contain commas, you can turn this option off." | 1253 whose contents may contain commas, you can turn this option off." |
1254 :type 'boolean | 1254 :type 'boolean |
1255 :group 'mh-alias | 1255 :group 'mh-alias |
1256 :package-version '(MH-E "7.4")) | 1256 :package-version '(MH-E . "7.4")) |
1257 | 1257 |
1258 ;;; Organizing Your Mail with Folders (:group 'mh-folder) | 1258 ;;; Organizing Your Mail with Folders (:group 'mh-folder) |
1259 | 1259 |
1260 (mh-defcustom mh-new-messages-folders t | 1260 (mh-defcustom mh-new-messages-folders t |
1261 "Folders searched for the \"unseen\" sequence. | 1261 "Folders searched for the \"unseen\" sequence. |
1268 See also `mh-recursive-folders-flag'." | 1268 See also `mh-recursive-folders-flag'." |
1269 :type '(choice (const :tag "Inbox" t) | 1269 :type '(choice (const :tag "Inbox" t) |
1270 (const :tag "All" nil) | 1270 (const :tag "All" nil) |
1271 (repeat :tag "Choose Folders" (string :tag "Folder"))) | 1271 (repeat :tag "Choose Folders" (string :tag "Folder"))) |
1272 :group 'mh-folder | 1272 :group 'mh-folder |
1273 :package-version '(MH-E "8.0")) | 1273 :package-version '(MH-E . "8.0")) |
1274 | 1274 |
1275 (mh-defcustom mh-ticked-messages-folders t | 1275 (mh-defcustom mh-ticked-messages-folders t |
1276 "Folders searched for `mh-tick-seq'. | 1276 "Folders searched for `mh-tick-seq'. |
1277 | 1277 |
1278 Set this option to \"Inbox\" to search the \"+inbox\" folder or | 1278 Set this option to \"Inbox\" to search the \"+inbox\" folder or |
1283 See also `mh-recursive-folders-flag'." | 1283 See also `mh-recursive-folders-flag'." |
1284 :type '(choice (const :tag "Inbox" t) | 1284 :type '(choice (const :tag "Inbox" t) |
1285 (const :tag "All" nil) | 1285 (const :tag "All" nil) |
1286 (repeat :tag "Choose Folders" (string :tag "Folder"))) | 1286 (repeat :tag "Choose Folders" (string :tag "Folder"))) |
1287 :group 'mh-folder | 1287 :group 'mh-folder |
1288 :package-version '(MH-E "8.0")) | 1288 :package-version '(MH-E . "8.0")) |
1289 | 1289 |
1290 (mh-defcustom mh-large-folder 200 | 1290 (mh-defcustom mh-large-folder 200 |
1291 "The number of messages that indicates a large folder. | 1291 "The number of messages that indicates a large folder. |
1292 | 1292 |
1293 If a folder is deemed to be large, that is the number of messages | 1293 If a folder is deemed to be large, that is the number of messages |
1295 visited. Even when `mh-show-threads-flag' is non-nil, the folder | 1295 visited. Even when `mh-show-threads-flag' is non-nil, the folder |
1296 is not automatically threaded, if it is large. If set to nil all | 1296 is not automatically threaded, if it is large. If set to nil all |
1297 folders are treated as if they are small." | 1297 folders are treated as if they are small." |
1298 :type '(choice (const :tag "No Limit") integer) | 1298 :type '(choice (const :tag "No Limit") integer) |
1299 :group 'mh-folder | 1299 :group 'mh-folder |
1300 :package-version '(MH-E "7.0")) | 1300 :package-version '(MH-E . "7.0")) |
1301 | 1301 |
1302 (mh-defcustom mh-recenter-summary-flag nil | 1302 (mh-defcustom mh-recenter-summary-flag nil |
1303 "*Non-nil means to recenter the summary window. | 1303 "*Non-nil means to recenter the summary window. |
1304 | 1304 |
1305 If this option is turned on, recenter the summary window when the | 1305 If this option is turned on, recenter the summary window when the |
1306 show window is toggled off." | 1306 show window is toggled off." |
1307 :type 'boolean | 1307 :type 'boolean |
1308 :group 'mh-folder | 1308 :group 'mh-folder |
1309 :package-version '(MH-E "7.0")) | 1309 :package-version '(MH-E . "7.0")) |
1310 | 1310 |
1311 (mh-defcustom mh-recursive-folders-flag nil | 1311 (mh-defcustom mh-recursive-folders-flag nil |
1312 "*Non-nil means that commands which operate on folders do so recursively." | 1312 "*Non-nil means that commands which operate on folders do so recursively." |
1313 :type 'boolean | 1313 :type 'boolean |
1314 :group 'mh-folder | 1314 :group 'mh-folder |
1315 :package-version '(MH-E "7.0")) | 1315 :package-version '(MH-E . "7.0")) |
1316 | 1316 |
1317 (mh-defcustom mh-sortm-args nil | 1317 (mh-defcustom mh-sortm-args nil |
1318 "*Additional arguments for \"sortm\"\\<mh-folder-mode-map>. | 1318 "*Additional arguments for \"sortm\"\\<mh-folder-mode-map>. |
1319 | 1319 |
1320 This option is consulted when a prefix argument is used with | 1320 This option is consulted when a prefix argument is used with |
1322 specified in the MH profile. This option may be used to provide | 1322 specified in the MH profile. This option may be used to provide |
1323 an alternate view. For example, \"'(\"-nolimit\" \"-textfield\" | 1323 an alternate view. For example, \"'(\"-nolimit\" \"-textfield\" |
1324 \"subject\")\" is a useful setting." | 1324 \"subject\")\" is a useful setting." |
1325 :type 'string | 1325 :type 'string |
1326 :group 'mh-folder | 1326 :group 'mh-folder |
1327 :package-version '(MH-E "8.0")) | 1327 :package-version '(MH-E . "8.0")) |
1328 | 1328 |
1329 ;;; Folder Selection (:group 'mh-folder-selection) | 1329 ;;; Folder Selection (:group 'mh-folder-selection) |
1330 | 1330 |
1331 (mh-defcustom mh-default-folder-for-message-function nil | 1331 (mh-defcustom mh-default-folder-for-message-function nil |
1332 "Function to select a default folder for refiling or \"Fcc:\". | 1332 "Function to select a default folder for refiling or \"Fcc:\". |
1336 should return the default folder as a string with a leading \"+\" | 1336 should return the default folder as a string with a leading \"+\" |
1337 sign. It can also return nil so that the last folder name is used as | 1337 sign. It can also return nil so that the last folder name is used as |
1338 the default, or an empty string to suppress the default entirely." | 1338 the default, or an empty string to suppress the default entirely." |
1339 :type 'function | 1339 :type 'function |
1340 :group 'mh-folder-selection | 1340 :group 'mh-folder-selection |
1341 :package-version '(MH-E "8.0")) | 1341 :package-version '(MH-E . "8.0")) |
1342 | 1342 |
1343 (mh-defcustom mh-default-folder-list nil | 1343 (mh-defcustom mh-default-folder-list nil |
1344 "*List of addresses and folders. | 1344 "*List of addresses and folders. |
1345 | 1345 |
1346 The folder name associated with the first address found in this | 1346 The folder name associated with the first address found in this |
1354 for more information." | 1354 for more information." |
1355 :type '(repeat (list (regexp :tag "Address") | 1355 :type '(repeat (list (regexp :tag "Address") |
1356 (string :tag "Folder") | 1356 (string :tag "Folder") |
1357 (boolean :tag "Check Recipient"))) | 1357 (boolean :tag "Check Recipient"))) |
1358 :group 'mh-folder-selection | 1358 :group 'mh-folder-selection |
1359 :package-version '(MH-E "7.2")) | 1359 :package-version '(MH-E . "7.2")) |
1360 | 1360 |
1361 (mh-defcustom mh-default-folder-must-exist-flag t | 1361 (mh-defcustom mh-default-folder-must-exist-flag t |
1362 "*Non-nil means guessed folder name must exist to be used. | 1362 "*Non-nil means guessed folder name must exist to be used. |
1363 | 1363 |
1364 If the derived folder does not exist, and this option is on, then | 1364 If the derived folder does not exist, and this option is on, then |
1368 | 1368 |
1369 See `mh-prompt-for-refile-folder' and `mh-folder-from-address' | 1369 See `mh-prompt-for-refile-folder' and `mh-folder-from-address' |
1370 for more information." | 1370 for more information." |
1371 :type 'boolean | 1371 :type 'boolean |
1372 :group 'mh-folder-selection | 1372 :group 'mh-folder-selection |
1373 :package-version '(MH-E "7.2")) | 1373 :package-version '(MH-E . "7.2")) |
1374 | 1374 |
1375 (mh-defcustom mh-default-folder-prefix "" | 1375 (mh-defcustom mh-default-folder-prefix "" |
1376 "*Prefix used for folder names generated from aliases. | 1376 "*Prefix used for folder names generated from aliases. |
1377 The prefix is used to prevent clutter in your mail directory. | 1377 The prefix is used to prevent clutter in your mail directory. |
1378 | 1378 |
1379 See `mh-prompt-for-refile-folder' and `mh-folder-from-address' | 1379 See `mh-prompt-for-refile-folder' and `mh-folder-from-address' |
1380 for more information." | 1380 for more information." |
1381 :type 'string | 1381 :type 'string |
1382 :group 'mh-folder-selection | 1382 :group 'mh-folder-selection |
1383 :package-version '(MH-E "7.2")) | 1383 :package-version '(MH-E . "7.2")) |
1384 | 1384 |
1385 ;;; Identities (:group 'mh-identity) | 1385 ;;; Identities (:group 'mh-identity) |
1386 | 1386 |
1387 (eval-and-compile | 1387 (eval-and-compile |
1388 (unless (fboundp 'mh-identity-make-menu-no-autoload) | 1388 (unless (fboundp 'mh-identity-make-menu-no-autoload) |
1456 (string :tag "Value")))))) | 1456 (string :tag "Value")))))) |
1457 :set (lambda (symbol value) | 1457 :set (lambda (symbol value) |
1458 (set-default symbol value) | 1458 (set-default symbol value) |
1459 (mh-identity-make-menu-no-autoload)) | 1459 (mh-identity-make-menu-no-autoload)) |
1460 :group 'mh-identity | 1460 :group 'mh-identity |
1461 :package-version '(MH-E "7.1")) | 1461 :package-version '(MH-E . "7.1")) |
1462 | 1462 |
1463 (mh-defcustom mh-auto-fields-list nil | 1463 (mh-defcustom mh-auto-fields-list nil |
1464 "List of recipients for which header lines are automatically inserted. | 1464 "List of recipients for which header lines are automatically inserted. |
1465 | 1465 |
1466 This option can be used to set the identity depending on the | 1466 This option can be used to set the identity depending on the |
1517 (string :tag "Value")) | 1517 (string :tag "Value")) |
1518 (cons :tag "Other Field" | 1518 (cons :tag "Other Field" |
1519 (string :tag "Field") | 1519 (string :tag "Field") |
1520 (string :tag "Value")))))) | 1520 (string :tag "Value")))))) |
1521 :group 'mh-identity | 1521 :group 'mh-identity |
1522 :package-version '(MH-E "7.3")) | 1522 :package-version '(MH-E . "7.3")) |
1523 | 1523 |
1524 (mh-defcustom mh-auto-fields-prompt-flag t | 1524 (mh-defcustom mh-auto-fields-prompt-flag t |
1525 "*Non-nil means to prompt before sending if fields inserted. | 1525 "*Non-nil means to prompt before sending if fields inserted. |
1526 See `mh-auto-fields-list'." | 1526 See `mh-auto-fields-list'." |
1527 :type 'boolean | 1527 :type 'boolean |
1528 :group 'mh-identity | 1528 :group 'mh-identity |
1529 :package-version '(MH-E "8.0")) | 1529 :package-version '(MH-E . "8.0")) |
1530 | 1530 |
1531 (mh-defcustom mh-identity-default nil | 1531 (mh-defcustom mh-identity-default nil |
1532 "Default identity to use when `mh-letter-mode' is called. | 1532 "Default identity to use when `mh-letter-mode' is called. |
1533 See `mh-identity-list'." | 1533 See `mh-identity-list'." |
1534 :type (append | 1534 :type (append |
1535 '(radio) | 1535 '(radio) |
1536 (cons '(const :tag "None" nil) | 1536 (cons '(const :tag "None" nil) |
1537 (mapcar (function (lambda (arg) `(const ,arg))) | 1537 (mapcar (function (lambda (arg) `(const ,arg))) |
1538 (mapcar 'car mh-identity-list)))) | 1538 (mapcar 'car mh-identity-list)))) |
1539 :group 'mh-identity | 1539 :group 'mh-identity |
1540 :package-version '(MH-E "7.1")) | 1540 :package-version '(MH-E . "7.1")) |
1541 | 1541 |
1542 (mh-defcustom mh-identity-handlers | 1542 (mh-defcustom mh-identity-handlers |
1543 '(("From" . mh-identity-handler-top) | 1543 '(("From" . mh-identity-handler-top) |
1544 (":default" . mh-identity-handler-bottom) | 1544 (":default" . mh-identity-handler-bottom) |
1545 (":attribution-verb" . mh-identity-handler-attribution-verb) | 1545 (":attribution-verb" . mh-identity-handler-attribution-verb) |
1569 fields (for example, \":signature\"), and the ACTION 'remove or | 1569 fields (for example, \":signature\"), and the ACTION 'remove or |
1570 'add. If the action is 'add, an additional argument | 1570 'add. If the action is 'add, an additional argument |
1571 containing the VALUE for the field is given." | 1571 containing the VALUE for the field is given." |
1572 :type '(repeat (cons (string :tag "Field") function)) | 1572 :type '(repeat (cons (string :tag "Field") function)) |
1573 :group 'mh-identity | 1573 :group 'mh-identity |
1574 :package-version '(MH-E "8.0")) | 1574 :package-version '(MH-E . "8.0")) |
1575 | 1575 |
1576 ;;; Incorporating Your Mail (:group 'mh-inc) | 1576 ;;; Incorporating Your Mail (:group 'mh-inc) |
1577 | 1577 |
1578 (mh-defcustom mh-inc-prog "inc" | 1578 (mh-defcustom mh-inc-prog "inc" |
1579 "*Program to incorporate new mail into a folder. | 1579 "*Program to incorporate new mail into a folder. |
1583 to be in the `mh-progs' directory. You may also link a file to | 1583 to be in the `mh-progs' directory. You may also link a file to |
1584 \"inc\" that uses a different format. You'll then need to modify | 1584 \"inc\" that uses a different format. You'll then need to modify |
1585 several scan line format variables appropriately." | 1585 several scan line format variables appropriately." |
1586 :type 'string | 1586 :type 'string |
1587 :group 'mh-inc | 1587 :group 'mh-inc |
1588 :package-version '(MH-E "6.0")) | 1588 :package-version '(MH-E . "6.0")) |
1589 | 1589 |
1590 (eval-and-compile | 1590 (eval-and-compile |
1591 (unless (fboundp 'mh-inc-spool-make-no-autoload) | 1591 (unless (fboundp 'mh-inc-spool-make-no-autoload) |
1592 (defun mh-inc-spool-make-no-autoload () | 1592 (defun mh-inc-spool-make-no-autoload () |
1593 "Temporary definition. | 1593 "Temporary definition. |
1633 (character :tag "Key Binding"))) | 1633 (character :tag "Key Binding"))) |
1634 :set (lambda (symbol value) | 1634 :set (lambda (symbol value) |
1635 (set-default symbol value) | 1635 (set-default symbol value) |
1636 (mh-inc-spool-make-no-autoload)) | 1636 (mh-inc-spool-make-no-autoload)) |
1637 :group 'mh-inc | 1637 :group 'mh-inc |
1638 :package-version '(MH-E "7.3")) | 1638 :package-version '(MH-E . "7.3")) |
1639 | 1639 |
1640 ;;; Dealing with Junk Mail (:group 'mh-junk) | 1640 ;;; Dealing with Junk Mail (:group 'mh-junk) |
1641 | 1641 |
1642 (defvar mh-junk-choice nil | 1642 (defvar mh-junk-choice nil |
1643 "Chosen spam fighting program.") | 1643 "Chosen spam fighting program.") |
1675 enough memory or don't junk that many messages at the same time, | 1675 enough memory or don't junk that many messages at the same time, |
1676 you might try turning on this option." | 1676 you might try turning on this option." |
1677 :type '(choice (const :tag "Off" nil) | 1677 :type '(choice (const :tag "Off" nil) |
1678 (const :tag "On" 0)) | 1678 (const :tag "On" 0)) |
1679 :group 'mh-junk | 1679 :group 'mh-junk |
1680 :package-version '(MH-E "8.0")) | 1680 :package-version '(MH-E . "8.0")) |
1681 | 1681 |
1682 (mh-defcustom mh-junk-disposition nil | 1682 (mh-defcustom mh-junk-disposition nil |
1683 "Disposition of junk mail." | 1683 "Disposition of junk mail." |
1684 :type '(choice (const :tag "Delete Spam" nil) | 1684 :type '(choice (const :tag "Delete Spam" nil) |
1685 (string :tag "Spam Folder")) | 1685 (string :tag "Spam Folder")) |
1686 :group 'mh-junk | 1686 :group 'mh-junk |
1687 :package-version '(MH-E "8.0")) | 1687 :package-version '(MH-E . "8.0")) |
1688 | 1688 |
1689 (mh-defcustom mh-junk-program nil | 1689 (mh-defcustom mh-junk-program nil |
1690 "Spam program that MH-E should use. | 1690 "Spam program that MH-E should use. |
1691 | 1691 |
1692 The default setting of this option is \"Auto-detect\" which means | 1692 The default setting of this option is \"Auto-detect\" which means |
1698 (const :tag "SpamAssassin" spamassassin) | 1698 (const :tag "SpamAssassin" spamassassin) |
1699 (const :tag "Bogofilter" bogofilter) | 1699 (const :tag "Bogofilter" bogofilter) |
1700 (const :tag "SpamProbe" spamprobe)) | 1700 (const :tag "SpamProbe" spamprobe)) |
1701 :set 'mh-junk-choose | 1701 :set 'mh-junk-choose |
1702 :group 'mh-junk | 1702 :group 'mh-junk |
1703 :package-version '(MH-E "7.3")) | 1703 :package-version '(MH-E . "7.3")) |
1704 | 1704 |
1705 ;;; Editing a Draft (:group 'mh-letter) | 1705 ;;; Editing a Draft (:group 'mh-letter) |
1706 | 1706 |
1707 (mh-defcustom mh-compose-insertion (if (locate-library "mml") 'mml 'mh) | 1707 (mh-defcustom mh-compose-insertion (if (locate-library "mml") 'mml 'mh) |
1708 "Type of tags used when composing MIME messages. | 1708 "Type of tags used when composing MIME messages. |
1714 lot more functionality. This option can also be set to \"MH\" if | 1714 lot more functionality. This option can also be set to \"MH\" if |
1715 MH-style directives are preferred." | 1715 MH-style directives are preferred." |
1716 :type '(choice (const :tag "MML" mml) | 1716 :type '(choice (const :tag "MML" mml) |
1717 (const :tag "MH" mh)) | 1717 (const :tag "MH" mh)) |
1718 :group 'mh-letter | 1718 :group 'mh-letter |
1719 :package-version '(MH-E "7.0")) | 1719 :package-version '(MH-E . "7.0")) |
1720 | 1720 |
1721 (mh-defcustom mh-compose-skipped-header-fields | 1721 (mh-defcustom mh-compose-skipped-header-fields |
1722 '("From" "Organization" "References" "In-Reply-To" | 1722 '("From" "Organization" "References" "In-Reply-To" |
1723 "X-Face" "Face" "X-Image-URL" "X-Mailer") | 1723 "X-Face" "Face" "X-Image-URL" "X-Mailer") |
1724 "List of header fields to skip over when navigating in draft." | 1724 "List of header fields to skip over when navigating in draft." |
1725 :type '(repeat (string :tag "Field")) | 1725 :type '(repeat (string :tag "Field")) |
1726 :group 'mh-letter | 1726 :group 'mh-letter |
1727 :package-version '(MH-E "7.4")) | 1727 :package-version '(MH-E . "7.4")) |
1728 | 1728 |
1729 (mh-defcustom mh-compose-space-does-completion-flag nil | 1729 (mh-defcustom mh-compose-space-does-completion-flag nil |
1730 "*Non-nil means \\<mh-letter-mode-map>\\[mh-letter-complete-or-space] does completion in message header." | 1730 "*Non-nil means \\<mh-letter-mode-map>\\[mh-letter-complete-or-space] does completion in message header." |
1731 :type 'boolean | 1731 :type 'boolean |
1732 :group 'mh-letter | 1732 :group 'mh-letter |
1733 :package-version '(MH-E "7.4")) | 1733 :package-version '(MH-E . "7.4")) |
1734 | 1734 |
1735 (mh-defcustom mh-delete-yanked-msg-window-flag nil | 1735 (mh-defcustom mh-delete-yanked-msg-window-flag nil |
1736 "*Non-nil means delete any window displaying the message. | 1736 "*Non-nil means delete any window displaying the message. |
1737 | 1737 |
1738 This deletes the window containing the original message after | 1738 This deletes the window containing the original message after |
1739 yanking it with \\<mh-letter-mode-map>\\[mh-yank-cur-msg] to make | 1739 yanking it with \\<mh-letter-mode-map>\\[mh-yank-cur-msg] to make |
1740 more room on your screen for your reply." | 1740 more room on your screen for your reply." |
1741 :type 'boolean | 1741 :type 'boolean |
1742 :group 'mh-letter | 1742 :group 'mh-letter |
1743 :package-version '(MH-E "7.0")) | 1743 :package-version '(MH-E . "7.0")) |
1744 | 1744 |
1745 (mh-defcustom mh-extract-from-attribution-verb "wrote:" | 1745 (mh-defcustom mh-extract-from-attribution-verb "wrote:" |
1746 "*Verb to use for attribution when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg]. | 1746 "*Verb to use for attribution when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg]. |
1747 | 1747 |
1748 The attribution consists of the sender's name and email address | 1748 The attribution consists of the sender's name and email address |
1752 :type '(choice (const "wrote:") | 1752 :type '(choice (const "wrote:") |
1753 (const "a écrit:") | 1753 (const "a écrit:") |
1754 (const "schrieb:") | 1754 (const "schrieb:") |
1755 (string :tag "Custom String")) | 1755 (string :tag "Custom String")) |
1756 :group 'mh-letter | 1756 :group 'mh-letter |
1757 :package-version '(MH-E "7.0")) | 1757 :package-version '(MH-E . "7.0")) |
1758 | 1758 |
1759 (mh-defcustom mh-ins-buf-prefix "> " | 1759 (mh-defcustom mh-ins-buf-prefix "> " |
1760 "*String to put before each line of a yanked or inserted message. | 1760 "*String to put before each line of a yanked or inserted message. |
1761 | 1761 |
1762 The prefix \"> \" is the default setting of this option. I | 1762 The prefix \"> \" is the default setting of this option. I |
1768 This prefix is not inserted if you use one of the supercite | 1768 This prefix is not inserted if you use one of the supercite |
1769 flavors of `mh-yank-behavior' or you have added a | 1769 flavors of `mh-yank-behavior' or you have added a |
1770 `mail-citation-hook'." | 1770 `mail-citation-hook'." |
1771 :type 'string | 1771 :type 'string |
1772 :group 'mh-letter | 1772 :group 'mh-letter |
1773 :package-version '(MH-E "6.0")) | 1773 :package-version '(MH-E . "6.0")) |
1774 | 1774 |
1775 (mh-defcustom mh-letter-complete-function 'ispell-complete-word | 1775 (mh-defcustom mh-letter-complete-function 'ispell-complete-word |
1776 "*Function to call when completing outside of address or folder fields. | 1776 "*Function to call when completing outside of address or folder fields. |
1777 | 1777 |
1778 In the body of the message, | 1778 In the body of the message, |
1779 \\<mh-letter-mode-map>\\[mh-letter-complete] runs this function, | 1779 \\<mh-letter-mode-map>\\[mh-letter-complete] runs this function, |
1780 which is set to \"ispell-complete-word\" by default." | 1780 which is set to \"ispell-complete-word\" by default." |
1781 :type '(choice function (const nil)) | 1781 :type '(choice function (const nil)) |
1782 :group 'mh-letter | 1782 :group 'mh-letter |
1783 :package-version '(MH-E "7.1")) | 1783 :package-version '(MH-E . "7.1")) |
1784 | 1784 |
1785 (mh-defcustom mh-letter-fill-column 72 | 1785 (mh-defcustom mh-letter-fill-column 72 |
1786 "*Fill column to use in MH Letter mode. | 1786 "*Fill column to use in MH Letter mode. |
1787 | 1787 |
1788 By default, this option is 72 to allow others to quote your | 1788 By default, this option is 72 to allow others to quote your |
1789 message without line wrapping." | 1789 message without line wrapping." |
1790 :type 'integer | 1790 :type 'integer |
1791 :group 'mh-letter | 1791 :group 'mh-letter |
1792 :package-version '(MH-E "6.0")) | 1792 :package-version '(MH-E . "6.0")) |
1793 | 1793 |
1794 (mh-defcustom mh-mml-method-default (if mh-pgp-support-flag "pgpmime" "none") | 1794 (mh-defcustom mh-mml-method-default (if mh-pgp-support-flag "pgpmime" "none") |
1795 "Default method to use in security tags. | 1795 "Default method to use in security tags. |
1796 | 1796 |
1797 This option is used to select between a variety of mail security | 1797 This option is used to select between a variety of mail security |
1810 :type '(choice (const :tag "PGP (MIME)" "pgpmime") | 1810 :type '(choice (const :tag "PGP (MIME)" "pgpmime") |
1811 (const :tag "PGP" "pgp") | 1811 (const :tag "PGP" "pgp") |
1812 (const :tag "S/MIME" "smime") | 1812 (const :tag "S/MIME" "smime") |
1813 (const :tag "None" "none")) | 1813 (const :tag "None" "none")) |
1814 :group 'mh-letter | 1814 :group 'mh-letter |
1815 :package-version '(MH-E "8.0")) | 1815 :package-version '(MH-E . "8.0")) |
1816 | 1816 |
1817 (mh-defcustom mh-signature-file-name "~/.signature" | 1817 (mh-defcustom mh-signature-file-name "~/.signature" |
1818 "*Source of user's signature. | 1818 "*Source of user's signature. |
1819 | 1819 |
1820 By default, the text of your signature is taken from the file | 1820 By default, the text of your signature is taken from the file |
1833 The signature is inserted into your message with the command | 1833 The signature is inserted into your message with the command |
1834 \\<mh-letter-mode-map>\\[mh-insert-signature] or with the option | 1834 \\<mh-letter-mode-map>\\[mh-insert-signature] or with the option |
1835 `mh-identity-list'." | 1835 `mh-identity-list'." |
1836 :type 'file | 1836 :type 'file |
1837 :group 'mh-letter | 1837 :group 'mh-letter |
1838 :package-version '(MH-E "6.0")) | 1838 :package-version '(MH-E . "6.0")) |
1839 | 1839 |
1840 (mh-defcustom mh-signature-separator-flag t | 1840 (mh-defcustom mh-signature-separator-flag t |
1841 "*Non-nil means a signature separator should be inserted. | 1841 "*Non-nil means a signature separator should be inserted. |
1842 | 1842 |
1843 It is not recommended that you change this option since various | 1843 It is not recommended that you change this option since various |
1844 mail user agents, including MH-E, use the separator to present | 1844 mail user agents, including MH-E, use the separator to present |
1845 the signature differently, and to suppress the signature when | 1845 the signature differently, and to suppress the signature when |
1846 replying or yanking a letter into a draft." | 1846 replying or yanking a letter into a draft." |
1847 :type 'boolean | 1847 :type 'boolean |
1848 :group 'mh-letter | 1848 :group 'mh-letter |
1849 :package-version '(MH-E "8.0")) | 1849 :package-version '(MH-E . "8.0")) |
1850 | 1850 |
1851 (mh-defcustom mh-x-face-file "~/.face" | 1851 (mh-defcustom mh-x-face-file "~/.face" |
1852 "*File containing face header field to insert in outgoing mail. | 1852 "*File containing face header field to insert in outgoing mail. |
1853 | 1853 |
1854 If the file starts with either of the strings \"X-Face:\", \"Face:\" | 1854 If the file starts with either of the strings \"X-Face:\", \"Face:\" |
1873 To prevent the setting of any of these header fields, either set | 1873 To prevent the setting of any of these header fields, either set |
1874 `mh-x-face-file' to nil, or simply ensure that the file defined by | 1874 `mh-x-face-file' to nil, or simply ensure that the file defined by |
1875 this option doesn't exist." | 1875 this option doesn't exist." |
1876 :type 'file | 1876 :type 'file |
1877 :group 'mh-letter | 1877 :group 'mh-letter |
1878 :package-version '(MH-E "7.0")) | 1878 :package-version '(MH-E . "7.0")) |
1879 | 1879 |
1880 (mh-defcustom mh-yank-behavior 'attribution | 1880 (mh-defcustom mh-yank-behavior 'attribution |
1881 "*Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg]. | 1881 "*Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg]. |
1882 | 1882 |
1883 To include the entire message, including the entire header, use | 1883 To include the entire message, including the entire header, use |
1918 (const :tag "Invoke supercite, Automatically" autosupercite) | 1918 (const :tag "Invoke supercite, Automatically" autosupercite) |
1919 (const :tag "Body With Attribution" attribution) | 1919 (const :tag "Body With Attribution" attribution) |
1920 (const :tag "Body With Attribution, Automatically" | 1920 (const :tag "Body With Attribution, Automatically" |
1921 autoattrib)) | 1921 autoattrib)) |
1922 :group 'mh-letter | 1922 :group 'mh-letter |
1923 :package-version '(MH-E "8.0")) | 1923 :package-version '(MH-E . "8.0")) |
1924 | 1924 |
1925 ;;; Ranges (:group 'mh-ranges) | 1925 ;;; Ranges (:group 'mh-ranges) |
1926 | 1926 |
1927 (mh-defcustom mh-interpret-number-as-range-flag t | 1927 (mh-defcustom mh-interpret-number-as-range-flag t |
1928 "*Non-nil means interpret a number as a range. | 1928 "*Non-nil means interpret a number as a range. |
1931 will interpret input such as \"200\" as \"last:200\" if this | 1931 will interpret input such as \"200\" as \"last:200\" if this |
1932 option is on (which is the default). If you need to scan just the | 1932 option is on (which is the default). If you need to scan just the |
1933 message 200, then use the range \"200:200\"." | 1933 message 200, then use the range \"200:200\"." |
1934 :type 'boolean | 1934 :type 'boolean |
1935 :group 'mh-ranges | 1935 :group 'mh-ranges |
1936 :package-version '(MH-E "7.4")) | 1936 :package-version '(MH-E . "7.4")) |
1937 | 1937 |
1938 ;;; Scan Line Formats (:group 'mh-scan-line-formats) | 1938 ;;; Scan Line Formats (:group 'mh-scan-line-formats) |
1939 | 1939 |
1940 (eval-and-compile | 1940 (eval-and-compile |
1941 (unless (fboundp 'mh-adaptive-cmd-note-flag-check) | 1941 (unless (fboundp 'mh-adaptive-cmd-note-flag-check) |
1958 \(see `mh-scan-format-file'). For example, the default width is 4, so | 1958 \(see `mh-scan-format-file'). For example, the default width is 4, so |
1959 you would use \"(mh-set-cmd-note 4)\"." | 1959 you would use \"(mh-set-cmd-note 4)\"." |
1960 :type 'boolean | 1960 :type 'boolean |
1961 :group 'mh-scan-line-formats | 1961 :group 'mh-scan-line-formats |
1962 :set 'mh-adaptive-cmd-note-flag-check | 1962 :set 'mh-adaptive-cmd-note-flag-check |
1963 :package-version '(MH-E "7.0")) | 1963 :package-version '(MH-E . "7.0")) |
1964 | 1964 |
1965 (defun mh-scan-format-file-check (symbol value) | 1965 (defun mh-scan-format-file-check (symbol value) |
1966 "Check if desired setting is legal. | 1966 "Check if desired setting is legal. |
1967 Throw an error if user tries to set `mh-scan-format-file' to | 1967 Throw an error if user tries to set `mh-scan-format-file' to |
1968 anything but t when `mh-adaptive-cmd-note-flag' is on. Otherwise, | 1968 anything but t when `mh-adaptive-cmd-note-flag' is on. Otherwise, |
1997 :type '(choice (const :tag "Use MH-E scan Format" t) | 1997 :type '(choice (const :tag "Use MH-E scan Format" t) |
1998 (const :tag "Use Default scan Format" nil) | 1998 (const :tag "Use Default scan Format" nil) |
1999 (file :tag "Specify a scan Format File")) | 1999 (file :tag "Specify a scan Format File")) |
2000 :group 'mh-scan-line-formats | 2000 :group 'mh-scan-line-formats |
2001 :set 'mh-scan-format-file-check | 2001 :set 'mh-scan-format-file-check |
2002 :package-version '(MH-E "6.0")) | 2002 :package-version '(MH-E . "6.0")) |
2003 | 2003 |
2004 (defun mh-adaptive-cmd-note-flag-check (symbol value) | 2004 (defun mh-adaptive-cmd-note-flag-check (symbol value) |
2005 "Check if desired setting is legal. | 2005 "Check if desired setting is legal. |
2006 Throw an error if user tries to turn on | 2006 Throw an error if user tries to turn on |
2007 `mh-adaptive-cmd-note-flag' when `mh-scan-format-file' isn't t. | 2007 `mh-adaptive-cmd-note-flag' when `mh-scan-format-file' isn't t. |
2020 absolute pathname, it is assumed to be in the `mh-progs' | 2020 absolute pathname, it is assumed to be in the `mh-progs' |
2021 directory. You may link another program to `scan' (see | 2021 directory. You may link another program to `scan' (see |
2022 \"mh-profile(5)\") to produce a different type of listing." | 2022 \"mh-profile(5)\") to produce a different type of listing." |
2023 :type 'string | 2023 :type 'string |
2024 :group 'mh-scan-line-formats | 2024 :group 'mh-scan-line-formats |
2025 :package-version '(MH-E "6.0")) | 2025 :package-version '(MH-E . "6.0")) |
2026 (make-variable-buffer-local 'mh-scan-prog) | 2026 (make-variable-buffer-local 'mh-scan-prog) |
2027 | 2027 |
2028 ;;; Searching (:group 'mh-search) | 2028 ;;; Searching (:group 'mh-search) |
2029 | 2029 |
2030 (mh-defcustom mh-search-program nil | 2030 (mh-defcustom mh-search-program nil |
2044 (const :tag "mairix" mairix) | 2044 (const :tag "mairix" mairix) |
2045 (const :tag "namazu" namazu) | 2045 (const :tag "namazu" namazu) |
2046 (const :tag "pick" pick) | 2046 (const :tag "pick" pick) |
2047 (const :tag "grep" grep)) | 2047 (const :tag "grep" grep)) |
2048 :group 'mh-search | 2048 :group 'mh-search |
2049 :package-version '(MH-E "8.0")) | 2049 :package-version '(MH-E . "8.0")) |
2050 | 2050 |
2051 ;;; Sending Mail (:group 'mh-sending-mail) | 2051 ;;; Sending Mail (:group 'mh-sending-mail) |
2052 | 2052 |
2053 (mh-defcustom mh-compose-forward-as-mime-flag t | 2053 (mh-defcustom mh-compose-forward-as-mime-flag t |
2054 "*Non-nil means that messages are forwarded as attachments. | 2054 "*Non-nil means that messages are forwarded as attachments. |
2062 aware that if you have \"forw: -mime\" in your MH profile, then | 2062 aware that if you have \"forw: -mime\" in your MH profile, then |
2063 forwarded messages will always be included as attachments | 2063 forwarded messages will always be included as attachments |
2064 regardless of the settings of this option." | 2064 regardless of the settings of this option." |
2065 :type 'boolean | 2065 :type 'boolean |
2066 :group 'mh-sending-mail | 2066 :group 'mh-sending-mail |
2067 :package-version '(MH-E "8.0")) | 2067 :package-version '(MH-E . "8.0")) |
2068 | 2068 |
2069 (mh-defcustom mh-compose-letter-function nil | 2069 (mh-defcustom mh-compose-letter-function nil |
2070 "Invoked when starting a new draft. | 2070 "Invoked when starting a new draft. |
2071 | 2071 |
2072 However, it is the last function called before you edit your | 2072 However, it is the last function called before you edit your |
2074 to write and send the message for you. This function is passed | 2074 to write and send the message for you. This function is passed |
2075 three arguments: the contents of the TO, SUBJECT, and CC header | 2075 three arguments: the contents of the TO, SUBJECT, and CC header |
2076 fields." | 2076 fields." |
2077 :type '(choice (const nil) function) | 2077 :type '(choice (const nil) function) |
2078 :group 'mh-sending-mail | 2078 :group 'mh-sending-mail |
2079 :package-version '(MH-E "6.0")) | 2079 :package-version '(MH-E . "6.0")) |
2080 | 2080 |
2081 (mh-defcustom mh-compose-prompt-flag nil | 2081 (mh-defcustom mh-compose-prompt-flag nil |
2082 "*Non-nil means prompt for header fields when composing a new draft." | 2082 "*Non-nil means prompt for header fields when composing a new draft." |
2083 :type 'boolean | 2083 :type 'boolean |
2084 :group 'mh-sending-mail | 2084 :group 'mh-sending-mail |
2085 :package-version '(MH-E "7.4")) | 2085 :package-version '(MH-E . "7.4")) |
2086 | 2086 |
2087 (mh-defcustom mh-forward-subject-format "%s: %s" | 2087 (mh-defcustom mh-forward-subject-format "%s: %s" |
2088 "*Format string for forwarded message subject. | 2088 "*Format string for forwarded message subject. |
2089 | 2089 |
2090 This option is a string which includes two escapes (\"%s\"). The | 2090 This option is a string which includes two escapes (\"%s\"). The |
2091 first \"%s\" is replaced with the sender of the original message, | 2091 first \"%s\" is replaced with the sender of the original message, |
2092 and the second one is replaced with the original \"Subject:\"." | 2092 and the second one is replaced with the original \"Subject:\"." |
2093 :type 'string | 2093 :type 'string |
2094 :group 'mh-sending-mail | 2094 :group 'mh-sending-mail |
2095 :package-version '(MH-E "6.0")) | 2095 :package-version '(MH-E . "6.0")) |
2096 | 2096 |
2097 (mh-defcustom mh-insert-x-mailer-flag t | 2097 (mh-defcustom mh-insert-x-mailer-flag t |
2098 "*Non-nil means append an \"X-Mailer:\" header field to the header. | 2098 "*Non-nil means append an \"X-Mailer:\" header field to the header. |
2099 | 2099 |
2100 This header field includes the version of MH-E and Emacs that you | 2100 This header field includes the version of MH-E and Emacs that you |
2101 are using. If you don't want to participate in our marketing, you | 2101 are using. If you don't want to participate in our marketing, you |
2102 can turn this option off." | 2102 can turn this option off." |
2103 :type 'boolean | 2103 :type 'boolean |
2104 :group 'mh-sending-mail | 2104 :group 'mh-sending-mail |
2105 :package-version '(MH-E "7.0")) | 2105 :package-version '(MH-E . "7.0")) |
2106 | 2106 |
2107 (mh-defcustom mh-redist-full-contents-flag nil | 2107 (mh-defcustom mh-redist-full-contents-flag nil |
2108 "*Non-nil means the \"dist\" command needs entire letter for redistribution. | 2108 "*Non-nil means the \"dist\" command needs entire letter for redistribution. |
2109 | 2109 |
2110 This option must be turned on if \"dist\" requires the whole | 2110 This option must be turned on if \"dist\" requires the whole |
2112 compiled with the BERK option (which many people abhor). If you | 2112 compiled with the BERK option (which many people abhor). If you |
2113 find that MH will not allow you to redistribute a message that | 2113 find that MH will not allow you to redistribute a message that |
2114 has been redistributed before, turn off this option." | 2114 has been redistributed before, turn off this option." |
2115 :type 'boolean | 2115 :type 'boolean |
2116 :group 'mh-sending-mail | 2116 :group 'mh-sending-mail |
2117 :package-version '(MH-E "8.0")) | 2117 :package-version '(MH-E . "8.0")) |
2118 | 2118 |
2119 (mh-defcustom mh-reply-default-reply-to nil | 2119 (mh-defcustom mh-reply-default-reply-to nil |
2120 "*Sets the person or persons to whom a reply will be sent. | 2120 "*Sets the person or persons to whom a reply will be sent. |
2121 | 2121 |
2122 This option is set to \"Prompt\" by default so that you are | 2122 This option is set to \"Prompt\" by default so that you are |
2128 (const "from") | 2128 (const "from") |
2129 (const "to") | 2129 (const "to") |
2130 (const "cc") | 2130 (const "cc") |
2131 (const "all")) | 2131 (const "all")) |
2132 :group 'mh-sending-mail | 2132 :group 'mh-sending-mail |
2133 :package-version '(MH-E "6.0")) | 2133 :package-version '(MH-E . "6.0")) |
2134 | 2134 |
2135 (mh-defcustom mh-reply-show-message-flag t | 2135 (mh-defcustom mh-reply-show-message-flag t |
2136 "*Non-nil means the MH-Show buffer is displayed when replying. | 2136 "*Non-nil means the MH-Show buffer is displayed when replying. |
2137 | 2137 |
2138 If you include the message automatically, you can hide the | 2138 If you include the message automatically, you can hide the |
2139 MH-Show buffer by turning off this option. | 2139 MH-Show buffer by turning off this option. |
2140 | 2140 |
2141 See also `mh-reply'." | 2141 See also `mh-reply'." |
2142 :type 'boolean | 2142 :type 'boolean |
2143 :group 'mh-sending-mail | 2143 :group 'mh-sending-mail |
2144 :package-version '(MH-E "7.0")) | 2144 :package-version '(MH-E . "7.0")) |
2145 | 2145 |
2146 ;;; Sequences (:group 'mh-sequences) | 2146 ;;; Sequences (:group 'mh-sequences) |
2147 | 2147 |
2148 ;; If `mh-unpropagated-sequences' becomes a defcustom, add the following to | 2148 ;; If `mh-unpropagated-sequences' becomes a defcustom, add the following to |
2149 ;; the docstring: "Additional sequences that should not to be preserved can be | 2149 ;; the docstring: "Additional sequences that should not to be preserved can be |
2156 and \"cur\") when it is refiled, then it will still be in those | 2156 and \"cur\") when it is refiled, then it will still be in those |
2157 sequences in the destination folder. If this behavior is not | 2157 sequences in the destination folder. If this behavior is not |
2158 desired, then turn off this option." | 2158 desired, then turn off this option." |
2159 :type 'boolean | 2159 :type 'boolean |
2160 :group 'mh-sequences | 2160 :group 'mh-sequences |
2161 :package-version '(MH-E "7.4")) | 2161 :package-version '(MH-E . "7.4")) |
2162 | 2162 |
2163 (mh-defcustom mh-tick-seq 'tick | 2163 (mh-defcustom mh-tick-seq 'tick |
2164 "The name of the MH sequence for ticked messages. | 2164 "The name of the MH sequence for ticked messages. |
2165 | 2165 |
2166 You can customize this option if you already use the \"tick\" | 2166 You can customize this option if you already use the \"tick\" |
2168 ticking functions by choosing the \"Disable Ticking\" item but | 2168 ticking functions by choosing the \"Disable Ticking\" item but |
2169 there isn't much advantage to that." | 2169 there isn't much advantage to that." |
2170 :type '(choice (const :tag "Disable Ticking" nil) | 2170 :type '(choice (const :tag "Disable Ticking" nil) |
2171 symbol) | 2171 symbol) |
2172 :group 'mh-sequences | 2172 :group 'mh-sequences |
2173 :package-version '(MH-E "7.3")) | 2173 :package-version '(MH-E . "7.3")) |
2174 | 2174 |
2175 (mh-defcustom mh-update-sequences-after-mh-show-flag t | 2175 (mh-defcustom mh-update-sequences-after-mh-show-flag t |
2176 "*Non-nil means flush MH sequences to disk after message is shown\\<mh-folder-mode-map>. | 2176 "*Non-nil means flush MH sequences to disk after message is shown\\<mh-folder-mode-map>. |
2177 | 2177 |
2178 Three sequences are maintained internally by MH-E and pushed out | 2178 Three sequences are maintained internally by MH-E and pushed out |
2183 this option. You can then update the state manually with the | 2183 this option. You can then update the state manually with the |
2184 \\[mh-execute-commands], \\[mh-quit], or \\[mh-update-sequences] | 2184 \\[mh-execute-commands], \\[mh-quit], or \\[mh-update-sequences] |
2185 commands." | 2185 commands." |
2186 :type 'boolean | 2186 :type 'boolean |
2187 :group 'mh-sequences | 2187 :group 'mh-sequences |
2188 :package-version '(MH-E "7.0")) | 2188 :package-version '(MH-E . "7.0")) |
2189 | 2189 |
2190 ;;; Reading Your Mail (:group 'mh-show) | 2190 ;;; Reading Your Mail (:group 'mh-show) |
2191 | 2191 |
2192 (mh-defcustom mh-bury-show-buffer-flag t | 2192 (mh-defcustom mh-bury-show-buffer-flag t |
2193 "*Non-nil means show buffer is buried. | 2193 "*Non-nil means show buffer is buried. |
2196 delete the show buffer more easily in an electric buffer list | 2196 delete the show buffer more easily in an electric buffer list |
2197 because of its proximity to its associated MH-Folder buffer. Try | 2197 because of its proximity to its associated MH-Folder buffer. Try |
2198 running \\[electric-buffer-list] to see what I mean." | 2198 running \\[electric-buffer-list] to see what I mean." |
2199 :type 'boolean | 2199 :type 'boolean |
2200 :group 'mh-show | 2200 :group 'mh-show |
2201 :package-version '(MH-E "7.0")) | 2201 :package-version '(MH-E . "7.0")) |
2202 | 2202 |
2203 (mh-defcustom mh-clean-message-header-flag t | 2203 (mh-defcustom mh-clean-message-header-flag t |
2204 "*Non-nil means remove extraneous header fields. | 2204 "*Non-nil means remove extraneous header fields. |
2205 | 2205 |
2206 See also `mh-invisible-header-fields-default' and | 2206 See also `mh-invisible-header-fields-default' and |
2207 `mh-invisible-header-fields'." | 2207 `mh-invisible-header-fields'." |
2208 :type 'boolean | 2208 :type 'boolean |
2209 :group 'mh-show | 2209 :group 'mh-show |
2210 :package-version '(MH-E "7.0")) | 2210 :package-version '(MH-E . "7.0")) |
2211 | 2211 |
2212 (mh-defcustom mh-decode-mime-flag (not (not (locate-library "mm-decode"))) | 2212 (mh-defcustom mh-decode-mime-flag (not (not (locate-library "mm-decode"))) |
2213 "*Non-nil means attachments are handled\\<mh-folder-mode-map>. | 2213 "*Non-nil means attachments are handled\\<mh-folder-mode-map>. |
2214 | 2214 |
2215 MH-E can handle attachments as well if the Gnus `mm-decode' | 2215 MH-E can handle attachments as well if the Gnus `mm-decode' |
2223 This option also controls the display of quoted-printable | 2223 This option also controls the display of quoted-printable |
2224 messages and other graphical widgets. See the options | 2224 messages and other graphical widgets. See the options |
2225 `mh-graphical-smileys-flag' and `mh-graphical-emphasis-flag'." | 2225 `mh-graphical-smileys-flag' and `mh-graphical-emphasis-flag'." |
2226 :type 'boolean | 2226 :type 'boolean |
2227 :group 'mh-show | 2227 :group 'mh-show |
2228 :package-version '(MH-E "7.0")) | 2228 :package-version '(MH-E . "7.0")) |
2229 | 2229 |
2230 (mh-defcustom mh-display-buttons-for-alternatives-flag nil | 2230 (mh-defcustom mh-display-buttons-for-alternatives-flag nil |
2231 "*Non-nil means display buttons for all alternative attachments. | 2231 "*Non-nil means display buttons for all alternative attachments. |
2232 | 2232 |
2233 Sometimes, a mail program will produce multiple alternatives of | 2233 Sometimes, a mail program will produce multiple alternatives of |
2235 original content. By default, only the preferred alternative is | 2235 original content. By default, only the preferred alternative is |
2236 displayed. If this option is on, then the preferred part is shown | 2236 displayed. If this option is on, then the preferred part is shown |
2237 inline and buttons are shown for each of the other alternatives." | 2237 inline and buttons are shown for each of the other alternatives." |
2238 :type 'boolean | 2238 :type 'boolean |
2239 :group 'mh-show | 2239 :group 'mh-show |
2240 :package-version '(MH-E "7.4")) | 2240 :package-version '(MH-E . "7.4")) |
2241 | 2241 |
2242 (mh-defcustom mh-display-buttons-for-inline-parts-flag nil | 2242 (mh-defcustom mh-display-buttons-for-inline-parts-flag nil |
2243 "*Non-nil means display buttons for all inline attachments\\<mh-folder-mode-map>. | 2243 "*Non-nil means display buttons for all inline attachments\\<mh-folder-mode-map>. |
2244 | 2244 |
2245 The sender can request that attachments should be viewed inline so | 2245 The sender can request that attachments should be viewed inline so |
2258 | 2258 |
2259 MH-E cannot display all attachments inline however. It can display | 2259 MH-E cannot display all attachments inline however. It can display |
2260 text (including HTML) and images." | 2260 text (including HTML) and images." |
2261 :type 'boolean | 2261 :type 'boolean |
2262 :group 'mh-show | 2262 :group 'mh-show |
2263 :package-version '(MH-E "7.0")) | 2263 :package-version '(MH-E . "7.0")) |
2264 | 2264 |
2265 (mh-defcustom mh-do-not-confirm-flag nil | 2265 (mh-defcustom mh-do-not-confirm-flag nil |
2266 "*Non-nil means non-reversible commands do not prompt for confirmation. | 2266 "*Non-nil means non-reversible commands do not prompt for confirmation. |
2267 | 2267 |
2268 Commands such as `mh-pack-folder' prompt to confirm whether to | 2268 Commands such as `mh-pack-folder' prompt to confirm whether to |
2270 Turning on this option means that these actions will be | 2270 Turning on this option means that these actions will be |
2271 performed--which is usually desired but cannot be | 2271 performed--which is usually desired but cannot be |
2272 retracted--without question." | 2272 retracted--without question." |
2273 :type 'boolean | 2273 :type 'boolean |
2274 :group 'mh-show | 2274 :group 'mh-show |
2275 :package-version '(MH-E "7.0")) | 2275 :package-version '(MH-E . "7.0")) |
2276 | 2276 |
2277 (mh-defcustom mh-fetch-x-image-url nil | 2277 (mh-defcustom mh-fetch-x-image-url nil |
2278 "*Control fetching of \"X-Image-URL:\" header field image. | 2278 "*Control fetching of \"X-Image-URL:\" header field image. |
2279 | 2279 |
2280 Ths option controls the fetching of the \"X-Image-URL:\" header | 2280 Ths option controls the fetching of the \"X-Image-URL:\" header |
2306 turned on." | 2306 turned on." |
2307 | 2307 |
2308 :type '(choice (const :tag "Ask Before Fetching" ask) | 2308 :type '(choice (const :tag "Ask Before Fetching" ask) |
2309 (const :tag "Never Fetch" nil)) | 2309 (const :tag "Never Fetch" nil)) |
2310 :group 'mh-show | 2310 :group 'mh-show |
2311 :package-version '(MH-E "7.3")) | 2311 :package-version '(MH-E . "7.3")) |
2312 | 2312 |
2313 (mh-defcustom mh-graphical-smileys-flag t | 2313 (mh-defcustom mh-graphical-smileys-flag t |
2314 "*Non-nil means graphical smileys are displayed. | 2314 "*Non-nil means graphical smileys are displayed. |
2315 | 2315 |
2316 It is a long standing custom to inject body language using a | 2316 It is a long standing custom to inject body language using a |
2321 | 2321 |
2322 This option is disabled if the option `mh-decode-mime-flag' is | 2322 This option is disabled if the option `mh-decode-mime-flag' is |
2323 turned off." | 2323 turned off." |
2324 :type 'boolean | 2324 :type 'boolean |
2325 :group 'mh-show | 2325 :group 'mh-show |
2326 :package-version '(MH-E "7.0")) | 2326 :package-version '(MH-E . "7.0")) |
2327 | 2327 |
2328 (mh-defcustom mh-graphical-emphasis-flag t | 2328 (mh-defcustom mh-graphical-emphasis-flag t |
2329 "*Non-nil means graphical emphasis is displayed. | 2329 "*Non-nil means graphical emphasis is displayed. |
2330 | 2330 |
2331 A few typesetting features are indicated in ASCII text with | 2331 A few typesetting features are indicated in ASCII text with |
2338 | 2338 |
2339 This option is disabled if the option `mh-decode-mime-flag' is | 2339 This option is disabled if the option `mh-decode-mime-flag' is |
2340 turned off." | 2340 turned off." |
2341 :type 'boolean | 2341 :type 'boolean |
2342 :group 'mh-show | 2342 :group 'mh-show |
2343 :package-version '(MH-E "7.0")) | 2343 :package-version '(MH-E . "7.0")) |
2344 | 2344 |
2345 (mh-defcustom mh-highlight-citation-style 'gnus | 2345 (mh-defcustom mh-highlight-citation-style 'gnus |
2346 "Style for highlighting citations. | 2346 "Style for highlighting citations. |
2347 | 2347 |
2348 If the sender of the message has cited other messages in his | 2348 If the sender of the message has cited other messages in his |
2354 of citations entirely, choose \"None\"." | 2354 of citations entirely, choose \"None\"." |
2355 :type '(choice (const :tag "Multicolor" gnus) | 2355 :type '(choice (const :tag "Multicolor" gnus) |
2356 (const :tag "Monochrome" font-lock) | 2356 (const :tag "Monochrome" font-lock) |
2357 (const :tag "None" nil)) | 2357 (const :tag "None" nil)) |
2358 :group 'mh-show | 2358 :group 'mh-show |
2359 :package-version '(MH-E "8.0")) | 2359 :package-version '(MH-E . "8.0")) |
2360 | 2360 |
2361 ;; Keep fields alphabetized. Mention source, if known. | 2361 ;; Keep fields alphabetized. Mention source, if known. |
2362 (defvar mh-invisible-header-fields-internal | 2362 (defvar mh-invisible-header-fields-internal |
2363 '("Approved:" | 2363 '("Approved:" |
2364 "Autoforwarded:" | 2364 "Autoforwarded:" |
2586 :type '(repeat (string :tag "Header field")) | 2586 :type '(repeat (string :tag "Header field")) |
2587 :set (lambda (symbol value) | 2587 :set (lambda (symbol value) |
2588 (set-default symbol value) | 2588 (set-default symbol value) |
2589 (mh-invisible-headers)) | 2589 (mh-invisible-headers)) |
2590 :group 'mh-show | 2590 :group 'mh-show |
2591 :package-version '(MH-E "7.1")) | 2591 :package-version '(MH-E . "7.1")) |
2592 | 2592 |
2593 (mh-defcustom mh-invisible-header-fields-default nil | 2593 (mh-defcustom mh-invisible-header-fields-default nil |
2594 "*List of hidden header fields. | 2594 "*List of hidden header fields. |
2595 | 2595 |
2596 The header fields listed in this option are hidden, although you | 2596 The header fields listed in this option are hidden, although you |
2604 mh-invisible-header-fields-internal)) | 2604 mh-invisible-header-fields-internal)) |
2605 :set (lambda (symbol value) | 2605 :set (lambda (symbol value) |
2606 (set-default symbol value) | 2606 (set-default symbol value) |
2607 (mh-invisible-headers)) | 2607 (mh-invisible-headers)) |
2608 :group 'mh-show | 2608 :group 'mh-show |
2609 :package-version '(MH-E "8.0")) | 2609 :package-version '(MH-E . "8.0")) |
2610 | 2610 |
2611 (defvar mh-invisible-header-fields-compiled nil | 2611 (defvar mh-invisible-header-fields-compiled nil |
2612 "*Regexp matching lines in a message header that are not to be shown. | 2612 "*Regexp matching lines in a message header that are not to be shown. |
2613 Do not alter this variable directly. Instead, customize | 2613 Do not alter this variable directly. Instead, customize |
2614 `mh-invisible-header-fields-default' checking for fields normally | 2614 `mh-invisible-header-fields-default' checking for fields normally |
2656 | 2656 |
2657 This options is not used by the commands \\[mh-ps-print-msg] or | 2657 This options is not used by the commands \\[mh-ps-print-msg] or |
2658 \\[mh-ps-print-msg-file]." | 2658 \\[mh-ps-print-msg-file]." |
2659 :type 'string | 2659 :type 'string |
2660 :group 'mh-show | 2660 :group 'mh-show |
2661 :package-version '(MH-E "6.0")) | 2661 :package-version '(MH-E . "6.0")) |
2662 | 2662 |
2663 (mh-defcustom mh-max-inline-image-height nil | 2663 (mh-defcustom mh-max-inline-image-height nil |
2664 "*Maximum inline image height if \"Content-Disposition:\" is not present. | 2664 "*Maximum inline image height if \"Content-Disposition:\" is not present. |
2665 | 2665 |
2666 Some older mail programs do not insert this needed plumbing to | 2666 Some older mail programs do not insert this needed plumbing to |
2672 `mh-max-inline-image-height' from their default value of zero to | 2672 `mh-max-inline-image-height' from their default value of zero to |
2673 a large number. The size of your screen is a good choice for | 2673 a large number. The size of your screen is a good choice for |
2674 these numbers." | 2674 these numbers." |
2675 :type '(choice (const nil) integer) | 2675 :type '(choice (const nil) integer) |
2676 :group 'mh-show | 2676 :group 'mh-show |
2677 :package-version '(MH-E "7.0")) | 2677 :package-version '(MH-E . "7.0")) |
2678 | 2678 |
2679 (mh-defcustom mh-max-inline-image-width nil | 2679 (mh-defcustom mh-max-inline-image-width nil |
2680 "*Maximum inline image width if \"Content-Disposition:\" is not present. | 2680 "*Maximum inline image width if \"Content-Disposition:\" is not present. |
2681 | 2681 |
2682 Some older mail programs do not insert this needed plumbing to | 2682 Some older mail programs do not insert this needed plumbing to |
2688 `mh-max-inline-image-height' from their default value of zero to | 2688 `mh-max-inline-image-height' from their default value of zero to |
2689 a large number. The size of your screen is a good choice for | 2689 a large number. The size of your screen is a good choice for |
2690 these numbers." | 2690 these numbers." |
2691 :type '(choice (const nil) integer) | 2691 :type '(choice (const nil) integer) |
2692 :group 'mh-show | 2692 :group 'mh-show |
2693 :package-version '(MH-E "7.0")) | 2693 :package-version '(MH-E . "7.0")) |
2694 | 2694 |
2695 (mh-defcustom mh-mhl-format-file nil | 2695 (mh-defcustom mh-mhl-format-file nil |
2696 "*Specifies the format file to pass to the \"mhl\" program. | 2696 "*Specifies the format file to pass to the \"mhl\" program. |
2697 | 2697 |
2698 Normally MH-E takes care of displaying messages itself (rather than | 2698 Normally MH-E takes care of displaying messages itself (rather than |
2712 file." | 2712 file." |
2713 :type '(choice (const :tag "Use Default mhl Format (Printing Only)" nil) | 2713 :type '(choice (const :tag "Use Default mhl Format (Printing Only)" nil) |
2714 (const :tag "Use Default mhl Format" t) | 2714 (const :tag "Use Default mhl Format" t) |
2715 (file :tag "Specify an mhl Format File")) | 2715 (file :tag "Specify an mhl Format File")) |
2716 :group 'mh-show | 2716 :group 'mh-show |
2717 :package-version '(MH-E "8.0")) | 2717 :package-version '(MH-E . "8.0")) |
2718 | 2718 |
2719 (mh-defcustom mh-mime-save-parts-default-directory t | 2719 (mh-defcustom mh-mime-save-parts-default-directory t |
2720 "Default directory to use for \\<mh-folder-mode-map>\\[mh-mime-save-parts]. | 2720 "Default directory to use for \\<mh-folder-mode-map>\\[mh-mime-save-parts]. |
2721 | 2721 |
2722 The default value for this option is \"Prompt Always\" so that | 2722 The default value for this option is \"Prompt Always\" so that |
2728 directory's name." | 2728 directory's name." |
2729 :type '(choice (const :tag "Prompt the First Time" nil) | 2729 :type '(choice (const :tag "Prompt the First Time" nil) |
2730 (const :tag "Prompt Always" t) | 2730 (const :tag "Prompt Always" t) |
2731 directory) | 2731 directory) |
2732 :group 'mh-show | 2732 :group 'mh-show |
2733 :package-version '(MH-E "7.0")) | 2733 :package-version '(MH-E . "7.0")) |
2734 | 2734 |
2735 (mh-defcustom mh-print-background-flag nil | 2735 (mh-defcustom mh-print-background-flag nil |
2736 "*Non-nil means messages should be printed in the background\\<mh-folder-mode-map>. | 2736 "*Non-nil means messages should be printed in the background\\<mh-folder-mode-map>. |
2737 | 2737 |
2738 Normally messages are printed in the foreground. If this is slow on | 2738 Normally messages are printed in the foreground. If this is slow on |
2744 | 2744 |
2745 This option is not used by the commands \\[mh-ps-print-msg] or | 2745 This option is not used by the commands \\[mh-ps-print-msg] or |
2746 \\[mh-ps-print-msg-file]." | 2746 \\[mh-ps-print-msg-file]." |
2747 :type 'boolean | 2747 :type 'boolean |
2748 :group 'mh-show | 2748 :group 'mh-show |
2749 :package-version '(MH-E "7.0")) | 2749 :package-version '(MH-E . "7.0")) |
2750 | 2750 |
2751 (mh-defcustom mh-show-maximum-size 0 | 2751 (mh-defcustom mh-show-maximum-size 0 |
2752 "*Maximum size of message (in bytes) to display automatically. | 2752 "*Maximum size of message (in bytes) to display automatically. |
2753 | 2753 |
2754 This option provides an opportunity to skip over large messages | 2754 This option provides an opportunity to skip over large messages |
2755 which may be slow to load. The default value of 0 means that all | 2755 which may be slow to load. The default value of 0 means that all |
2756 message are shown regardless of size." | 2756 message are shown regardless of size." |
2757 :type 'integer | 2757 :type 'integer |
2758 :group 'mh-show | 2758 :group 'mh-show |
2759 :package-version '(MH-E "8.0")) | 2759 :package-version '(MH-E . "8.0")) |
2760 | 2760 |
2761 (mh-defcustom mh-show-use-xface-flag (>= emacs-major-version 21) | 2761 (mh-defcustom mh-show-use-xface-flag (>= emacs-major-version 21) |
2762 "*Non-nil means display face images in MH-show buffers. | 2762 "*Non-nil means display face images in MH-show buffers. |
2763 | 2763 |
2764 MH-E can display the content of \"Face:\", \"X-Face:\", and | 2764 MH-E can display the content of \"Face:\", \"X-Face:\", and |
2794 | 2794 |
2795 The option `mh-fetch-x-image-url' controls the fetching of the | 2795 The option `mh-fetch-x-image-url' controls the fetching of the |
2796 \"X-Image-URL:\" header field image." | 2796 \"X-Image-URL:\" header field image." |
2797 :type 'boolean | 2797 :type 'boolean |
2798 :group 'mh-show | 2798 :group 'mh-show |
2799 :package-version '(MH-E "7.0")) | 2799 :package-version '(MH-E . "7.0")) |
2800 | 2800 |
2801 (mh-defcustom mh-store-default-directory nil | 2801 (mh-defcustom mh-store-default-directory nil |
2802 "*Default directory for \\<mh-folder-mode-map>\\[mh-store-msg]. | 2802 "*Default directory for \\<mh-folder-mode-map>\\[mh-store-msg]. |
2803 | 2803 |
2804 If you would like to change the initial default directory, | 2804 If you would like to change the initial default directory, |
2806 \"Directory\", and then enter the name of the directory for storing | 2806 \"Directory\", and then enter the name of the directory for storing |
2807 the content of these messages." | 2807 the content of these messages." |
2808 :type '(choice (const :tag "Current" nil) | 2808 :type '(choice (const :tag "Current" nil) |
2809 directory) | 2809 directory) |
2810 :group 'mh-show | 2810 :group 'mh-show |
2811 :package-version '(MH-E "6.0")) | 2811 :package-version '(MH-E . "6.0")) |
2812 | 2812 |
2813 (mh-defcustom mh-summary-height nil | 2813 (mh-defcustom mh-summary-height nil |
2814 "*Number of lines in MH-Folder buffer (including the mode line). | 2814 "*Number of lines in MH-Folder buffer (including the mode line). |
2815 | 2815 |
2816 The default value of this option is \"Automatic\" which means | 2816 The default value of this option is \"Automatic\" which means |
2819 then choose the \"Fixed Size\" option and enter the number of | 2819 then choose the \"Fixed Size\" option and enter the number of |
2820 lines you'd like to see." | 2820 lines you'd like to see." |
2821 :type '(choice (const :tag "Automatic" nil) | 2821 :type '(choice (const :tag "Automatic" nil) |
2822 (integer :tag "Fixed Size")) | 2822 (integer :tag "Fixed Size")) |
2823 :group 'mh-show | 2823 :group 'mh-show |
2824 :package-version '(MH-E "7.4")) | 2824 :package-version '(MH-E . "7.4")) |
2825 | 2825 |
2826 ;;; The Speedbar (:group 'mh-speedbar) | 2826 ;;; The Speedbar (:group 'mh-speedbar) |
2827 | 2827 |
2828 (mh-defcustom mh-speed-update-interval 60 | 2828 (mh-defcustom mh-speed-update-interval 60 |
2829 "Time between speedbar updates in seconds. | 2829 "Time between speedbar updates in seconds. |
2830 Set to 0 to disable automatic update." | 2830 Set to 0 to disable automatic update." |
2831 :type 'integer | 2831 :type 'integer |
2832 :group 'mh-speedbar | 2832 :group 'mh-speedbar |
2833 :package-version '(MH-E "8.0")) | 2833 :package-version '(MH-E . "8.0")) |
2834 | 2834 |
2835 ;;; Threading (:group 'mh-thread) | 2835 ;;; Threading (:group 'mh-thread) |
2836 | 2836 |
2837 (mh-defcustom mh-show-threads-flag nil | 2837 (mh-defcustom mh-show-threads-flag nil |
2838 "*Non-nil means new folders start in threaded mode. | 2838 "*Non-nil means new folders start in threaded mode. |
2841 option is turned off by default. If you turn this option on, then | 2841 option is turned off by default. If you turn this option on, then |
2842 threading will be done only if the number of messages being | 2842 threading will be done only if the number of messages being |
2843 threaded is less than `mh-large-folder'." | 2843 threaded is less than `mh-large-folder'." |
2844 :type 'boolean | 2844 :type 'boolean |
2845 :group 'mh-thread | 2845 :group 'mh-thread |
2846 :package-version '(MH-E "7.1")) | 2846 :package-version '(MH-E . "7.1")) |
2847 | 2847 |
2848 ;;; The Tool Bar (:group 'mh-tool-bar) | 2848 ;;; The Tool Bar (:group 'mh-tool-bar) |
2849 | 2849 |
2850 ;; mh-tool-bar-folder-buttons and mh-tool-bar-letter-buttons defined | 2850 ;; mh-tool-bar-folder-buttons and mh-tool-bar-letter-buttons defined |
2851 ;; dynamically in mh-tool-bar.el. | 2851 ;; dynamically in mh-tool-bar.el. |
2857 \"Other Function\" from the \"Value Menu\" and enter a function | 2857 \"Other Function\" from the \"Value Menu\" and enter a function |
2858 of your own choosing." | 2858 of your own choosing." |
2859 :type '(choice (const mh-search) | 2859 :type '(choice (const mh-search) |
2860 (function :tag "Other Function")) | 2860 (function :tag "Other Function")) |
2861 :group 'mh-tool-bar | 2861 :group 'mh-tool-bar |
2862 :package-version '(MH-E "7.0")) | 2862 :package-version '(MH-E . "7.0")) |
2863 | 2863 |
2864 ;; XEmacs has a couple of extra customizations... | 2864 ;; XEmacs has a couple of extra customizations... |
2865 (mh-do-in-xemacs | 2865 (mh-do-in-xemacs |
2866 (mh-defcustom mh-xemacs-use-tool-bar-flag mh-xemacs-has-tool-bar-flag | 2866 (mh-defcustom mh-xemacs-use-tool-bar-flag mh-xemacs-has-tool-bar-flag |
2867 "*If non-nil, use tool bar. | 2867 "*If non-nil, use tool bar. |
2875 :set (lambda (symbol value) | 2875 :set (lambda (symbol value) |
2876 (if (and (eq value t) | 2876 (if (and (eq value t) |
2877 (not mh-xemacs-has-tool-bar-flag)) | 2877 (not mh-xemacs-has-tool-bar-flag)) |
2878 (error "Tool bar not supported")) | 2878 (error "Tool bar not supported")) |
2879 (set-default symbol value)) | 2879 (set-default symbol value)) |
2880 :package-version '(MH-E "7.3")) | 2880 :package-version '(MH-E . "7.3")) |
2881 | 2881 |
2882 (mh-defcustom mh-xemacs-tool-bar-position nil | 2882 (mh-defcustom mh-xemacs-tool-bar-position nil |
2883 "*Tool bar location. | 2883 "*Tool bar location. |
2884 | 2884 |
2885 This option controls the placement of the tool bar along the four | 2885 This option controls the placement of the tool bar along the four |
2893 (const :tag "Top" :value top) | 2893 (const :tag "Top" :value top) |
2894 (const :tag "Bottom" :value bottom) | 2894 (const :tag "Bottom" :value bottom) |
2895 (const :tag "Left" :value left) | 2895 (const :tag "Left" :value left) |
2896 (const :tag "Right" :value right)) | 2896 (const :tag "Right" :value right)) |
2897 :group 'mh-tool-bar | 2897 :group 'mh-tool-bar |
2898 :package-version '(MH-E "7.3"))) | 2898 :package-version '(MH-E . "7.3"))) |
2899 | 2899 |
2900 | 2900 |
2901 | 2901 |
2902 ;;; Hooks (:group 'mh-hooks + group where hook described) | 2902 ;;; Hooks (:group 'mh-hooks + group where hook described) |
2903 | 2903 |
2909 deletes and refiles. This list will always include the current | 2909 deletes and refiles. This list will always include the current |
2910 folder, which is also available in `mh-current-folder'." | 2910 folder, which is also available in `mh-current-folder'." |
2911 :type 'hook | 2911 :type 'hook |
2912 :group 'mh-hooks | 2912 :group 'mh-hooks |
2913 :group 'mh-folder | 2913 :group 'mh-folder |
2914 :package-version '(MH-E "8.0")) | 2914 :package-version '(MH-E . "8.0")) |
2915 | 2915 |
2916 (mh-defcustom mh-alias-reloaded-hook nil | 2916 (mh-defcustom mh-alias-reloaded-hook nil |
2917 "Hook run by `mh-alias-reload' after loading aliases." | 2917 "Hook run by `mh-alias-reload' after loading aliases." |
2918 :type 'hook | 2918 :type 'hook |
2919 :group 'mh-hooks | 2919 :group 'mh-hooks |
2920 :group 'mh-alias | 2920 :group 'mh-alias |
2921 :package-version '(MH-E "8.0")) | 2921 :package-version '(MH-E . "8.0")) |
2922 | 2922 |
2923 (mh-defcustom mh-before-commands-processed-hook nil | 2923 (mh-defcustom mh-before-commands-processed-hook nil |
2924 "Hook run by \\<mh-folder-mode-map>\\[mh-execute-commands] before performing outstanding refile and delete requests. | 2924 "Hook run by \\<mh-folder-mode-map>\\[mh-execute-commands] before performing outstanding refile and delete requests. |
2925 | 2925 |
2926 Variables that are useful in this hook include `mh-delete-list' | 2926 Variables that are useful in this hook include `mh-delete-list' |
2927 and `mh-refile-list' which can be used to see which changes will | 2927 and `mh-refile-list' which can be used to see which changes will |
2928 be made to the current folder, `mh-current-folder'." | 2928 be made to the current folder, `mh-current-folder'." |
2929 :type 'hook | 2929 :type 'hook |
2930 :group 'mh-hooks | 2930 :group 'mh-hooks |
2931 :group 'mh-folder | 2931 :group 'mh-folder |
2932 :package-version '(MH-E "8.0")) | 2932 :package-version '(MH-E . "8.0")) |
2933 | 2933 |
2934 (mh-defcustom mh-before-quit-hook nil | 2934 (mh-defcustom mh-before-quit-hook nil |
2935 "Hook run by \\<mh-folder-mode-map>\\[mh-quit] before quitting MH-E. | 2935 "Hook run by \\<mh-folder-mode-map>\\[mh-quit] before quitting MH-E. |
2936 | 2936 |
2937 This hook is called before the quit occurs, so you might use it | 2937 This hook is called before the quit occurs, so you might use it |
2940 | 2940 |
2941 See also `mh-quit-hook'." | 2941 See also `mh-quit-hook'." |
2942 :type 'hook | 2942 :type 'hook |
2943 :group 'mh-hooks | 2943 :group 'mh-hooks |
2944 :group 'mh-folder | 2944 :group 'mh-folder |
2945 :package-version '(MH-E "6.0")) | 2945 :package-version '(MH-E . "6.0")) |
2946 | 2946 |
2947 (mh-defcustom mh-before-send-letter-hook nil | 2947 (mh-defcustom mh-before-send-letter-hook nil |
2948 "Hook run at the beginning of the \\<mh-letter-mode-map>\\[mh-send-letter] command. | 2948 "Hook run at the beginning of the \\<mh-letter-mode-map>\\[mh-send-letter] command. |
2949 | 2949 |
2950 For example, if you want to check your spelling in your message | 2950 For example, if you want to check your spelling in your message |
2951 before sending, add the `ispell-message' function." | 2951 before sending, add the `ispell-message' function." |
2952 :type 'hook | 2952 :type 'hook |
2953 :options '(ispell-message) | 2953 :options '(ispell-message) |
2954 :group 'mh-hooks | 2954 :group 'mh-hooks |
2955 :group 'mh-letter | 2955 :group 'mh-letter |
2956 :package-version '(MH-E "6.0")) | 2956 :package-version '(MH-E . "6.0")) |
2957 | 2957 |
2958 (mh-defcustom mh-delete-msg-hook nil | 2958 (mh-defcustom mh-delete-msg-hook nil |
2959 "Hook run by \\<mh-letter-mode-map>\\[mh-delete-msg] after marking each message for deletion. | 2959 "Hook run by \\<mh-letter-mode-map>\\[mh-delete-msg] after marking each message for deletion. |
2960 | 2960 |
2961 For example, a past maintainer of MH-E used this once when he | 2961 For example, a past maintainer of MH-E used this once when he |
2962 kept statistics on his mail usage." | 2962 kept statistics on his mail usage." |
2963 :type 'hook | 2963 :type 'hook |
2964 :group 'mh-hooks | 2964 :group 'mh-hooks |
2965 :group 'mh-show | 2965 :group 'mh-show |
2966 :package-version '(MH-E "6.0")) | 2966 :package-version '(MH-E . "6.0")) |
2967 | 2967 |
2968 (mh-defcustom mh-find-path-hook nil | 2968 (mh-defcustom mh-find-path-hook nil |
2969 "Hook run by `mh-find-path' after reading the user's MH profile. | 2969 "Hook run by `mh-find-path' after reading the user's MH profile. |
2970 | 2970 |
2971 This hook can be used the change the value of the variables that | 2971 This hook can be used the change the value of the variables that |
2972 `mh-find-path' sets if you need to run with different values | 2972 `mh-find-path' sets if you need to run with different values |
2973 between MH and MH-E." | 2973 between MH and MH-E." |
2974 :type 'hook | 2974 :type 'hook |
2975 :group 'mh-hooks | 2975 :group 'mh-hooks |
2976 :group 'mh-e | 2976 :group 'mh-e |
2977 :package-version '(MH-E "7.0")) | 2977 :package-version '(MH-E . "7.0")) |
2978 | 2978 |
2979 (mh-defcustom mh-folder-mode-hook nil | 2979 (mh-defcustom mh-folder-mode-hook nil |
2980 "Hook run by `mh-folder-mode' when visiting a new folder." | 2980 "Hook run by `mh-folder-mode' when visiting a new folder." |
2981 :type 'hook | 2981 :type 'hook |
2982 :group 'mh-hooks | 2982 :group 'mh-hooks |
2983 :group 'mh-folder | 2983 :group 'mh-folder |
2984 :package-version '(MH-E "6.0")) | 2984 :package-version '(MH-E . "6.0")) |
2985 | 2985 |
2986 (mh-defcustom mh-forward-hook nil | 2986 (mh-defcustom mh-forward-hook nil |
2987 "Hook run by `mh-forward' on a forwarded letter." | 2987 "Hook run by `mh-forward' on a forwarded letter." |
2988 :type 'hook | 2988 :type 'hook |
2989 :group 'mh-hooks | 2989 :group 'mh-hooks |
2990 :group 'mh-sending-mail | 2990 :group 'mh-sending-mail |
2991 :package-version '(MH-E "8.0")) | 2991 :package-version '(MH-E . "8.0")) |
2992 | 2992 |
2993 (mh-defcustom mh-inc-folder-hook nil | 2993 (mh-defcustom mh-inc-folder-hook nil |
2994 "Hook run by \\<mh-folder-mode-map>\\[mh-inc-folder] after incorporating mail into a folder." | 2994 "Hook run by \\<mh-folder-mode-map>\\[mh-inc-folder] after incorporating mail into a folder." |
2995 :type 'hook | 2995 :type 'hook |
2996 :group 'mh-hooks | 2996 :group 'mh-hooks |
2997 :group 'mh-inc | 2997 :group 'mh-inc |
2998 :package-version '(MH-E "6.0")) | 2998 :package-version '(MH-E . "6.0")) |
2999 | 2999 |
3000 (mh-defcustom mh-insert-signature-hook nil | 3000 (mh-defcustom mh-insert-signature-hook nil |
3001 "Hook run by \\<mh-letter-mode-map>\\[mh-insert-signature] after signature has been inserted. | 3001 "Hook run by \\<mh-letter-mode-map>\\[mh-insert-signature] after signature has been inserted. |
3002 | 3002 |
3003 Hook functions may access the actual name of the file or the | 3003 Hook functions may access the actual name of the file or the |
3004 function used to insert the signature with | 3004 function used to insert the signature with |
3005 `mh-signature-file-name'." | 3005 `mh-signature-file-name'." |
3006 :type 'hook | 3006 :type 'hook |
3007 :group 'mh-hooks | 3007 :group 'mh-hooks |
3008 :group 'mh-letter | 3008 :group 'mh-letter |
3009 :package-version '(MH-E "8.0")) | 3009 :package-version '(MH-E . "8.0")) |
3010 | 3010 |
3011 (mh-defcustom mh-kill-folder-suppress-prompt-hooks '(mh-search-p) | 3011 (mh-defcustom mh-kill-folder-suppress-prompt-hooks '(mh-search-p) |
3012 "Abnormal hook run at the beginning of \\<mh-folder-mode-map>\\[mh-kill-folder]. | 3012 "Abnormal hook run at the beginning of \\<mh-folder-mode-map>\\[mh-kill-folder]. |
3013 | 3013 |
3014 The hook functions are called with no arguments and should return | 3014 The hook functions are called with no arguments and should return |
3022 which returns t on \"+inbox\" and you hit \\[mh-kill-folder] by | 3022 which returns t on \"+inbox\" and you hit \\[mh-kill-folder] by |
3023 accident in the \"+inbox\" folder, you will not be happy." | 3023 accident in the \"+inbox\" folder, you will not be happy." |
3024 :type 'hook | 3024 :type 'hook |
3025 :group 'mh-hooks | 3025 :group 'mh-hooks |
3026 :group 'mh-folder | 3026 :group 'mh-folder |
3027 :package-version '(MH-E "7.4")) | 3027 :package-version '(MH-E . "7.4")) |
3028 | 3028 |
3029 (mh-defcustom mh-letter-mode-hook nil | 3029 (mh-defcustom mh-letter-mode-hook nil |
3030 "Hook run by `mh-letter-mode' on a new letter. | 3030 "Hook run by `mh-letter-mode' on a new letter. |
3031 | 3031 |
3032 This hook allows you to do some processing before editing a | 3032 This hook allows you to do some processing before editing a |
3035 \"components\" file and need to tell MH-E where the cursor should | 3035 \"components\" file and need to tell MH-E where the cursor should |
3036 go." | 3036 go." |
3037 :type 'hook | 3037 :type 'hook |
3038 :group 'mh-hooks | 3038 :group 'mh-hooks |
3039 :group 'mh-sending-mail | 3039 :group 'mh-sending-mail |
3040 :package-version '(MH-E "6.0")) | 3040 :package-version '(MH-E . "6.0")) |
3041 | 3041 |
3042 (mh-defcustom mh-mh-to-mime-hook nil | 3042 (mh-defcustom mh-mh-to-mime-hook nil |
3043 "Hook run on the formatted letter by \\<mh-letter-mode-map>\\[mh-mh-to-mime]." | 3043 "Hook run on the formatted letter by \\<mh-letter-mode-map>\\[mh-mh-to-mime]." |
3044 :type 'hook | 3044 :type 'hook |
3045 :group 'mh-hooks | 3045 :group 'mh-hooks |
3046 :group 'mh-letter | 3046 :group 'mh-letter |
3047 :package-version '(MH-E "8.0")) | 3047 :package-version '(MH-E . "8.0")) |
3048 | 3048 |
3049 (mh-defcustom mh-search-mode-hook nil | 3049 (mh-defcustom mh-search-mode-hook nil |
3050 "Hook run upon entry to `mh-search-mode'\\<mh-folder-mode-map>. | 3050 "Hook run upon entry to `mh-search-mode'\\<mh-folder-mode-map>. |
3051 | 3051 |
3052 If you find that you do the same thing over and over when editing | 3052 If you find that you do the same thing over and over when editing |
3054 This can be done with this hook which is called when | 3054 This can be done with this hook which is called when |
3055 \\[mh-search] is run on a new pattern." | 3055 \\[mh-search] is run on a new pattern." |
3056 :type 'hook | 3056 :type 'hook |
3057 :group 'mh-hooks | 3057 :group 'mh-hooks |
3058 :group 'mh-search | 3058 :group 'mh-search |
3059 :package-version '(MH-E "8.0")) | 3059 :package-version '(MH-E . "8.0")) |
3060 | 3060 |
3061 (mh-defcustom mh-quit-hook nil | 3061 (mh-defcustom mh-quit-hook nil |
3062 "Hook run by \\<mh-folder-mode-map>\\[mh-quit] after quitting MH-E. | 3062 "Hook run by \\<mh-folder-mode-map>\\[mh-quit] after quitting MH-E. |
3063 | 3063 |
3064 This hook is not run in an MH-E context, so you might use it to | 3064 This hook is not run in an MH-E context, so you might use it to |
3066 | 3066 |
3067 See also `mh-before-quit-hook'." | 3067 See also `mh-before-quit-hook'." |
3068 :type 'hook | 3068 :type 'hook |
3069 :group 'mh-hooks | 3069 :group 'mh-hooks |
3070 :group 'mh-folder | 3070 :group 'mh-folder |
3071 :package-version '(MH-E "6.0")) | 3071 :package-version '(MH-E . "6.0")) |
3072 | 3072 |
3073 (mh-defcustom mh-refile-msg-hook nil | 3073 (mh-defcustom mh-refile-msg-hook nil |
3074 "Hook run by \\<mh-folder-mode-map>\\[mh-refile-msg] after marking each message for refiling." | 3074 "Hook run by \\<mh-folder-mode-map>\\[mh-refile-msg] after marking each message for refiling." |
3075 :type 'hook | 3075 :type 'hook |
3076 :group 'mh-hooks | 3076 :group 'mh-hooks |
3077 :group 'mh-folder | 3077 :group 'mh-folder |
3078 :package-version '(MH-E "6.0")) | 3078 :package-version '(MH-E . "6.0")) |
3079 | 3079 |
3080 (mh-defcustom mh-show-hook nil | 3080 (mh-defcustom mh-show-hook nil |
3081 "Hook run after \\<mh-folder-mode-map>\\[mh-show] shows a message. | 3081 "Hook run after \\<mh-folder-mode-map>\\[mh-show] shows a message. |
3082 | 3082 |
3083 It is the last thing called after messages are displayed. It's | 3083 It is the last thing called after messages are displayed. It's |
3084 used to affect the behavior of MH-E in general or when | 3084 used to affect the behavior of MH-E in general or when |
3085 `mh-show-mode-hook' is too early. See `mh-show-mode-hook'." | 3085 `mh-show-mode-hook' is too early. See `mh-show-mode-hook'." |
3086 :type 'hook | 3086 :type 'hook |
3087 :group 'mh-hooks | 3087 :group 'mh-hooks |
3088 :group 'mh-show | 3088 :group 'mh-show |
3089 :package-version '(MH-E "6.0")) | 3089 :package-version '(MH-E . "6.0")) |
3090 | 3090 |
3091 (mh-defcustom mh-show-mode-hook nil | 3091 (mh-defcustom mh-show-mode-hook nil |
3092 "Hook run upon entry to `mh-show-mode'. | 3092 "Hook run upon entry to `mh-show-mode'. |
3093 | 3093 |
3094 This hook is called early on in the process of the message | 3094 This hook is called early on in the process of the message |
3095 display. It is usually used to perform some action on the | 3095 display. It is usually used to perform some action on the |
3096 message's content. See `mh-show-hook'." | 3096 message's content. See `mh-show-hook'." |
3097 :type 'hook | 3097 :type 'hook |
3098 :group 'mh-hooks | 3098 :group 'mh-hooks |
3099 :group 'mh-show | 3099 :group 'mh-show |
3100 :package-version '(MH-E "6.0")) | 3100 :package-version '(MH-E . "6.0")) |
3101 | 3101 |
3102 (mh-defcustom mh-unseen-updated-hook nil | 3102 (mh-defcustom mh-unseen-updated-hook nil |
3103 "Hook run after the unseen sequence has been updated. | 3103 "Hook run after the unseen sequence has been updated. |
3104 | 3104 |
3105 The variable `mh-seen-list' can be used by this hook to obtain | 3105 The variable `mh-seen-list' can be used by this hook to obtain |
3106 the list of messages which were removed from the unseen | 3106 the list of messages which were removed from the unseen |
3107 sequence." | 3107 sequence." |
3108 :type 'hook | 3108 :type 'hook |
3109 :group 'mh-hooks | 3109 :group 'mh-hooks |
3110 :group 'mh-sequences | 3110 :group 'mh-sequences |
3111 :package-version '(MH-E "6.0")) | 3111 :package-version '(MH-E . "6.0")) |
3112 | 3112 |
3113 | 3113 |
3114 | 3114 |
3115 ;;; Faces (:group 'mh-faces + group where faces described) | 3115 ;;; Faces (:group 'mh-faces + group where faces described) |
3116 | 3116 |
3324 (mh-defface mh-folder-address | 3324 (mh-defface mh-folder-address |
3325 (mh-face-data 'mh-folder-subject '((t (:inherit mh-folder-subject)))) | 3325 (mh-face-data 'mh-folder-subject '((t (:inherit mh-folder-subject)))) |
3326 "Recipient face." | 3326 "Recipient face." |
3327 :group 'mh-faces | 3327 :group 'mh-faces |
3328 :group 'mh-folder | 3328 :group 'mh-folder |
3329 :package-version '(MH-E "8.0")) | 3329 :package-version '(MH-E . "8.0")) |
3330 | 3330 |
3331 (mh-defface mh-folder-body | 3331 (mh-defface mh-folder-body |
3332 (mh-face-data 'mh-folder-msg-number | 3332 (mh-face-data 'mh-folder-msg-number |
3333 '((((class color)) | 3333 '((((class color)) |
3334 (:inherit mh-folder-msg-number)) | 3334 (:inherit mh-folder-msg-number)) |
3335 (t | 3335 (t |
3336 (:inherit mh-folder-msg-number :italic t)))) | 3336 (:inherit mh-folder-msg-number :italic t)))) |
3337 "Body text face." | 3337 "Body text face." |
3338 :group 'mh-faces | 3338 :group 'mh-faces |
3339 :group 'mh-folder | 3339 :group 'mh-folder |
3340 :package-version '(MH-E "8.0")) | 3340 :package-version '(MH-E . "8.0")) |
3341 | 3341 |
3342 (mh-defface mh-folder-cur-msg-number | 3342 (mh-defface mh-folder-cur-msg-number |
3343 (mh-face-data 'mh-folder-msg-number | 3343 (mh-face-data 'mh-folder-msg-number |
3344 '((t (:inherit mh-folder-msg-number :bold t)))) | 3344 '((t (:inherit mh-folder-msg-number :bold t)))) |
3345 "Current message number face." | 3345 "Current message number face." |
3346 :group 'mh-faces | 3346 :group 'mh-faces |
3347 :group 'mh-folder | 3347 :group 'mh-folder |
3348 :package-version '(MH-E "8.0")) | 3348 :package-version '(MH-E . "8.0")) |
3349 | 3349 |
3350 (mh-defface mh-folder-date | 3350 (mh-defface mh-folder-date |
3351 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-msg-number)))) | 3351 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-msg-number)))) |
3352 "Date face." | 3352 "Date face." |
3353 :group 'mh-faces | 3353 :group 'mh-faces |
3354 :group 'mh-folder | 3354 :group 'mh-folder |
3355 :package-version '(MH-E "8.0")) | 3355 :package-version '(MH-E . "8.0")) |
3356 | 3356 |
3357 (mh-defface mh-folder-deleted | 3357 (mh-defface mh-folder-deleted |
3358 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-msg-number)))) | 3358 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-msg-number)))) |
3359 "Deleted message face." | 3359 "Deleted message face." |
3360 :group 'mh-faces | 3360 :group 'mh-faces |
3361 :group 'mh-folder | 3361 :group 'mh-folder |
3362 :package-version '(MH-E "8.0")) | 3362 :package-version '(MH-E . "8.0")) |
3363 | 3363 |
3364 (mh-defface mh-folder-followup (mh-face-data 'mh-folder-followup) | 3364 (mh-defface mh-folder-followup (mh-face-data 'mh-folder-followup) |
3365 "\"Re:\" face." | 3365 "\"Re:\" face." |
3366 :group 'mh-faces | 3366 :group 'mh-faces |
3367 :group 'mh-folder | 3367 :group 'mh-folder |
3368 :package-version '(MH-E "8.0")) | 3368 :package-version '(MH-E . "8.0")) |
3369 | 3369 |
3370 (mh-defface mh-folder-msg-number (mh-face-data 'mh-folder-msg-number) | 3370 (mh-defface mh-folder-msg-number (mh-face-data 'mh-folder-msg-number) |
3371 "Message number face." | 3371 "Message number face." |
3372 :group 'mh-faces | 3372 :group 'mh-faces |
3373 :group 'mh-folder | 3373 :group 'mh-folder |
3374 :package-version '(MH-E "8.0")) | 3374 :package-version '(MH-E . "8.0")) |
3375 | 3375 |
3376 (mh-defface mh-folder-refiled (mh-face-data 'mh-folder-refiled) | 3376 (mh-defface mh-folder-refiled (mh-face-data 'mh-folder-refiled) |
3377 "Refiled message face." | 3377 "Refiled message face." |
3378 :group 'mh-faces | 3378 :group 'mh-faces |
3379 :group 'mh-folder | 3379 :group 'mh-folder |
3380 :package-version '(MH-E "8.0")) | 3380 :package-version '(MH-E . "8.0")) |
3381 | 3381 |
3382 (mh-defface mh-folder-sent-to-me-hint | 3382 (mh-defface mh-folder-sent-to-me-hint |
3383 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-date)))) | 3383 (mh-face-data 'mh-folder-msg-number '((t (:inherit mh-folder-date)))) |
3384 "Fontification hint face in messages sent directly to us. | 3384 "Fontification hint face in messages sent directly to us. |
3385 The detection of messages sent to us is governed by the scan | 3385 The detection of messages sent to us is governed by the scan |
3386 format `mh-scan-format-nmh' and the regular expression | 3386 format `mh-scan-format-nmh' and the regular expression |
3387 `mh-scan-sent-to-me-sender-regexp'." | 3387 `mh-scan-sent-to-me-sender-regexp'." |
3388 :group 'mh-faces | 3388 :group 'mh-faces |
3389 :group 'mh-folder | 3389 :group 'mh-folder |
3390 :package-version '(MH-E "8.0")) | 3390 :package-version '(MH-E . "8.0")) |
3391 | 3391 |
3392 (mh-defface mh-folder-sent-to-me-sender | 3392 (mh-defface mh-folder-sent-to-me-sender |
3393 (mh-face-data 'mh-folder-followup '((t (:inherit mh-folder-followup)))) | 3393 (mh-face-data 'mh-folder-followup '((t (:inherit mh-folder-followup)))) |
3394 "Sender face in messages sent directly to us. | 3394 "Sender face in messages sent directly to us. |
3395 The detection of messages sent to us is governed by the scan | 3395 The detection of messages sent to us is governed by the scan |
3396 format `mh-scan-format-nmh' and the regular expression | 3396 format `mh-scan-format-nmh' and the regular expression |
3397 `mh-scan-sent-to-me-sender-regexp'." | 3397 `mh-scan-sent-to-me-sender-regexp'." |
3398 :group 'mh-faces | 3398 :group 'mh-faces |
3399 :group 'mh-folder | 3399 :group 'mh-folder |
3400 :package-version '(MH-E "8.0")) | 3400 :package-version '(MH-E . "8.0")) |
3401 | 3401 |
3402 (mh-defface mh-folder-subject (mh-face-data 'mh-folder-subject) | 3402 (mh-defface mh-folder-subject (mh-face-data 'mh-folder-subject) |
3403 "Subject face." | 3403 "Subject face." |
3404 :group 'mh-faces | 3404 :group 'mh-faces |
3405 :group 'mh-folder | 3405 :group 'mh-folder |
3406 :package-version '(MH-E "8.0")) | 3406 :package-version '(MH-E . "8.0")) |
3407 | 3407 |
3408 (mh-defface mh-folder-tick (mh-face-data 'mh-folder-tick) | 3408 (mh-defface mh-folder-tick (mh-face-data 'mh-folder-tick) |
3409 "Ticked message face." | 3409 "Ticked message face." |
3410 :group 'mh-faces | 3410 :group 'mh-faces |
3411 :group 'mh-folder | 3411 :group 'mh-folder |
3412 :package-version '(MH-E "8.0")) | 3412 :package-version '(MH-E . "8.0")) |
3413 | 3413 |
3414 (mh-defface mh-folder-to (mh-face-data 'mh-folder-to) | 3414 (mh-defface mh-folder-to (mh-face-data 'mh-folder-to) |
3415 "\"To:\" face." | 3415 "\"To:\" face." |
3416 :group 'mh-faces | 3416 :group 'mh-faces |
3417 :group 'mh-folder | 3417 :group 'mh-folder |
3418 :package-version '(MH-E "8.0")) | 3418 :package-version '(MH-E . "8.0")) |
3419 | 3419 |
3420 (mh-defface mh-letter-header-field (mh-face-data 'mh-letter-header-field) | 3420 (mh-defface mh-letter-header-field (mh-face-data 'mh-letter-header-field) |
3421 "Editable header field value face in draft buffers." | 3421 "Editable header field value face in draft buffers." |
3422 :group 'mh-faces | 3422 :group 'mh-faces |
3423 :group 'mh-letter | 3423 :group 'mh-letter |
3424 :package-version '(MH-E "8.0")) | 3424 :package-version '(MH-E . "8.0")) |
3425 | 3425 |
3426 (mh-defface mh-search-folder (mh-face-data 'mh-search-folder) | 3426 (mh-defface mh-search-folder (mh-face-data 'mh-search-folder) |
3427 "Folder heading face in MH-Folder buffers created by searches." | 3427 "Folder heading face in MH-Folder buffers created by searches." |
3428 :group 'mh-faces | 3428 :group 'mh-faces |
3429 :group 'mh-search | 3429 :group 'mh-search |
3430 :package-version '(MH-E "8.0")) | 3430 :package-version '(MH-E . "8.0")) |
3431 | 3431 |
3432 (mh-defface mh-show-cc (mh-face-data 'mh-show-cc) | 3432 (mh-defface mh-show-cc (mh-face-data 'mh-show-cc) |
3433 "Face used to highlight \"cc:\" header fields." | 3433 "Face used to highlight \"cc:\" header fields." |
3434 :group 'mh-faces | 3434 :group 'mh-faces |
3435 :group 'mh-show | 3435 :group 'mh-show |
3436 :package-version '(MH-E "8.0")) | 3436 :package-version '(MH-E . "8.0")) |
3437 | 3437 |
3438 (mh-defface mh-show-date (mh-face-data 'mh-show-date) | 3438 (mh-defface mh-show-date (mh-face-data 'mh-show-date) |
3439 "Face used to highlight \"Date:\" header fields." | 3439 "Face used to highlight \"Date:\" header fields." |
3440 :group 'mh-faces | 3440 :group 'mh-faces |
3441 :group 'mh-show | 3441 :group 'mh-show |
3442 :package-version '(MH-E "8.0")) | 3442 :package-version '(MH-E . "8.0")) |
3443 | 3443 |
3444 (mh-defface mh-show-from (mh-face-data 'mh-show-from) | 3444 (mh-defface mh-show-from (mh-face-data 'mh-show-from) |
3445 "Face used to highlight \"From:\" header fields." | 3445 "Face used to highlight \"From:\" header fields." |
3446 :group 'mh-faces | 3446 :group 'mh-faces |
3447 :group 'mh-show | 3447 :group 'mh-show |
3448 :package-version '(MH-E "8.0")) | 3448 :package-version '(MH-E . "8.0")) |
3449 | 3449 |
3450 (mh-defface mh-show-header (mh-face-data 'mh-show-header) | 3450 (mh-defface mh-show-header (mh-face-data 'mh-show-header) |
3451 "Face used to deemphasize less interesting header fields." | 3451 "Face used to deemphasize less interesting header fields." |
3452 :group 'mh-faces | 3452 :group 'mh-faces |
3453 :group 'mh-show | 3453 :group 'mh-show |
3454 :package-version '(MH-E "8.0")) | 3454 :package-version '(MH-E . "8.0")) |
3455 | 3455 |
3456 (mh-defface mh-show-pgg-bad (mh-face-data 'mh-show-pgg-bad) | 3456 (mh-defface mh-show-pgg-bad (mh-face-data 'mh-show-pgg-bad) |
3457 "Bad PGG signature face." | 3457 "Bad PGG signature face." |
3458 :group 'mh-faces | 3458 :group 'mh-faces |
3459 :group 'mh-show | 3459 :group 'mh-show |
3460 :package-version '(MH-E "8.0")) | 3460 :package-version '(MH-E . "8.0")) |
3461 | 3461 |
3462 (mh-defface mh-show-pgg-good (mh-face-data 'mh-show-pgg-good) | 3462 (mh-defface mh-show-pgg-good (mh-face-data 'mh-show-pgg-good) |
3463 "Good PGG signature face." | 3463 "Good PGG signature face." |
3464 :group 'mh-faces | 3464 :group 'mh-faces |
3465 :group 'mh-show | 3465 :group 'mh-show |
3466 :package-version '(MH-E "8.0")) | 3466 :package-version '(MH-E . "8.0")) |
3467 | 3467 |
3468 (mh-defface mh-show-pgg-unknown (mh-face-data 'mh-show-pgg-unknown) | 3468 (mh-defface mh-show-pgg-unknown (mh-face-data 'mh-show-pgg-unknown) |
3469 "Unknown or untrusted PGG signature face." | 3469 "Unknown or untrusted PGG signature face." |
3470 :group 'mh-faces | 3470 :group 'mh-faces |
3471 :group 'mh-show | 3471 :group 'mh-show |
3472 :package-version '(MH-E "8.0")) | 3472 :package-version '(MH-E . "8.0")) |
3473 | 3473 |
3474 (mh-defface mh-show-signature (mh-face-data 'mh-show-signature) | 3474 (mh-defface mh-show-signature (mh-face-data 'mh-show-signature) |
3475 "Signature face." | 3475 "Signature face." |
3476 :group 'mh-faces | 3476 :group 'mh-faces |
3477 :group 'mh-show | 3477 :group 'mh-show |
3478 :package-version '(MH-E "8.0")) | 3478 :package-version '(MH-E . "8.0")) |
3479 | 3479 |
3480 (mh-defface mh-show-subject | 3480 (mh-defface mh-show-subject |
3481 (mh-face-data 'mh-folder-subject '((t (:inherit mh-folder-subject)))) | 3481 (mh-face-data 'mh-folder-subject '((t (:inherit mh-folder-subject)))) |
3482 "Face used to highlight \"Subject:\" header fields." | 3482 "Face used to highlight \"Subject:\" header fields." |
3483 :group 'mh-faces | 3483 :group 'mh-faces |
3484 :group 'mh-show | 3484 :group 'mh-show |
3485 :package-version '(MH-E "8.0")) | 3485 :package-version '(MH-E . "8.0")) |
3486 | 3486 |
3487 (mh-defface mh-show-to (mh-face-data 'mh-show-to) | 3487 (mh-defface mh-show-to (mh-face-data 'mh-show-to) |
3488 "Face used to highlight \"To:\" header fields." | 3488 "Face used to highlight \"To:\" header fields." |
3489 :group 'mh-faces | 3489 :group 'mh-faces |
3490 :group 'mh-show | 3490 :group 'mh-show |
3491 :package-version '(MH-E "8.0")) | 3491 :package-version '(MH-E . "8.0")) |
3492 | 3492 |
3493 (mh-defface mh-show-xface | 3493 (mh-defface mh-show-xface |
3494 (mh-face-data 'mh-show-from '((t (:inherit (mh-show-from highlight))))) | 3494 (mh-face-data 'mh-show-from '((t (:inherit (mh-show-from highlight))))) |
3495 "X-Face image face. | 3495 "X-Face image face. |
3496 The background and foreground are used in the image." | 3496 The background and foreground are used in the image." |
3497 :group 'mh-faces | 3497 :group 'mh-faces |
3498 :group 'mh-show | 3498 :group 'mh-show |
3499 :package-version '(MH-E "8.0")) | 3499 :package-version '(MH-E . "8.0")) |
3500 | 3500 |
3501 (mh-defface mh-speedbar-folder (mh-face-data 'mh-speedbar-folder) | 3501 (mh-defface mh-speedbar-folder (mh-face-data 'mh-speedbar-folder) |
3502 "Basic folder face." | 3502 "Basic folder face." |
3503 :group 'mh-faces | 3503 :group 'mh-faces |
3504 :group 'mh-speedbar | 3504 :group 'mh-speedbar |
3505 :package-version '(MH-E "8.0")) | 3505 :package-version '(MH-E . "8.0")) |
3506 | 3506 |
3507 (mh-defface mh-speedbar-folder-with-unseen-messages | 3507 (mh-defface mh-speedbar-folder-with-unseen-messages |
3508 (mh-face-data 'mh-speedbar-folder | 3508 (mh-face-data 'mh-speedbar-folder |
3509 '((t (:inherit mh-speedbar-folder :bold t)))) | 3509 '((t (:inherit mh-speedbar-folder :bold t)))) |
3510 "Folder face when folder contains unread messages." | 3510 "Folder face when folder contains unread messages." |
3511 :group 'mh-faces | 3511 :group 'mh-faces |
3512 :group 'mh-speedbar | 3512 :group 'mh-speedbar |
3513 :package-version '(MH-E "8.0")) | 3513 :package-version '(MH-E . "8.0")) |
3514 | 3514 |
3515 (mh-defface mh-speedbar-selected-folder | 3515 (mh-defface mh-speedbar-selected-folder |
3516 (mh-face-data 'mh-speedbar-selected-folder) | 3516 (mh-face-data 'mh-speedbar-selected-folder) |
3517 "Selected folder face." | 3517 "Selected folder face." |
3518 :group 'mh-faces | 3518 :group 'mh-faces |
3519 :group 'mh-speedbar | 3519 :group 'mh-speedbar |
3520 :package-version '(MH-E "8.0")) | 3520 :package-version '(MH-E . "8.0")) |
3521 | 3521 |
3522 (mh-defface mh-speedbar-selected-folder-with-unseen-messages | 3522 (mh-defface mh-speedbar-selected-folder-with-unseen-messages |
3523 (mh-face-data 'mh-speedbar-selected-folder | 3523 (mh-face-data 'mh-speedbar-selected-folder |
3524 '((t (:inherit mh-speedbar-selected-folder :bold t)))) | 3524 '((t (:inherit mh-speedbar-selected-folder :bold t)))) |
3525 "Selected folder face when folder contains unread messages." | 3525 "Selected folder face when folder contains unread messages." |
3526 :group 'mh-faces | 3526 :group 'mh-faces |
3527 :group 'mh-speedbar | 3527 :group 'mh-speedbar |
3528 :package-version '(MH-E "8.0")) | 3528 :package-version '(MH-E . "8.0")) |
3529 | 3529 |
3530 ;; Get rid of temporary functions and data structures. | 3530 ;; Get rid of temporary functions and data structures. |
3531 (fmakunbound 'mh-defcustom) | 3531 (fmakunbound 'mh-defcustom) |
3532 (fmakunbound 'mh-defface) | 3532 (fmakunbound 'mh-defface) |
3533 (fmakunbound 'mh-defgroup) | 3533 (fmakunbound 'mh-defgroup) |