# HG changeset patch
# User Bill Wohler <wohler@newt.com>
# Date 1136658224 0
# Node ID 4aea781df851bd45deecc3ab2bd4500bc036d78f
# Parent  dfbba4e99c09002a9a974c5cb092f403858b4bf8
(mh-mml-tag-present-p): Update regexp to handle <mml> tags inserted by
Gnus gnus-summary-mail-forward (closes SF #1399307).

diff -r dfbba4e99c09 -r 4aea781df851 lisp/mh-e/ChangeLog
--- a/lisp/mh-e/ChangeLog	Sat Jan 07 15:12:32 2006 +0000
+++ b/lisp/mh-e/ChangeLog	Sat Jan 07 18:23:44 2006 +0000
@@ -1,3 +1,9 @@
+2006-01-07  Bill Wohler  <wohler@newt.com>
+
+	* 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  <mdb@gnu.org>
 
 	* mh-e.el (mh-delete-a-msg): Fix whitespace nit.
diff -r dfbba4e99c09 -r 4aea781df851 lisp/mh-e/mh-mime.el
--- a/lisp/mh-e/mh-mime.el	Sat Jan 07 15:12:32 2006 +0000
+++ b/lisp/mh-e/mh-mime.el	Sat Jan 07 18:23:44 2006 +0000
@@ -693,7 +693,9 @@
   (save-excursion
     (goto-char (point-min))
     (re-search-forward
-     "\\(<#part\\(.\\|\n\\)*>[ \n\t]*<#/part>\\|^<#secure.+>$\\)"
+     (concat
+      "\\(<#\\(mml\\|part\\)\\(.\\|\n\\)*>[ \n\t]*<#/\\(mml\\|part\\)>\\|"
+      "^<#secure.+>$\\)")
      nil t)))