Mercurial > emacs
diff lisp/gnus/mm-uu.el @ 92359:1af6d6eab2e9
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1089
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 01 Mar 2008 01:28:14 +0000 |
| parents | 5f827896103e |
| children | ca2ba2a312f0 |
line wrap: on
line diff
--- a/lisp/gnus/mm-uu.el Sat Mar 01 00:26:22 2008 +0000 +++ b/lisp/gnus/mm-uu.el Sat Mar 01 01:28:14 2008 +0000 @@ -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.1" ;; 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"