From 3dc5e2d5d71836c96845fd588d1bfe6a2e296864 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 5 Oct 2000 13:10:39 +0000 Subject: [PATCH] * gnus.el (gnus-group-startup-message): Don't use `gnus-point-at-eol'. * gnus-xmas.el (gnus-xmas-group-startup-message): Ditto. --- ChangeLog | 8 +++++++- lisp/gnus-xmas.el | 15 ++++++++------- lisp/gnus.el | 15 ++++++++------- 3 files changed, 23 insertions(+), 15 deletions(-) diff --git a/ChangeLog b/ChangeLog index da442c7..50cb7dd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,12 @@ +2000-10-05 Katsumi Yamaoka + + * 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 - * 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) -- 1.7.10.4