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

(mh-mml-tag-present-p): Update regexp to handle <mml> tags inserted by Gnus gnus-summary-mail-forward (closes SF #1399307).

68082:dfbba4e99c09

(defun mh-mml-tag-present-p ()
  "Check if the current buffer has text which may be a MML tag."
  (save-excursion
    (goto-char (point-min))
    (re-search-forward
     "\\(<#part\\(.\\|\n\\)*>[ \n\t]*<#/part>\\|^<#secure.+>$\\)"
     nil t)))



;;; MIME cleanup

68083:4aea781df851

(defun mh-mml-tag-present-p ()
  "Check if the current buffer has text which may be a MML tag."
  (save-excursion
    (goto-char (point-min))
    (re-search-forward
     (concat
      "\\(<#\\(mml\\|part\\)\\(.\\|\n\\)*>[ \n\t]*<#/\\(mml\\|part\\)>\\|"
      "^<#secure.+>$\\)")
     nil t)))



;;; MIME cleanup