(mh-mml-tag-present-p): Update regexp to handle <mml> tags inserted by

Gnus gnus-summary-mail-forward (closes SF #1399307).

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 1f17d15500eaf0f589df83e8b162e7d4b151601e..651757cc378b253393ac5066833cd304b362c335 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -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 --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el
index f7377d80b2da4cda0fbb3b4723aa0011736aad0a..7336d7034eed3758e4d9de13213c4d2775d98d1a 100644 (file)
--- a/lisp/mh-e/mh-mime.el
+++ b/lisp/mh-e/mh-mime.el
@@ -693,7 +693,9 @@ the possible security methods (see `mh-mml-method-default')."
   (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)))
 
 \f