[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-customize.el [emacs-unicode-
|
From: |
Miles Bader |
|
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-customize.el [emacs-unicode-2] |
|
Date: |
Fri, 16 Jul 2004 23:13:19 -0400 |
Index: emacs/lisp/mh-e/mh-customize.el
diff -c emacs/lisp/mh-e/mh-customize.el:1.4.4.1
emacs/lisp/mh-e/mh-customize.el:1.4.4.2
*** emacs/lisp/mh-e/mh-customize.el:1.4.4.1 Fri Apr 16 12:50:32 2004
--- emacs/lisp/mh-e/mh-customize.el Sat Jul 17 02:46:42 2004
***************
*** 1,6 ****
;;; mh-customize.el --- MH-E customization
! ;; Copyright (C) 2002, 2003 Free Software Foundation, Inc.
;; Author: Bill Wohler <address@hidden>
;; Maintainer: Bill Wohler <address@hidden>
--- 1,6 ----
;;; mh-customize.el --- MH-E customization
! ;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc.
;; Author: Bill Wohler <address@hidden>
;; Maintainer: Bill Wohler <address@hidden>
***************
*** 57,63 ****
;;; Code:
(provide 'mh-customize)
! (require 'mh-e)
;;;###mh-autoload
(defun mh-customize (&optional delete-other-windows-flag)
--- 57,66 ----
;;; Code:
(provide 'mh-customize)
! (require 'mh-utils)
!
! (when mh-xemacs-flag
! (require 'mh-xemacs))
;;;###mh-autoload
(defun mh-customize (&optional delete-other-windows-flag)
***************
*** 158,163 ****
--- 161,173 ----
:group 'mh-faces
:group 'mh-folder)
+ (defgroup mh-index-faces nil
+ "Faces used in indexed searches."
+ :link '(custom-manual "(mh-e)Customizing mh-e")
+ :prefix "mh-"
+ :group 'mh-faces
+ :group 'mh-index)
+
(defgroup mh-show-faces nil
"Faces used in message display."
:link '(custom-manual "(mh-e)Customizing mh-e")
***************
*** 165,176 ****
:group 'mh-faces
:group 'mh-show)
! (defgroup mh-index-faces nil
! "Faces used in indexed searches."
:link '(custom-manual "(mh-e)Customizing mh-e")
:prefix "mh-"
:group 'mh-faces
! :group 'mh-index)
--- 175,186 ----
:group 'mh-faces
:group 'mh-show)
! (defgroup mh-letter-faces nil
! "Faces used when composing messages."
:link '(custom-manual "(mh-e)Customizing mh-e")
:prefix "mh-"
:group 'mh-faces
! :group 'mh-letter)
***************
*** 230,236 ****
;; XEmacs has a couple of extra customizations...
(mh-do-in-xemacs
- (require 'mh-xemacs-icons)
(defcustom mh-xemacs-use-toolbar-flag (if (and (featurep 'toolbar)
(featurep 'xpm)
(device-on-window-system-p))
--- 240,245 ----
***************
*** 283,291 ****
:letter then the default buttons in the letter mode are listed. FUNC1, FUNC2,
FUNC3, ... are the names of the functions that the buttons would execute.
! Each element of BUTTONS is a list of four things:
! (FUNCTION MODES ICON DOC)
where,
--- 292,301 ----
:letter then the default buttons in the letter mode are listed. FUNC1, FUNC2,
FUNC3, ... are the names of the functions that the buttons would execute.
! Each element of BUTTONS is a list consisting of four mandatory items and one
! optional item as follows:
! (FUNCTION MODES ICON DOC &optional ENABLE-EXPR)
where,
***************
*** 308,314 ****
DOC is the documentation for the button. It is used in tool-tips and in
providing other help to the user. GNU Emacs uses only the first line of the
string. So the DOC should be formatted such that the first line is useful
and
! complete without the rest of the string."
;; The following variable names have been carefully chosen to make code
;; generation easier. Modifying the names should be done carefully.
(let (folder-buttons folder-docs folder-button-setter sequence-button-setter
--- 318,328 ----
DOC is the documentation for the button. It is used in tool-tips and in
providing other help to the user. GNU Emacs uses only the first line of the
string. So the DOC should be formatted such that the first line is useful
and
! complete without the rest of the string.
!
! Optional item ENABLE-EXPR is an arbitrary lisp expression. If it evaluates
! to nil, then the button is deactivated, otherwise it is active. If is in't
! present then the button is always active."
;; The following variable names have been carefully chosen to make code
;; generation easier. Modifying the names should be done carefully.
(let (folder-buttons folder-docs folder-button-setter sequence-button-setter
***************
*** 320,326 ****
(cond ((eq (car x) :folder) (setq folder-defaults (cdr x)))
((eq (car x) :letter) (setq letter-defaults (cdr x)))))
(dolist (button buttons)
! (unless (and (listp button) (equal (length button) 4))
(error "Incorrect MH-E tool-bar button specification: %s" button))
(let* ((name (nth 0 button))
(name-str (symbol-name name))
--- 334,341 ----
(cond ((eq (car x) :folder) (setq folder-defaults (cdr x)))
((eq (car x) :letter) (setq letter-defaults (cdr x)))))
(dolist (button buttons)
! (unless (and (listp button)
! (or (equal (length button) 4) (equal (length button) 5)))
(error "Incorrect MH-E tool-bar button specification: %s" button))
(let* ((name (nth 0 button))
(name-str (symbol-name name))
***************
*** 331,336 ****
--- 346,352 ----
(doc (if (string-match "\\(.*\\)\n" full-doc)
(match-string 1 full-doc)
full-doc))
+ (enable-expr (or (nth 4 button) t))
(modes (nth 1 button))
functions show-sym)
(when (memq 'letter modes) (setq functions `(:letter ,name)))
***************
*** 369,375 ****
(add-to-list
setter `(when (member ',name ,list)
(mh-funcall-if-exists
! tool-bar-add-item ,icon ',function ',key :help ,doc)))
(add-to-list mbuttons name)
(if docs (add-to-list docs doc))))))
(setq folder-buttons (nreverse folder-buttons)
--- 385,392 ----
(add-to-list
setter `(when (member ',name ,list)
(mh-funcall-if-exists
! tool-bar-add-item ,icon ',function ',key
! :help ,doc :enable ',enable-expr)))
(add-to-list mbuttons name)
(if docs (add-to-list docs doc))))))
(setq folder-buttons (nreverse folder-buttons)
***************
*** 464,485 ****
(when (and mh-xemacs-toolbar-position mh-xemacs-use-toolbar-flag)
(cond
((eq mh-xemacs-toolbar-position 'top)
! (set-specifier top-toolbar (cons buffer toolbar))
(set-specifier top-toolbar-visible-p t)
(set-specifier top-toolbar-height height))
((eq mh-xemacs-toolbar-position 'bottom)
! (set-specifier bottom-toolbar (cons buffer toolbar))
(set-specifier bottom-toolbar-visible-p t)
(set-specifier bottom-toolbar-height height))
((eq mh-xemacs-toolbar-position 'left)
! (set-specifier left-toolbar (cons buffer toolbar))
(set-specifier left-toolbar-visible-p t)
(set-specifier left-toolbar-width width))
((eq mh-xemacs-toolbar-position 'right)
! (set-specifier right-toolbar (cons buffer toolbar))
(set-specifier right-toolbar-visible-p t)
(set-specifier right-toolbar-width width))
! (t (set-specifier default-toolbar (cons buffer toolbar))))))))
;; Declare customizable toolbars
(custom-declare-variable
'mh-tool-bar-folder-buttons
--- 481,502 ----
(when (and mh-xemacs-toolbar-position mh-xemacs-use-toolbar-flag)
(cond
((eq mh-xemacs-toolbar-position 'top)
! (set-specifier top-toolbar toolbar buffer)
(set-specifier top-toolbar-visible-p t)
(set-specifier top-toolbar-height height))
((eq mh-xemacs-toolbar-position 'bottom)
! (set-specifier bottom-toolbar toolbar buffer)
(set-specifier bottom-toolbar-visible-p t)
(set-specifier bottom-toolbar-height height))
((eq mh-xemacs-toolbar-position 'left)
! (set-specifier left-toolbar toolbar buffer)
(set-specifier left-toolbar-visible-p t)
(set-specifier left-toolbar-width width))
((eq mh-xemacs-toolbar-position 'right)
! (set-specifier right-toolbar toolbar buffer)
(set-specifier right-toolbar-visible-p t)
(set-specifier right-toolbar-width width))
! (t (set-specifier default-toolbar toolbar buffer)))))))
;; Declare customizable toolbars
(custom-declare-variable
'mh-tool-bar-folder-buttons
***************
*** 541,547 ****
(mh-reply (folder) "mail/reply2"
"Reply to this message\nThis button runs `mh-reply'")
(mh-alias-grab-from-field (folder) "alias"
! "Grab From alias\nThis button runs `mh-alias-grab-from-field'")
(mh-send (folder) "mail_compose"
"Compose new message\nThis button runs `mh-send'")
(mh-rescan-folder (folder) "rescan"
--- 558,565 ----
(mh-reply (folder) "mail/reply2"
"Reply to this message\nThis button runs `mh-reply'")
(mh-alias-grab-from-field (folder) "alias"
! "Grab From alias\nThis button runs `mh-alias-grab-from-field'"
! (mh-alias-from-has-no-alias-p))
(mh-send (folder) "mail_compose"
"Compose new message\nThis button runs `mh-send'")
(mh-rescan-folder (folder) "rescan"
***************
*** 661,667 ****
:type 'string
:group 'mh-folder)
-
(defcustom mh-inc-spool-list nil
"*Alist of alternate spool files, corresponding folders and keybindings.
Here's an example. Suppose you have subscribed to the MH-E devel mailing
--- 679,684 ----
***************
*** 699,704 ****
--- 716,728 ----
:set 'mh-inc-spool-list-set
:group 'mh-folder)
+ (defcustom mh-interpret-number-as-range-flag t
+ "Non-nil means interpret a number as a range.
+ If the variable is non-nil, and you use an integer, N, when asked for a
+ range to scan, then MH-E uses the range \"last:N\"."
+ :type 'boolean
+ :group 'mh-folder)
+
(defcustom mh-lpr-command-format "lpr -J '%s'"
"*Format for Unix command that prints a message.
The string should be a Unix command line, with the string '%s' where
***************
*** 734,739 ****
--- 758,775 ----
:type 'boolean
:group 'mh-folder)
+ ;;; If `mh-unpropagated-sequences' becomes a defcustom, add the following tot
+ ;;; he docstring: "Additional sequences that should not to be preserved can be
+ ;;; specified by setting `mh-unpropagated-sequences' appropriately." XXX
+
+ (defcustom mh-refile-preserves-sequences-flag t
+ "*Non-nil means that sequences are preserved when messages are refiled.
+ If this variable is non-nil and a message belonging to a sequence other than
+ cur or Previous-Sequence (see mh-profile 5) is refiled then it is put in the
+ same sequence in the destination folder."
+ :type 'boolean
+ :group 'mh-folder)
+
(defcustom mh-scan-format-file t
"Specifies the format file to pass to the scan program.
If t, the format string will be taken from the either `mh-scan-format-mh'
***************
*** 819,824 ****
--- 855,870 ----
(const :tag "grep" grep))
:group 'mh-index)
+ (defcustom mh-index-ticked-messages-folders t
+ "Folders searched for `mh-tick-seq'.
+ If t, then `mh-inbox' is searched. If nil, all the top level folders are
+ searched. Otherwise the list of folders specified as strings are searched.
+ See also `mh-recursive-folders-flag'."
+ :group 'mh-index
+ :type '(choice (const :tag "Inbox" t)
+ (const :tag "All" nil)
+ (repeat :tag "Choose folders" (string :tag "Folder"))))
+
;;; Spam Handling (:group 'mh-junk)
***************
*** 878,885 ****
(defcustom mh-clean-message-header-flag t
"*Non-nil means clean headers of messages that are displayed or inserted.
! The variables `mh-invisible-headers' and `mh-visible-headers' control
! what is removed."
:type 'boolean
:group 'mh-show)
--- 924,932 ----
(defcustom mh-clean-message-header-flag t
"*Non-nil means clean headers of messages that are displayed or inserted.
! The variable `mh-invisible-headers' if set determines the header fields that
! are displayed. If it isn't set, then the variable `mh-invisible-headers'
! determines the header fields that are removed."
:type 'boolean
:group 'mh-show)
***************
*** 888,893 ****
--- 935,948 ----
:type 'boolean
:group 'mh-show)
+ (defcustom mh-display-buttons-for-alternatives-flag nil
+ "*Non-nil means display buttons for all MIME alternatives.
+ Default behavior is to display only the preferred alternative. If this
+ variable is non-nil, then the preferred part is shown inline and buttons
+ are shown for each of the other alternatives."
+ :type 'boolean
+ :group 'mh-show)
+
(defcustom mh-display-buttons-for-inline-parts-flag nil
"*Non-nil means display buttons for all inline MIME parts.
If non-nil, buttons are displayed for all MIME parts. Inline parts start off
***************
*** 949,975 ****
(defvar mh-invisible-headers nil
"*Regexp matching lines in a message header that are not to be shown.
! Use the function `mh-invisible-headers' to generate this variable.
! If `mh-visible-headers' is non-nil, it is used instead to specify what
! to keep.")
(defun mh-invisible-headers ()
"Make or remake the variable `mh-invisible-headers'.
Done using `mh-invisible-header-fields' as input."
! (setq mh-invisible-headers
! (concat
! "^"
! (let ((max-specpdl-size 1000) ;workaround for insufficient default
! (fields mh-invisible-header-fields))
! (regexp-opt fields t)))))
!
! (defun mh-invisible-header-fields-set (symbol value)
! "Update `mh-invisible-header-fields'.
! The function is called with SYMBOL bound to `mh-invisible-header-fields' and
! VALUE is the the list of headers that are invisible. As a side effect, the
! variable `mh-invisible-fields' is set."
! (set-default symbol value)
! (mh-invisible-headers))
;; Keep fields alphabetized. Mention source, if known.
(defcustom mh-invisible-header-fields
--- 1004,1026 ----
(defvar mh-invisible-headers nil
"*Regexp matching lines in a message header that are not to be shown.
! Customize the variable `mh-invisible-header-fields' to generate this variable;
! It will in turn automatically use the function `mh-invisible-headers' to
! generate this variable.
! If the variable `mh-visible-headers' is non-nil, it is used instead to specify
! what to keep.")
(defun mh-invisible-headers ()
"Make or remake the variable `mh-invisible-headers'.
Done using `mh-invisible-header-fields' as input."
! (if mh-invisible-header-fields
! (setq mh-invisible-headers
! (concat
! "^"
! (let ((max-specpdl-size 1000) ;workaround for insufficient
default
! (fields mh-invisible-header-fields))
! (regexp-opt fields t))))
! (setq mh-invisible-headers nil)))
;; Keep fields alphabetized. Mention source, if known.
(defcustom mh-invisible-header-fields
***************
*** 982,987 ****
--- 1033,1039 ----
"Delivery-Date:" ; MH
"Delivery:"
"Encoding:"
+ "Envelope-to:"
"Errors-To:"
"Face:" ; Gnus Face header
"Forwarded:" ; MH
***************
*** 1023,1029 ****
"Sensitivity:" ; MS Outlook
"Status:" ; sendmail
"Ua-Content-Id:" ; X400
! "User-Agent:"
"Via:" ; MH
"X-Abuse-Info:"
"X-Accept-Language:"
--- 1075,1081 ----
"Sensitivity:" ; MS Outlook
"Status:" ; sendmail
"Ua-Content-Id:" ; X400
! ;; "User-Agent:" ; Similar to X-Mailer, so display it.
"Via:" ; MH
"X-Abuse-Info:"
"X-Accept-Language:"
***************
*** 1076,1081 ****
--- 1128,1134 ----
"X-Orcl-Content-Type:"
"X-Original-Complaints-To:"
"X-Original-Date:" ; SourceForge mailing list manager
+ "X-Original-To:"
"X-Original-Trace:"
"X-OriginalArrivalTime:" ; Hotmail
"X-Originating-IP:" ; Hotmail
***************
*** 1113,1121 ****
Regexps are not allowed. Unique fields should have a \":\" suffix; otherwise,
the element can be used to render invisible an entire class of fields that
start with the same prefix.
! This variable is ignored if `mh-visible-headers' is set."
:type '(repeat (string :tag "Header field"))
! :set 'mh-invisible-header-fields-set
:group 'mh-show)
(defcustom mh-max-inline-image-height nil
--- 1166,1176 ----
Regexps are not allowed. Unique fields should have a \":\" suffix; otherwise,
the element can be used to render invisible an entire class of fields that
start with the same prefix.
! This variable is ignored if the variable `mh-visible-headers' is set."
:type '(repeat (string :tag "Header field"))
! :set (lambda (symbol value)
! (set-default symbol value)
! (mh-invisible-headers))
:group 'mh-show)
(defcustom mh-max-inline-image-height nil
***************
*** 1185,1203 ****
:type 'boolean
:group 'mh-show)
! (defcustom mh-summary-height (or (and (fboundp 'frame-height)
! (> (frame-height) 24)
! (min 10 (/ (frame-height) 6)))
! 4)
"*Number of lines in MH-Folder window (including the mode line)."
! :type 'integer
:group 'mh-show)
! (defcustom mh-visible-headers nil
! "*Contains a regexp specifying the headers to keep when cleaning.
Only used if `mh-clean-message-header-flag' is non-nil. Setting it overrides
! the variable `mh-invisible-headers'."
! :type '(choice (const nil) regexp)
:group 'mh-show)
(defcustom mhl-formfile nil
--- 1240,1282 ----
:type 'boolean
:group 'mh-show)
! (defcustom mh-summary-height nil
"*Number of lines in MH-Folder window (including the mode line)."
! :type '(choice (const :tag "Automatic" nil)
! (integer :tag "Fixed sized"))
:group 'mh-show)
! (defvar mh-visible-headers nil
! "*Regexp matching lines in a message header that are to be shown.
! Customize the variable `mh-visible-header-fields' to generate this variable;
! It will in turn automatically use the function `mh-visible-headers' to
! generate this variable.
Only used if `mh-clean-message-header-flag' is non-nil. Setting it overrides
! the variable `mh-invisible-headers'.")
!
! (defun mh-visible-headers ()
! "Make or remake the variable `mh-visible-headers'.
! Done using `mh-visible-header-fields' as input."
! (if mh-visible-header-fields
! (setq mh-visible-headers
! (concat
! "^"
! (let ((max-specpdl-size 1000) ;workaround for insufficient
default
! (fields mh-visible-header-fields))
! (regexp-opt fields t))))
! (setq mh-visible-headers nil)))
!
! (defcustom mh-visible-header-fields nil
! "*List of header fields that are to be shown.
! Regexps are not allowed. Unique fields should have a \":\" suffix; otherwise,
! the element can be used to render visible an entire class of fields that
! start with the same prefix.
! Only used if `mh-clean-message-header-flag' is non-nil.
! Setting it overrides the variable `mh-invisible-headers'."
! :type '(repeat (string :tag "Header field"))
! :set (lambda (symbol value)
! (set-default symbol value)
! (mh-visible-headers))
:group 'mh-show)
(defcustom mhl-formfile nil
***************
*** 1227,1232 ****
--- 1306,1328 ----
:type '(choice (const nil) function)
:group 'mh-letter)
+ (defcustom mh-compose-prompt-flag nil
+ "*Non-nil means prompt for header fields when composing a new draft."
+ :type 'boolean
+ :group 'mh-letter)
+
+ (defcustom mh-compose-skipped-header-fields
+ '("from" "organization" "references" "in-reply-to" "x-face" "face"
+ "x-mailer")
+ "List of header fields to skip over when navigating in draft."
+ :type '(repeat (string :tag "Field"))
+ :group 'mh-letter)
+
+ (defcustom mh-compose-space-does-completion-flag nil
+ "*Non-nil means that SPACE does completion in message header."
+ :type 'boolean
+ :group 'mh-letter)
+
(defcustom mh-delete-yanked-msg-window-flag nil
"*Non-nil means delete any window displaying the message.
Controls window display when a message is yanked by
\\<mh-letter-mode-map>\\[mh-yank-cur-msg].
***************
*** 1428,1433 ****
--- 1524,1556 ----
:type '(choice (boolean) (string))
:group 'mh-alias)
+ (defcustom mh-alias-local-users-prefix "local."
+ "*String prepended to the real names of users from the passwd file.
+ If nil, use the username string unmodified instead of the real name from
+ the gecos field of the passwd file.
+
+ For example, given the following passwd file line:
+
+ psg:x:1000:1000:Peter S Galbraith,,,:/home/psg:/bin/tcsh
+
+ here are the derived aliases for different values of this variable:
+
+ \"local.\" -> local.peter.galbraith
+ \"\" -> peter.galbraith
+ nii -> psg
+
+ This variable is only meaningful if the variable `mh-alias-local-users' is
+ non-nil."
+ :type '(choice (const :tag "Use username instead of real name" nil)
+ (string))
+ :group 'mh-alias)
+
+ (defcustom mh-alias-passwd-gecos-comma-separator-flag t
+ "*Non-nil means the gecos field in the passwd file uses comma as a
separator.
+ Used to construct aliases for users in the passwd file."
+ :type 'boolean
+ :group 'mh-alias)
+
(defcustom mh-alias-system-aliases
'("/etc/nmh/MailAliases" "/usr/lib/mh/MailAliases" "/etc/passwd")
"*A list of system files from which to cull aliases.
***************
*** 1442,1448 ****
;;; Multiple personalities (:group 'mh-identity)
! (defvar mh-identity-list ())
(defcustom mh-auto-fields-list nil
"Alist of addresses for which header lines are automatically inserted.
--- 1565,1616 ----
;;; Multiple personalities (:group 'mh-identity)
! (defcustom mh-identity-list nil
! "*List holding MH-E identity.
! Omit the colon and trailing space from the field names.
! The keyword name \"none\" is reserved for internal use.
! Use the keyname name \"signature\" to specify either a signature file or a
! function to call to insert a signature at point.
!
! Providing an empty Value (\"\") will cause the field to be deleted.
!
! Example entries using the customize interface:
! Keyword name: work
! From
! Value: John Doe <address@hidden>
! Organization
! Value: Acme Inc.
! Keyword name: home
! From
! Value: John Doe <address@hidden>
! Organization
! Value:
!
! This would produce the equivalent of:
! (setq mh-identity-list
! '((\"work\"
! ((\"From\" . \"John Doe <address@hidden>\")
! (\"Organization\" . \"Acme Inc.\")))
! (\"home\"
! ((\"From\" . \"John Doe <address@hidden>\")
! (\"Organization\" . \"\")))))"
! :type '(repeat (list :tag ""
! (string :tag "Keyword name")
! (repeat :tag "At least one pair from below"
! (choice (cons :tag "From field"
! (const "From")
! (string :tag "Value"))
! (cons :tag "Organization field"
! (const "Organization")
! (string :tag "Value"))
! (cons :tag "Signature"
! (const "signature")
! (choice (file) (function)))
! (cons :tag "Other field & value pair"
! (string :tag "Field")
! (string :tag "Value"))))))
! :set 'mh-identity-list-set
! :group 'mh-identity)
(defcustom mh-auto-fields-list nil
"Alist of addresses for which header lines are automatically inserted.
***************
*** 1491,1543 ****
(mapcar 'car mh-identity-list))))
:group 'mh-identity)
- (defcustom mh-identity-list nil
- "*List holding MH-E identity.
- Omit the colon and trailing space from the field names.
- The keyword name \"none\" is reversed for internal use.
- Use the keyname name \"signature\" to specify either a signature file or a
- function to call to insert a signature at point.
-
- Providing an empty Value (\"\") will cause the field to be deleted.
-
- Example entries using the customize interface:
- Keyword name: work
- From
- Value: John Doe <address@hidden>
- Organization
- Value: Acme Inc.
- Keyword name: home
- From
- Value: John Doe <address@hidden>
- Organization
- Value:
-
- This would produce the equivalent of:
- (setq mh-identity-list
- '((\"work\"
- ((\"From\" . \"John Doe <address@hidden>\")
- (\"Organization\" . \"Acme Inc.\")))
- (\"home\"
- ((\"From\" . \"John Doe <address@hidden>\")
- (\"Organization\" . \"\")))))"
- :type '(repeat (list :tag ""
- (string :tag "Keyword name")
- (repeat :tag "At least one pair from below"
- (choice (cons :tag "From field"
- (const "From")
- (string :tag "Value"))
- (cons :tag "Organization field"
- (const "Organization")
- (string :tag "Value"))
- (cons :tag "Signature"
- (const "signature")
- (choice (file) (function)))
- (cons :tag "Other field & value pair"
- (string :tag "Field")
- (string :tag "Value"))))))
- :set 'mh-identity-list-set
- :group 'mh-identity)
-
;;; Hooks (:group 'mh-hooks + group where hook defined)
--- 1659,1664 ----
***************
*** 1597,1602 ****
--- 1718,1740 ----
:group 'mh-hooks
:group 'mh-folder)
+ (defcustom mh-kill-folder-suppress-prompt-hook '(mh-index-p)
+ "Invoked at the beginning of the
\\<mh-folder-mode-map>`\\[mh-kill-folder]' command.
+ This hook is a list of functions to be called, with no arguments, which should
+ return a value of non-nil if you should not be asked if you're sure that you
+ want to remove the folder. This is useful for folders that are easily
+ regenerated.
+
+ The default value of `mh-index-p' suppresses the prompt on folders generated
+ by an index search.
+
+ WARNING: Use this hook with care. If there is a bug in your hook which returns
+ t on +inbox and you hit \\<mh-folder-mode-map>`\\[mh-kill-folder]' by accident
+ in the +inbox buffer, you will not be happy."
+ :type 'hook
+ :group 'mh-hooks
+ :group 'mh-folder)
+
(defcustom mh-letter-insert-signature-hook nil
"Invoked at the beginning of the
\\<mh-letter-mode-map>\\[mh-insert-signature] command.
Can be used to determine which signature file to use based on message content.
***************
*** 1917,1922 ****
--- 2055,2073 ----
"Face for highlighting folders in MH-Index buffers."
:group 'mh-index-faces)
+
+
+ ;;; Faces used when composing messages.
+
+ (defface mh-letter-header-field-face
+ '((((class color) (background light))
+ (:background "gray90"))
+ (((class color) (background dark))
+ (:background "gray10"))
+ (t (:bold t)))
+ "Face for displaying header fields in draft buffers."
+ :group 'mh-letter-faces)
+
;;; Local Variables:
;;; indent-tabs-mode: nil
;;; sentence-end-double-space: nil
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mh-e/mh-customize.el [emacs-unicode-2],
Miles Bader <=