[Emacs-commit] emacs/lisp/mh-e mh-e.el ChangeLog

[Bill Wohler]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Bill Wohler <address@hidden>    06/01/07 18:16:43

Modified files:
        lisp/mh-e      : mh-e.el ChangeLog 

Log message:
        (mh-mml-tag-present-p): Update regexp to handle <mml> tags inserted by
        Gnus gnus-summary-mail-forward (closes SF #1399307).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-e.el.diff?tr1=1.48&tr2=1.49&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.96&tr2=1.97&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.96 emacs/lisp/mh-e/ChangeLog:1.97
--- emacs/lisp/mh-e/ChangeLog:1.96      Wed Jan  4 02:39:30 2006
+++ emacs/lisp/mh-e/ChangeLog   Sat Jan  7 18:16:43 2006
@@ -1,3 +1,9 @@
+2006-01-07  Bill Wohler  <address@hidden>
+
+       * mh-mime.el (mh-mml-tag-present-p): Update regexp to handle <mml>
+       tags inserted by Gnus gnus-summary-mail-forward (closes SF
+       #1399307).
+
 2006-01-03  Mark D. Baushke  <address@hidden>
 
        * mh-e.el (mh-delete-a-msg): Fix whitespace nit.
Index: emacs/lisp/mh-e/mh-e.el
diff -u emacs/lisp/mh-e/mh-e.el:1.48 emacs/lisp/mh-e/mh-e.el:1.49
--- emacs/lisp/mh-e/mh-e.el:1.48        Wed Jan  4 02:39:30 2006
+++ emacs/lisp/mh-e/mh-e.el     Sat Jan  7 18:16:43 2006
@@ -51,7 +51,9 @@
 
 ;; MH-E is an Emacs interface to the MH mail system.
 
-;; MH-E is supported in GNU Emacs 20 and 21, with MH 6.8.4 and nmh 1.0.4.
+;; MH-E is supported in GNU Emacs 21 and 22 as well as XEmacs 21
+;; (except for versions 21.5.9-21.5.16), with MH 6.8.4 on, nmh 1.0.4
+;; on, and GNU mailutils 0.4 on.
 
 ;; Mailing Lists:
 ;;   address@hidden
@@ -1913,10 +1915,7 @@
 (defun mh-colors-available-p ()
   "Check if colors are available in the Emacs being used."
   (or mh-xemacs-flag
-      (let ((color-cells
-             (or (ignore-errors (mh-funcall-if-exists display-color-cells))
-                 (ignore-errors (mh-funcall-if-exists
-                                 x-display-color-cells)))))
+      (let ((color-cells (mh-display-color-cells)))
         (and (numberp color-cells) (>= color-cells 8)))))
 
 (defun mh-colors-in-use-p ()