Importing pgnus-0.57

[elisp/gnus.git-] / lisp / mml.el

diff --git a/lisp/mml.el b/lisp/mml.el
index a7f7ffc..6eaf391 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -97,10 +97,12 @@
     ;; If the tag ended at the end of the line, we go to the next line.
     (when (looking-at "[ \t]*\n")
       (forward-line 1))
-    (if (re-search-forward "<#/?\\(multipart\\|part\\|external\\)." nil t)
+    (if (re-search-forward
+        "<#\\(/\\)?\\(multipart\\|part\\|external\\)." nil t)
        (prog1
            (buffer-substring beg (match-beginning 0))
-         (if (equal (match-string 0) "<#/multipart>")
+         (if (or (not (match-beginning 1))
+                 (equal (match-string 2) "multipart"))
              (goto-char (match-beginning 0))
            (when (looking-at "[ \t]*\n")
              (forward-line 1))))