Changes committed gnus/lisp (ChangeLog mm-uu.el)

Modified: ChangeLog 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.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1760 gnus/lisp/ChangeLog:7.1761
--- ChangeLog:7.1760	Tue Feb 26 22:42:09 2008
+++ ChangeLog	Wed Feb 27 23:22:47 2008
@@ -1,3 +1,9 @@
+2008-02-27  Reiner Steib  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* nnmairix.el: New file.  Mairix back end for Gnus.  Initial import of
Index: mm-uu.el
diff -u gnus/lisp/mm-uu.el:7.54 gnus/lisp/mm-uu.el:7.55
--- mm-uu.el:7.54	Sun Jan 20 06:23:57 2008
+++ mm-uu.el	Wed Feb 27 23:22:47 2008
@@ -167,7 +167,7 @@
      ;; 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 @@
   :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"