* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)