Mercurial > emacs
changeset 68083:4aea781df851
(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 | dfbba4e99c09 |
| children | 9b969687ff7c |
| files | lisp/mh-e/ChangeLog lisp/mh-e/mh-mime.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)))