From: Reiner Steib <Reiner.Steib@gmx.de>
Date: Wed, 27 Sep 2006 12:22:48 +0000 (+0000)
Subject: (gnus-insert-prev-page-button)
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=b6175c95067a630c1ee50dc503fe5273e7621907

(gnus-insert-prev-page-button)
(gnus-insert-next-page-button): Simplify.  Reformat.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 23d7fd596..7501494d6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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)
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index bdf729886..3fa7e1236 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -7498,20 +7498,18 @@ specified by `gnus-button-alist'."
     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))
@@ -7537,19 +7535,17 @@ specified by `gnus-button-alist'."
     (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))