From 09121ae96684c76ba427e3561fd803ca3bb4e443 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Wed, 20 Sep 2006 16:24:44 +0000 Subject: [PATCH] 2006-09-20 Maxime Edouard Robert Froumentin (gnus-insert-mime-button, gnus-insert-mime-security-button): Apply gnus-article-button-face to MIME and security buttons. --- lisp/ChangeLog | 5 +++++ lisp/gnus-art.el | 6 ++++++ 2 files changed, 11 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ee7a6f288..2a30c637f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-09-20 Maxime Edouard Robert Froumentin + + (gnus-insert-mime-button, gnus-insert-mime-security-button): Apply + gnus-article-button-face to MIME and security buttons. + 2006-09-20 Reiner Steib * gnus-art.el (gnus-button-url-regexp): Try to make the value more diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index bfa3a8d3b..4fabc2121 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -5171,6 +5171,9 @@ N is the numerical prefix." ;; Exclude a newline. (1- (point)) (point))) + (when gnus-article-button-face + (gnus-overlay-put (gnus-make-overlay b e) + 'face gnus-article-button-face)) (widget-convert-button 'link b e :mime-handle handle @@ -7924,6 +7927,9 @@ For example: ;; Exclude a newline. (1- (point)) (point))) + (when gnus-article-button-face + (gnus-overlay-put (gnus-make-overlay b e) + 'face gnus-article-button-face)) (widget-convert-button 'link b e :mime-handle handle -- 2.25.1