From f5c645b889c88efd0d0c28e1014c9177d4ffbb15 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 10 Jan 2002 05:13:19 +0000 Subject: [PATCH] * gnus-xmas.el (gnus-xmas-group-startup-message): Position point to the top. --- ChangeLog | 5 +++++ lisp/gnus-xmas.el | 1 + 2 files changed, 6 insertions(+) diff --git a/ChangeLog b/ChangeLog index 6d3ba90..61045f1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-01-10 Katsumi Yamaoka + + * lisp/gnus-xmas.el (gnus-xmas-group-startup-message): Position + point to the top. + 2002-01-05 Lars Magne Ingebrigtsen * 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)) -- 1.7.10.4