(mm-uu-type-alist): Fix message-marks non-hide arguments.

(mm-uu-extract): Improve face for low color ttys.  Reported by Sascha
Wilde.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7765e7d..7280912 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-02-27  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * mm-uu.el (mm-uu-type-alist): Fix message-marks non-hide arguments.
+       (mm-uu-extract): Improve face for low color ttys.  Reported by Sascha
+       Wilde.
+
 2008-02-26  David Engster  <dengste@eml.cc>
 
        * nnmairix.el: New file.  Mairix back end for Gnus.  Initial import of

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index 904e69b..d6a7556 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -167,7 +167,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 -1))
+     (lambda () (mm-uu-verbatim-marks-extract -1 0 1 -1))
      nil)
     ;; Omitting [a-z8<] leads to false positives (bogus signature separators
     ;; and mailing list banners).
@@ -248,11 +248,19 @@ The value should be nil on displays where the face
   :version "23.0" ;; No Gnus
   :group 'gnus-article-mime)
 
-(defface mm-uu-extract '(;; Colors from `gnus-cite-3' plus background:
+(defface mm-uu-extract '(;; Inspired by `gnus-cite-3'
+                        (((type tty)
+                          (class color)
+                          (background dark))
+                         (:background "dark blue"))
                         (((class color)
                           (background dark))
                          (:foreground "light yellow"
                           :background "dark green"))
+                        (((type tty)
+                          (class color)
+                          (background light))
+                         (:foreground "dark blue"))
                         (((class color)
                           (background light))
                          (:foreground "dark green"