From: yamaoka <yamaoka>
Date: Thu, 5 Oct 2000 13:10:39 +0000 (+0000)
Subject: * gnus.el (gnus-group-startup-message): Don't use `gnus-point-at-eol'.
X-Git-Tag: t-gnus-6_14_5-06~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3dc5e2d5d71836c96845fd588d1bfe6a2e296864;p=elisp%2Fgnus.git-

* gnus.el (gnus-group-startup-message): Don't use `gnus-point-at-eol'.
* gnus-xmas.el (gnus-xmas-group-startup-message): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index da442c7..50cb7dd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,12 @@
+2000-10-05  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/gnus-xmas.el (gnus-xmas-group-startup-message): Don't use
+	`gnus-point-at-eol'.
+	* lisp/gnus.el (gnus-group-startup-message): Ditto.
+
 2000-10-04  Akihiro Arisawa  <ari@atesoft.advantest.co.jp>
 
-	* gnus-sum.el (gnus-build-sparse-threads): Use
+	* lisp/gnus-sum.el (gnus-build-sparse-threads): Use
 	`make-full-mail-header-from-decoded-header' instead of
 	`make-full-mail-header'.
 
diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 0e79431..dc01c28 100644
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -617,10 +617,11 @@ the resulting string may be narrower than END-COLUMN.
 		(concat " (r" gnus-revision-number ")"))
 	      " based on " gnus-original-product-name " v"
 	      gnus-original-version-number "\n")
-      (goto-char (point-min))
-      (put-text-property (point) (gnus-point-at-eol) 'face 'gnus-splash-face)
-      (insert-char ?\ ; space
-		   (max 0 (/ (- (window-width) (gnus-point-at-eol)) 2)))
+      (end-of-line 0)
+      (put-text-property (point-min) (point) 'face 'gnus-splash-face)
+      (insert-char ?\  (prog1
+			   (max 0 (/ (- (window-width) (point)) 2))
+			 (goto-char (point-min))))
       (forward-line 1)
       (insert-char ?\n rest)
       (set-window-start (selected-window) (point-min))))
@@ -653,9 +654,9 @@ the resulting string may be narrower than END-COLUMN.
 	      (concat " (r" gnus-revision-number ")"))
 	    " based on " gnus-original-product-name " v"
 	    gnus-original-version-number)
-    (goto-char (point-min))
-    (insert-char ?\ ; space
-		 (max 0 (/ (- (window-width) (gnus-point-at-eol)) 2)))
+    (insert-char ?\  (prog1
+			 (max 0 (/ (- (window-width) (point)) 2))
+		       (goto-char (point-min))))
     (forward-line 1)
     ;; And then hack it.
     (gnus-indent-rigidly (point) (point-max)
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 9658935..9b99016 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -769,11 +769,11 @@ be set in `.emacs' instead."
 		       (concat " (r" gnus-revision-number ")"))
 		     " based on " gnus-original-product-name " v"
 		     gnus-original-version-number "\n")
-	     (goto-char (point-min))
-	     (insert-char ?\  (max 0 (/ (- (window-width)
-					   (gnus-point-at-eol)) 2)))
-	     (put-text-property (point) (gnus-point-at-eol)
-				'face 'gnus-splash-face)
+	     (end-of-line 0)
+	     (put-text-property (point-min) (point) 'face 'gnus-splash-face)
+	     (insert-char ?\  (prog1
+				  (max 0 (/ (- (window-width) (point)) 2))
+				(goto-char (point-min))))
 	     (forward-line 1)
 	     (let ((size (image-size image)))
 	       (insert-char ?\n (max 0 (round (- (window-height)
@@ -812,8 +812,9 @@ be set in `.emacs' instead."
 	      (concat " (r" gnus-revision-number ")"))
 	    " based on " gnus-original-product-name " v"
 	    gnus-original-version-number)
-    (goto-char (point-min))
-    (insert-char ?\  (max 0 (/ (- (window-width) (gnus-point-at-eol)) 2)))
+    (insert-char ?\  (prog1
+			 (max 0 (/ (- (window-width) (point)) 2))
+		       (goto-char (point-min))))
     (forward-line 1)
     ;; And then hack it.
     (gnus-indent-rigidly (point) (point-max)