From 98b7b7edd50fd33ee57fe77995b2ea8af5b5594e Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Sat, 7 Jan 2006 18:23:44 +0000 Subject: [PATCH] (mh-mml-tag-present-p): Update regexp to handle tags inserted by Gnus gnus-summary-mail-forward (closes SF #1399307). --- lisp/mh-e/ChangeLog | 6 ++++++ lisp/mh-e/mh-mime.el | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 1f17d15500e..651757cc378 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,9 @@ +2006-01-07 Bill Wohler + + * mh-mime.el (mh-mml-tag-present-p): Update regexp to handle + tags inserted by Gnus gnus-summary-mail-forward (closes SF + #1399307). + 2006-01-03 Mark D. Baushke * 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 f7377d80b2d..7336d7034ee 100644 --- 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))) -- 2.39.2