--- gnus-art.el 2006-09-26 14:43:50.000000000 +0100 +++ gnus-art.el.7.196 2006-09-26 14:53:16.000000000 +0100 @@ -7499,24 +7499,18 @@ (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)) - (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)) + gnus-prev t + gnus-callback gnus-article-button-prev-page + article-type annotation)) (widget-convert-button - 'link b e + 'link b (if (bolp) + ;; Exclude a newline. + (1- (point)) + (point)) :action 'gnus-button-prev-page :button-keymap gnus-prev-page-map))) @@ -7538,23 +7532,17 @@ (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)) - (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)) + `(keymap ,gnus-next-page-map + gnus-next t + gnus-callback gnus-article-button-next-page + article-type annotation)) (widget-convert-button - 'link b e + 'link b (if (bolp) + ;; Exclude a newline. + (1- (point)) + (point)) :action 'gnus-button-next-page :button-keymap gnus-next-page-map)))