(mm-uu-type-alist): Fix previous message-marks commit.

Improve LaTeX.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9189655..83f1dcd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-01-12  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * mm-uu.el (mm-uu-type-alist): Fix previous message-marks commit.
+       Improve LaTeX.
+
 2006-01-10  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * nnrss.el (nnrss-wash-html-in-text-plain-parts): New variable.

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index f43300a..cf32682 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -170,7 +170,7 @@ This can be either \"inline\" or \"attachment\".")
      ;; dependency on `message.el'.
      "^-+[8<>]*-\\{9,\\}[a-z ]+-\\{9,\\}[a-z ]+-\\{9,\\}[8<>]*-+$"
      "^-+[8<>]*-\\{9,\\}[a-z ]+-\\{9,\\}[a-z ]+-\\{9,\\}[8<>]*-+$"
-     (lambda () (mm-uu-verbatim-marks-extract 0 -1 1 -2))
+     (lambda () (mm-uu-verbatim-marks-extract 0 -1 1 -1))
      nil)
     ;; Omitting [a-z8<] leads to false positives (bogus signature separators
     ;; and mailing list banners).
@@ -187,7 +187,7 @@ This can be either \"inline\" or \"attachment\".")
      (lambda () (mm-uu-verbatim-marks-extract 0 0 1 -1))
      nil)
     (LaTeX
-     "^\\\\documentclass"
+     "^\\(\\\\[^\n]+\n\\)*\\\\documentclass"
      "^\\\\end{document}"
      mm-uu-latex-extract
      nil