From: yamaoka <yamaoka>
Date: Thu, 10 Jan 2002 05:13:19 +0000 (+0000)
Subject: * gnus-xmas.el (gnus-xmas-group-startup-message): Position point to the top.
X-Git-Tag: t-gnus-6_15_5-01-quimby~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f5c645b889c88efd0d0c28e1014c9177d4ffbb15;p=elisp%2Fgnus.git-

* gnus-xmas.el (gnus-xmas-group-startup-message): Position point to the top.
---

diff --git a/ChangeLog b/ChangeLog
index 6d3ba90..61045f1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-10  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/gnus-xmas.el (gnus-xmas-group-startup-message): Position
+	point to the top.
+
 2002-01-05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* etc/gnus/oort.xface (X-Face): Oort X-Face from
diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 0badab5..b3a7c5e 100644
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -600,6 +600,7 @@ the resulting string may be narrower than END-COLUMN.
       (insert (make-string (max 0 (* 2 (/ rest 3))) ?\n)))
     ;; Paint it.
     (put-text-property (point-min) (point-max) 'face 'gnus-splash-face)))
+  (goto-char (point-min))
   (setq modeline-buffer-identification
 	(list (concat gnus-version ": *Group*")))
   (set-buffer-modified-p t))