From bc689665d5d8c477d075b5b1c433ad05d7fe78da Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Wed, 27 Feb 2008 22:22:47 +0000 Subject: [PATCH] (mm-uu-type-alist): Fix message-marks non-hide arguments. (mm-uu-extract): Improve face for low color ttys. Reported by Sascha Wilde. --- lisp/ChangeLog | 6 ++++++ lisp/mm-uu.el | 12 ++++++++++-- 2 files changed, 16 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7765e7d15..7280912eb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-02-27 Reiner Steib + + * 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 * 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 904e69bff..d6a755665 100644 --- 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" -- 2.25.1