(mm-uu-tex-groups-regexp): New variable.

(mm-uu-latex-extract, mm-uu-latex-test): New functions.
(mm-uu-type-alist): Added LaTeX documents.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3df580d..d82e4f6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,9 @@
        (mm-uu-diff-groups-regexp): Change default value.
        (mm-uu-type-alist): Added doc string.
        (mm-uu-configure): Added doc string.  Make it interactive.
+       (mm-uu-tex-groups-regexp): New variable.
+       (mm-uu-latex-extract, mm-uu-latex-test): New functions.
+       (mm-uu-type-alist): Added LaTeX documents.
 
        * message.el (message-mark-inserted-region)
        (message-mark-insert-file): Use slrn style marks when called with

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index d81b2f9..1854ca0 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -92,7 +92,7 @@ This can be either \"inline\" or \"attachment\".")
 
 (defcustom mm-uu-tex-groups-regexp "\\.tex\\>"
   "*Regexp matching TeX groups."
-  :version "22.1"
+  :version "23.0"
   :type 'regexp
   :group 'gnus-article-mime)
 
@@ -170,7 +170,13 @@ This can be either \"inline\" or \"attachment\".")
      "^#v\\+$"
      "^#v\\-$"
      mm-uu-verbatim-marks-extract
-     nil))
+     nil)
+    (LaTeX
+     "^\\\\documentclass"
+     "^\\\\end{document}"
+     mm-uu-latex-extract
+     nil
+     mm-uu-latex-test))
   "A list of specifications for non-MIME attachments.
 Each element consist of the following entries: label,
 start-regexp, end-regexp, extract-function, test-function.
@@ -306,7 +312,13 @@ apply the face `mm-uu-extract'."
     (progn (goto-char start-point) (forward-line) (point))
     (progn (goto-char end-point) (forward-line -1) (point))
     t)
-   '("text/verbatim" (charset . gnus-decoded))))
+   '("text/x-gnus-verbatim" (charset . gnus-decoded))))
+
+(defun mm-uu-latex-extract ()
+  (mm-make-handle
+   (mm-uu-copy-to-buffer start-point end-point t)
+   ;; application/x-tex?
+   '("text/x-gnus-verbatim" (charset . gnus-decoded))))
 
 (defun mm-uu-emacs-sources-extract ()
   (mm-make-handle (mm-uu-copy-to-buffer start-point end-point)
@@ -333,6 +345,11 @@ apply the face `mm-uu-extract'."
        mm-uu-diff-groups-regexp
        (string-match mm-uu-diff-groups-regexp gnus-newsgroup-name)))
 
+(defun mm-uu-latex-test ()
+  (and gnus-newsgroup-name
+       mm-uu-tex-groups-regexp
+       (string-match mm-uu-tex-groups-regexp gnus-newsgroup-name)))
+
 (defun mm-uu-forward-extract ()
   (mm-make-handle (mm-uu-copy-to-buffer
                   (progn (goto-char start-point) (forward-line) (point))