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

[Bill Wohler]

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

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

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-mime.el.diff?tr1=1.35&tr2=1.36&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/mh-mime.el
diff -u emacs/lisp/mh-e/mh-mime.el:1.35 emacs/lisp/mh-e/mh-mime.el:1.36
--- emacs/lisp/mh-e/mh-mime.el:1.35     Wed Jan  4 02:08:12 2006
+++ emacs/lisp/mh-e/mh-mime.el  Sat Jan  7 18:23:44 2006
@@ -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)))