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