Mercurial > emacs

diff lisp/mh-e/mh-mime.el @ 68083:4aea781df851

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mh-mml-tag-present-p): Update regexp to handle <mml> tags inserted by Gnus gnus-summary-mail-forward (closes SF #1399307).
author Bill Wohler <wohler@newt.com>
date Sat, 07 Jan 2006 18:23:44 +0000
parents bbc0e52abce5
children 57c4e7929f99
line wrap: on
line diff
--- 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)))