Commit 3d7ca223 authored by Bill Wohler's avatar Bill Wohler

Upgraded to MH-E version 7.2.

See etc/MH-E-NEWS and lisp/mh-e/ChangeLog for details.
parent 6ed82072
2003-02-03 Bill Wohler <wohler@newt.com>
* MH-E-NEWS: Upgraded to MH-E version 7.2.
2003-01-31 Joe Buehler <jhpb@draco.hekimian.com> 2003-01-31 Joe Buehler <jhpb@draco.hekimian.com>
* MACHINES: Added Cygwin. * MACHINES: Added Cygwin.
......
* Changes in mh-e 7.1 * Changes in MH-E 7.2
This release includes the new features of filing hints, hierarchical
file name completion, indexed search and pick integration, unification
between `mh-visit-folder' and the speedbar, a displayed message
indicator, buffer name organization, support for mairix indexed
search, and last but not least, the MH-E logo has been added to the
mode line. Code that handles sequences and message regions runs
faster. Bugs have been fixed.
** New Features in MH-E 7.2
*** Filing Hints
When you file a message, MH-E now looks for an alias corresponding to
the address of the sender and offers that as a default folder (closes
SF #657096). The new variable `mh-default-folder-prefix' can be used
to put these folders in a sub-folder. The new variable
`mh-default-folder-must-exist-flag' means to suppress the suggested
folder (thereby providing the previous folder used) if the folder
doesn't already exist. The new variable `mh-default-folder-list' can
be used to map additional addresses and folders.
*** Hierarchical File Name Completion
When you completed filenames in the past, you were presented with a
list of all your folders at all depths in the tree. Now you are
presented with only one level at a time (closes SF #664821).
As a result, the variables `mh-auto-folder-collect-flag' and
`mh-folder-list-change-hook' are obsolete.
*** Indexed Search and Pick Integration
The indexed and pick searches have been integrated (closes SF
#664816). Both "F s (mh-search-folder)" and "F i (mh-index-search)"
use the pick template for forming queries. To submit the query, use
"C-c C-c (mh-do-search)" which will use the query method you selected.
If you change your mind while forming the query, you can use "C-c C-i
(mh-index-do-search)" or "C-c C-p (mh-pick-do-search)" to submit the
query using the respective method.
Second, the results from a pick search are now saved in a sub-folder
of +mhe-index like an indexed search.
Third, `pick' is now a valid choice for `mh-index-program'.
*** mh-visit-folder Metamorphosis Continues
When visiting a folder from the speedbar, only the unseen messages are
shown if there are unseen messages. If there aren't any unseen
messages, all of the messages are shown if there are fewer than
`mh-large-folder' messages; otherwise, the user is prompted for the
range of messages to display. The "F v (mh-visit-folder)" command has
been modified to mimic this behavior. Use a prefix arg to force the
message range prompt.
*** Displayed Message Indicator
In graphical Emacs, the message that is shown is marked by a triangle
in the fringe. In textual Emacs, there is a ">" in the first column
(closes SF #664824).
*** Buffer Name Organization
All ephemeral buffer names start with " *mh" while all interesting
buffers start with "*MH-E ". The "*Folders*", "*Sequences*", and
"*Recipients*" buffers were therefore renamed to "*MH-E Folders*",
"*MH-E Sequences*" and "*MH-E Recipients*" respectively (programmers
should see mh-utils.el for the names of the new constants). Also, the
output of MH commands is saved in the "*MH-E Log*" buffer.
*** mh-index-program
Add choices for `mairix' and `pick'.
*** Logo Displayed on Mode Line
** New Variables in MH-E 7.2
The new variables have been discussed elsewhere.
** Bug Fixes in MH-E 7.2
*** mh-decode-content-transfer-encoded-message
Messages that had been encoded with base64 were not decoded. This has
been fixed with this new function (closes SF #674190). As a result,
the variable `mh-decode-quoted-printable-flag' has been renamed to
`mh-decode-content-transfer-encoded-message-flag'.
*** mh-kill-folder
Now restores previous window configuration (closes SF #664828).
*** mh-mime-display
MH-E was not using the charset defined in the content-type
header. This meant that mail in a different charset would not
be properly displayed. This has been fixed (closes SF #655123).
*** mh-read-address
In XEmacs and Emacs20, this function would always prompt using "To: "
instead of using the command argument. This has been fixed (closes SF
#670913).
*** mh-rmail
Unseen messages are now shown in addition to new ones (closes SF
#667542).
*** mh-scan-msg-overflow-regexp
Change the variable so that a space is always maintained in the
beginning of the scan line.
*** mh-swish-execute-search
The example configuration file in the docstring didn't show the
backslash in the FileRules filename. If the example had been used
literally by the user, no files would be indexed! This has been fixed
(closes SF #665888).
*** mh-thread-refile
The "T o (mh-thread-refile)" command did not provide refiling hints
like `mh-refile-msg'. This has been fixed (closes SF #664829).
*** mh-toggle-threads
If the threaded view was modified and then toggled, the standard view
may not have been accurate (as it contained a potentially old first
message to last message range). This has been fixed (closes SF
#626117).
*** mh-tool-bar-show-set, mh-tool-bar-letter-set, mh-tool-bar-folder-set
Clicking the customize and help buttons now deletes the other windows
in the frame.
*** mh-version
The "M-x mh-version" command displayed "Aliasfile: aliases". This has
been fixed (closes SF #664467). See Buffer Name Organization above.
* Changes in MH-E 7.1
This release includes the new features of multiple identities and This release includes the new features of multiple identities and
alias completion. In addition, indexed searching has been revamped. alias completion. In addition, indexed searching has been revamped.
...@@ -204,7 +351,7 @@ changed (closes SF #643701). ...@@ -204,7 +351,7 @@ changed (closes SF #643701).
* Changes in mh-e 7.0 * Changes in MH-E 7.0
This is a major release which includes a lot of new features including This is a major release which includes a lot of new features including
improved MIME handling, speedbar folder browsing, and indexed improved MIME handling, speedbar folder browsing, and indexed
......
...@@ -95,7 +95,7 @@ You can now put the init files .emacs and .emacs_SHELL under ...@@ -95,7 +95,7 @@ You can now put the init files .emacs and .emacs_SHELL under
** MH-E changes. ** MH-E changes.
Upgraded to MH-E version 7.1. There have been major changes since Upgraded to MH-E version 7.2. There have been major changes since
version 5.0.2; see MH-E-NEWS for details. version 5.0.2; see MH-E-NEWS for details.
+++ +++
......
This diff is collapsed.
...@@ -91,6 +91,10 @@ ...@@ -91,6 +91,10 @@
;; `mh-alias-insert-file'). In particular, there is a tool-bar icon to grab ;; `mh-alias-insert-file'). In particular, there is a tool-bar icon to grab
;; an alias from the From line of the current message. ;; an alias from the From line of the current message.
;;; Change Log:
;; $Id: mh-alias.el,v 1.25 2003/01/27 04:16:47 wohler Exp $
;;; Code: ;;; Code:
(require 'mh-e) (require 'mh-e)
...@@ -283,7 +287,7 @@ Blind aliases or users from /etc/passwd are not expanded." ...@@ -283,7 +287,7 @@ Blind aliases or users from /etc/passwd are not expanded."
(multi-prompt "," nil prompt mh-alias-alist nil nil)) (multi-prompt "," nil prompt mh-alias-alist nil nil))
(t (t
(split-string (split-string
(completing-read "To: " mh-alias-alist nil nil) (completing-read prompt mh-alias-alist nil nil)
",")))))) ","))))))
(if (not mh-alias-expand-aliases-flag) (if (not mh-alias-expand-aliases-flag)
(mapconcat 'identity the-answer ", ") (mapconcat 'identity the-answer ", ")
...@@ -447,14 +451,14 @@ Set `mh-alias-insert-file' or set AliasFile in your .mh_profile file")) ...@@ -447,14 +451,14 @@ Set `mh-alias-insert-file' or set AliasFile in your .mh_profile file"))
(completing-read "Alias file [press Tab]: " (completing-read "Alias file [press Tab]: "
(mapcar 'list autolist) nil t)))))))) (mapcar 'list autolist) nil t))))))))
;;;###mh-autoload
(defun mh-alias-address-to-alias (address) (defun mh-alias-address-to-alias (address)
"Return the ADDRESS alias if defined, or nil." "Return the ADDRESS alias if defined, or nil."
(let* ((aliases (mh-alias-ali address t))) (let* ((aliases (mh-alias-ali address t)))
(if (string-equal aliases address) (if (string-equal aliases address)
nil ; ali returned same string -> no. nil ; ali returned same string -> no.
;; For the comma-separated aliases reyurned by ali, check that one of ;; Double-check that we have an individual alias. This means that the
;; them doesn't expand into a list. e.g. we do have an individual ;; alias doesn't expand into a list (of which this address is part).
;; alias for that adress.
(car (delq nil (mapcar (car (delq nil (mapcar
(function (function
(lambda (alias) (lambda (alias)
...@@ -501,7 +505,7 @@ after it." ...@@ -501,7 +505,7 @@ after it."
((string-match "^a" answer) ((string-match "^a" answer)
(forward-line 1)) (forward-line 1))
(t (t
error "Quitting.")))) (error "Quitting")))))
;; No, so sort-in at the right place ;; No, so sort-in at the right place
;; search for "^alias", then "^alia", etc. ;; search for "^alias", then "^alia", etc.
((eq mh-alias-insertion-location 'sorted) ((eq mh-alias-insertion-location 'sorted)
......
...@@ -30,7 +30,7 @@ ...@@ -30,7 +30,7 @@
;;; Change Log: ;;; Change Log:
;; $Id: mh-comp.el,v 1.26 2003/01/08 23:21:16 wohler Exp $ ;; $Id: mh-comp.el,v 1.173 2003/01/26 19:37:22 jchonig Exp $
;;; Code: ;;; Code:
...@@ -461,7 +461,7 @@ setting of the variable `mh-redist-full-contents'. See its documentation." ...@@ -461,7 +461,7 @@ setting of the variable `mh-redist-full-contents'. See its documentation."
"-component" "Resent:" "-component" "Resent:"
"-text" (format "\"%s %s\"" to cc)) "-text" (format "\"%s %s\"" to cc))
(if mh-redist-background (if mh-redist-background
(mh-exec-cmd-daemon "/bin/sh" "-c" (mh-exec-cmd-daemon "/bin/sh" nil "-c"
(format "mhdist=1 mhaltmsg=%s %s %s %s" (format "mhdist=1 mhaltmsg=%s %s %s %s"
(if mh-redist-full-contents (if mh-redist-full-contents
buffer-file-name buffer-file-name
...@@ -1038,12 +1038,18 @@ called, with no arguments, before the signature is actually inserted." ...@@ -1038,12 +1038,18 @@ called, with no arguments, before the signature is actually inserted."
(let ((file-name buffer-file-name)) (let ((file-name buffer-file-name))
(save-buffer) (save-buffer)
(message "Checking recipients...") (message "Checking recipients...")
(mh-in-show-buffer ("*Recipients*") (mh-in-show-buffer (mh-recipients-buffer)
(bury-buffer (current-buffer)) (bury-buffer (current-buffer))
(erase-buffer) (erase-buffer)
(mh-exec-cmd-output "whom" t file-name)) (mh-exec-cmd-output "whom" t file-name))
(message "Checking recipients...done"))) (message "Checking recipients...done")))
(defun mh-tidy-draft-buffer ()
"Run when a draft buffer is destroyed."
(let ((buffer (get-buffer mh-recipients-buffer)))
(if buffer
(kill-buffer buffer))))
;;; Routines to compose and send a letter. ;;; Routines to compose and send a letter.
...@@ -1067,20 +1073,29 @@ The versions of MH-E, Emacs, and MH are shown." ...@@ -1067,20 +1073,29 @@ The versions of MH-E, Emacs, and MH are shown."
;; Lazily initialize mh-x-mailer-string. ;; Lazily initialize mh-x-mailer-string.
(when (null mh-x-mailer-string) (when (null mh-x-mailer-string)
(save-window-excursion (save-window-excursion
(mh-version) ;; User would be confused if version info buffer disappeared magically,
(set-buffer mh-temp-buffer) ;; so don't delete buffer if it already existed.
(if mh-nmh-flag (let ((info-buffer-exists-p (get-buffer mh-info-buffer)))
(search-forward-regexp "^nmh-\\(\\S +\\)") (mh-version)
(search-forward-regexp "^MH \\(\\S +\\)" nil t)) (set-buffer mh-info-buffer)
(let ((x-mailer-mh (buffer-substring (match-beginning 1) (match-end 1)))) (if mh-nmh-flag
(setq mh-x-mailer-string (search-forward-regexp "^nmh-\\(\\S +\\)")
(format "MH-E %s; %s %s; %s %d.%d" (search-forward-regexp "^MH \\(\\S +\\)" nil t))
mh-version (if mh-nmh-flag "nmh" "MH") x-mailer-mh (let ((x-mailer-mh (buffer-substring (match-beginning 1)
(if mh-xemacs-flag (match-end 1))))
"XEmacs" (setq mh-x-mailer-string
"Emacs") (format "MH-E %s; %s %s; %sEmacs %s"
emacs-major-version emacs-minor-version))) mh-version (if mh-nmh-flag "nmh" "MH") x-mailer-mh
(kill-buffer mh-temp-buffer))) (if mh-xemacs-flag "X" "GNU ")
(cond ((not mh-xemacs-flag) emacs-version)
((string-match "[0-9.]*\\( +\([ a-z]+[0-9]+\)\\)?"
emacs-version)
(match-string 0 emacs-version))
(t (format "%s.%s"
emacs-major-version
emacs-minor-version))))))
(if (not info-buffer-exists-p)
(kill-buffer mh-info-buffer)))))
;; Insert X-Mailer, but only if it doesn't already exist. ;; Insert X-Mailer, but only if it doesn't already exist.
(save-excursion (save-excursion
(when (null (mh-goto-header-field "X-Mailer")) (when (null (mh-goto-header-field "X-Mailer"))
...@@ -1152,7 +1167,9 @@ CONFIG is the window configuration to restore after sending the letter." ...@@ -1152,7 +1167,9 @@ CONFIG is the window configuration to restore after sending the letter."
(setq mh-annotate-char annotate-char) (setq mh-annotate-char annotate-char)
(setq mh-annotate-field annotate-field) (setq mh-annotate-field annotate-field)
(setq mh-previous-window-config config) (setq mh-previous-window-config config)
(setq mode-line-buffer-identification (list "{%b}")) (setq mode-line-buffer-identification (list " {%b}"))
(mh-logo-display)
(add-hook 'kill-buffer-hook 'mh-tidy-draft-buffer nil t)
(if (and (boundp 'mh-compose-letter-function) (if (and (boundp 'mh-compose-letter-function)
mh-compose-letter-function) mh-compose-letter-function)
;; run-hooks will not pass arguments. ;; run-hooks will not pass arguments.
...@@ -1223,7 +1240,7 @@ Insert X-Face field if the file specified by `mh-x-face-file' exists." ...@@ -1223,7 +1240,7 @@ Insert X-Face field if the file specified by `mh-x-face-file' exists."
(recenter -1) (recenter -1)
(set-buffer draft-buffer)) ; for annotation below (set-buffer draft-buffer)) ; for annotation below
(t (t
(mh-exec-cmd-daemon mh-send-prog "-nodraftfolder" "-noverbose" (mh-exec-cmd-daemon mh-send-prog nil "-nodraftfolder" "-noverbose"
mh-send-args file-name))) mh-send-args file-name)))
(if mh-annotate-char (if mh-annotate-char
(mh-annotate-msg mh-sent-from-msg (mh-annotate-msg mh-sent-from-msg
......
...@@ -55,15 +55,21 @@ ...@@ -55,15 +55,21 @@
;;; Change Log: ;;; Change Log:
;; $Id: mh-customize.el,v 1.1 2003/01/08 23:21:16 wohler Exp $ ;; $Id: mh-customize.el,v 1.30 2003/02/02 17:28:50 wohler Exp $
;;; Code: ;;; Code:
(provide 'mh-customize)
(require 'mh-e)
;;;###mh-autoload ;;;###mh-autoload
(defun mh-customize () (defun mh-customize (&optional delete-other-windows-flag)
"Customize MH-E variables." "Customize MH-E variables.
(interactive) With optional argument DELETE-OTHER-WINDOWS-FLAG, other windows in the frame
(customize-group 'mh)) are removed."
(interactive "P")
(customize-group 'mh)
(when delete-other-windows-flag
(delete-other-windows)))
;;; MH-E Customization Groups ;;; MH-E Customization Groups
...@@ -326,13 +332,14 @@ See `mh-search-folder' and `mh-index-search' for details." ...@@ -326,13 +332,14 @@ See `mh-search-folder' and `mh-index-search' for details."
(if (member mh-tool-bar-item-prefs mh-tool-bar-folder-buttons) (if (member mh-tool-bar-item-prefs mh-tool-bar-folder-buttons)
(tool-bar-add-item "preferences" (lambda () (tool-bar-add-item "preferences" (lambda ()
(interactive) (interactive)
(customize-group "mh")) (mh-customize t))
'mh-showtoolbar-customize 'mh-showtoolbar-customize
:help mh-tool-bar-item-prefs)) :help mh-tool-bar-item-prefs))
(if (member mh-tool-bar-item-help mh-tool-bar-folder-buttons) (if (member mh-tool-bar-item-help mh-tool-bar-folder-buttons)
(tool-bar-add-item "help" (lambda () (tool-bar-add-item "help" (lambda ()
(interactive) (interactive)
(Info-goto-node "(mh-e)Top")) (Info-goto-node "(mh-e)Top")
(delete-other-windows))
'mh-showtoolbar-help 'mh-showtoolbar-help
:help mh-tool-bar-item-help)) :help mh-tool-bar-item-help))
tool-bar-map)))) tool-bar-map))))
...@@ -373,13 +380,14 @@ See `mh-search-folder' and `mh-index-search' for details." ...@@ -373,13 +380,14 @@ See `mh-search-folder' and `mh-index-search' for details."
(if (member mh-tool-bar-item-comp-prefs mh-tool-bar-letter-buttons) (if (member mh-tool-bar-item-comp-prefs mh-tool-bar-letter-buttons)
(tool-bar-add-item "preferences" (lambda () (tool-bar-add-item "preferences" (lambda ()
(interactive) (interactive)
(customize-group "mh-compose")) (mh-customize t))
'mh-lettertoolbar-customize 'mh-lettertoolbar-customize
:help mh-tool-bar-item-comp-prefs)) :help mh-tool-bar-item-comp-prefs))
(if (member mh-tool-bar-item-help mh-tool-bar-letter-buttons) (if (member mh-tool-bar-item-help mh-tool-bar-letter-buttons)
(tool-bar-add-item "help" (lambda () (tool-bar-add-item "help" (lambda ()
(interactive) (interactive)
(Info-goto-node "(mh-e)Draft Editing")) (Info-goto-node "(mh-e)Draft Editing")
(delete-other-windows))
'mh-lettertoolbar-help 'mh-lettertoolbar-help
:help mh-tool-bar-item-help)) :help mh-tool-bar-item-help))
tool-bar-map)))) tool-bar-map))))
...@@ -485,13 +493,14 @@ See `mh-search-folder' and `mh-index-search' for details." ...@@ -485,13 +493,14 @@ See `mh-search-folder' and `mh-index-search' for details."
(if (member mh-tool-bar-item-prefs mh-tool-bar-folder-buttons) (if (member mh-tool-bar-item-prefs mh-tool-bar-folder-buttons)
(tool-bar-add-item "preferences" (lambda () (tool-bar-add-item "preferences" (lambda ()
(interactive) (interactive)
(customize-group "mh")) (mh-customize t))
'mh-foldertoolbar-customize 'mh-foldertoolbar-customize
:help mh-tool-bar-item-prefs)) :help mh-tool-bar-item-prefs))
(if (member mh-tool-bar-item-help mh-tool-bar-folder-buttons) (if (member mh-tool-bar-item-help mh-tool-bar-folder-buttons)
(tool-bar-add-item "help" (lambda () (tool-bar-add-item "help" (lambda ()
(interactive) (interactive)
(Info-goto-node "(mh-e)Top")) (Info-goto-node "(mh-e)Top")
(delete-other-windows))
'mh-foldertoolbar-help 'mh-foldertoolbar-help
:help mh-tool-bar-item-help)) :help mh-tool-bar-item-help))
tool-bar-map)) tool-bar-map))
...@@ -631,6 +640,8 @@ be updated manually with the \\[mh-speed-flists] command." ...@@ -631,6 +640,8 @@ be updated manually with the \\[mh-speed-flists] command."
:type 'boolean :type 'boolean
:group 'mh-speed) :group 'mh-speed)
;;; Options for controlling scan listing (:group 'mh-folder) ;;; Options for controlling scan listing (:group 'mh-folder)
(defcustom mh-adaptive-cmd-note-flag t (defcustom mh-adaptive-cmd-note-flag t
...@@ -646,13 +657,37 @@ If you prefer fixed-width message numbers, set this variable to nil and call ...@@ -646,13 +657,37 @@ If you prefer fixed-width message numbers, set this variable to nil and call
:type 'boolean :type 'boolean
:group 'mh-folder) :group 'mh-folder)
(defcustom mh-auto-folder-collect-flag t (defcustom mh-default-folder-list nil
"*Non-nil means to collect all folder names at startup in the background. "*Alist of addresses and folders.
Otherwise, the internal list of folder names is built as folders are When refiling messages, these folders are the default that is provided if the
referenced." sender has the associated address. You do not need to list your aliases here
as that lookup is already performed.
See `mh-prompt-for-refile-folder' and `mh-folder-from-address' for more
information."
:type '(repeat (list (string :tag "Address")
(string :tag "Folder")))
:group 'mh-folder)
(defcustom mh-default-folder-must-exist-flag t
"*Non-nil means guessed folder name must exist to be used.
If this variable is t, then the guessed name is only used if the folder
already exists\; if the folder doesn't exist, then the last folder name used
is suggested. This is useful if you get mail from various people for whom you
have an alias, but file them all in the same project folder.
See `mh-prompt-for-refile-folder' and `mh-folder-from-address' for more
information."
:type 'boolean :type 'boolean
:group 'mh-folder) :group 'mh-folder)
(defcustom mh-default-folder-prefix ""
"*Prefix used for guessed folder names.
This can be used to put folders associated with your aliases in a sub-folder
so as to not clutter your mail directory.
See `mh-prompt-for-refile-folder' and `mh-folder-from-address' for more
information."
:type 'string
:group 'mh-folder)
(defcustom mh-inc-prog "inc" (defcustom mh-inc-prog "inc"
"*Program to run to incorporate new mail into a folder. "*Program to run to incorporate new mail into a folder.
Normally \"inc\". This file is searched for relative to Normally \"inc\". This file is searched for relative to
...@@ -742,6 +777,8 @@ display MIME content using \"M-! mhshow RET\"" ...@@ -742,6 +777,8 @@ display MIME content using \"M-! mhshow RET\""
:type 'boolean :type 'boolean
:group 'mh-folder) :group 'mh-folder)
;;; Message display (:group 'mh-show) ;;; Message display (:group 'mh-show)
(defcustom mh-bury-show-buffer-flag t (defcustom mh-bury-show-buffer-flag t
...@@ -761,18 +798,18 @@ what is removed." ...@@ -761,18 +798,18 @@ what is removed."
:type 'boolean :type 'boolean
:group 'mh-show) :group 'mh-show)
(defcustom mh-decode-quoted-printable-flag (defcustom mh-decode-content-transfer-encoded-message-flag
(not (null (and (fboundp 'executable-find)(executable-find "mimedecode")))) (and (fboundp 'executable-find) (executable-find "mimencode") t)
"Non-nil means decode quoted-printable MIME part with `mimedecode'. "Non-nil means decode messages with `mimencode', if necessary.
Quoted-printable message parts are translated to 8-bit characters by the Messages which are encoded as quoted-printable or base64 are translated into
`mimedecode' command. However, unless there is only one quoted-printable body 8-bit characters by the `mimencode' command.
part, Gnus will have already decoded the quoted-printable parts.
This variable is initialized t if `mimedecode' is available. This variable is initialized to t if `mimencode' is available.
The source code for `mimedecode' can be obtained from The `mimencode' program is part of the metamail package. The source can be
http://www.freesoft.org/CIE/FAQ/mimedeco.c." obtained from
ftp://thumper.bellcore.com/pub/nsb/"
:type 'boolean :type 'boolean
:group 'mh-show) :group 'mh-show)
...@@ -812,7 +849,7 @@ list. The setting only has effect if `mh-decode-mime-flag' is non-nil." ...@@ -812,7 +849,7 @@ list. The setting only has effect if `mh-decode-mime-flag' is non-nil."
(defcustom mh-highlight-citation-p 'gnus (defcustom mh-highlight-citation-p 'gnus
"How to highlight citations in show buffers. "How to highlight citations in show buffers.
The gnus method uses a different color for each indentation." The gnus method uses a different color for each indentation."
:type '(choice (const :tag "Use gnus" gnus) :type '(choice (const :tag "Use Gnus" gnus)
(const :tag "Use font-lock" font-lock) (const :tag "Use font-lock" font-lock)
(const :tag "Don't fontify" nil)) (const :tag "Don't fontify" nil))
:group 'mh-show) :group 'mh-show)
...@@ -906,12 +943,11 @@ Done using `mh-invisible-header-fields' as input." ...@@ -906,12 +943,11 @@ Done using `mh-invisible-header-fields' as input."
(setq mh-invisible-headers (setq mh-invisible-headers
(concat (concat
"^" "^"
(let ((max-specpdl-size 1000)) ;workaround for insufficient default (let ((max-specpdl-size 1000) ;workaround for insufficient default
(regexp-opt (fields (append (if (not mh-show-use-xface-flag)
(append '("X-Face: "))
(if (not mh-show-use-xface-flag) mh-invisible-header-fields)))