+2006-09-27 Reiner Steib <Reiner.Steib@gmx.de>
+
+ * gnus-art.el (gnus-insert-prev-page-button)
+ (gnus-insert-next-page-button): Simplify. Reformat.
+
2006-09-27 Maxime Edouard Robert Froumentin <max@lapin-bleu.net>
* gnus-art.el (gnus-insert-prev-page-button)
map))
(defun gnus-insert-prev-page-button ()
- (let ((b (point))
- (e (point))
+ (let ((b (point)) e
(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)))
+ 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))
(select-window win)))
(defun gnus-insert-next-page-button ()
- (let ((b (point))
- (e (point))
+ (let ((b (point)) e
(inhibit-read-only t))
(gnus-eval-format gnus-next-page-line-format nil
- `(keymap ,gnus-next-page-map
+ `(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)))
+ (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))