2006-09-27 Maxime Edouard Robert Froumentin <max@lapin-bleu.net>

	* gnus-art.el (gnus-insert-prev-page-button)
	(gnus-insert-next-page-button): Apply gnus-article-button-face.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2a30c63..23d7fd5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-27  Maxime Edouard Robert Froumentin  <max@lapin-bleu.net>
+
+       * gnus-art.el (gnus-insert-prev-page-button)
+       (gnus-insert-next-page-button): Apply gnus-article-button-face.
+
 2006-09-20  Maxime Edouard Robert Froumentin  <max@lapin-bleu.net>
 
        (gnus-insert-mime-button, gnus-insert-mime-security-button): Apply

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 4fabc21..bdf7298 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -7499,18 +7499,24 @@ specified by `gnus-button-alist'."
 
 (defun gnus-insert-prev-page-button ()
   (let ((b (point))
+        (e (point))
        (inhibit-read-only t))
     (gnus-eval-format
      gnus-prev-page-line-format nil
      `(keymap ,gnus-prev-page-map
-        gnus-prev t
-        gnus-callback gnus-article-button-prev-page
-        article-type annotation))
+              gnus-prev t
+               gnus-callback gnus-article-button-prev-page
+                article-type annotation))
+    (setq e 
+          (if (bolp)
+              ;; 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 (if (bolp)
-                ;; Exclude a newline.
-                (1- (point))
-              (point))
+     'link b e
      :action 'gnus-button-prev-page
      :button-keymap gnus-prev-page-map)))
 
@@ -7532,17 +7538,23 @@ specified by `gnus-button-alist'."
 
 (defun gnus-insert-next-page-button ()
   (let ((b (point))
+        (e (point))
        (inhibit-read-only t))
     (gnus-eval-format gnus-next-page-line-format nil
-                     `(keymap ,gnus-next-page-map
-                         gnus-next t
-                         gnus-callback gnus-article-button-next-page
-                         article-type annotation))
+                           `(keymap ,gnus-next-page-map
+                               gnus-next t
+                               gnus-callback gnus-article-button-next-page
+                               article-type annotation))
+    (setq e 
+          (if (bolp)
+              ;; 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 (if (bolp)
-                ;; Exclude a newline.
-                (1- (point))
-              (point))
+     'link b e
      :action 'gnus-button-next-page
      :button-keymap gnus-next-page-map)))