projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch to No Gnus 200510111141.
[elisp/gnus.git-]
/
lisp
/
gnus-xmas.el
diff --git
a/lisp/gnus-xmas.el
b/lisp/gnus-xmas.el
index
f13a1e4
..
37037c2
100644
(file)
--- a/
lisp/gnus-xmas.el
+++ b/
lisp/gnus-xmas.el
@@
-1,6
+1,6
@@
;;; gnus-xmas.el --- Gnus functions for XEmacs
;;; gnus-xmas.el --- Gnus functions for XEmacs
-;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
+;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2005
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@
-21,8
+21,8
@@
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
;;; Commentary:
@@
-40,7
+40,7
@@
(defvar menu-bar-mode (featurep 'menubar))
(require 'messagexmas)
(require 'wid-edit)
(defvar menu-bar-mode (featurep 'menubar))
(require 'messagexmas)
(require 'wid-edit)
-(require 'run-at-time)
+(require 'timer-funcs)
(defgroup gnus-xmas nil
"XEmacsoid support for Gnus"
(defgroup gnus-xmas nil
"XEmacsoid support for Gnus"
@@
-543,7
+543,7
@@
the resulting string may be narrower than END-COLUMN.
" based on " gnus-original-product-name " v"
gnus-original-version-number "\n")
(end-of-line 0)
" based on " gnus-original-product-name " v"
gnus-original-version-number "\n")
(end-of-line 0)
- (put-text-property (point-min) (point) 'face 'gnus-splash-face)
+ (put-text-property (point-min) (point) 'face 'gnus-splash)
(insert-char ?\ (prog1
(max 0 (/ (- (window-width) (point)) 2))
(goto-char (point-min))))
(insert-char ?\ (prog1
(max 0 (/ (- (window-width) (point)) 2))
(goto-char (point-min))))
@@
-593,7
+593,7
@@
the resulting string may be narrower than END-COLUMN.
(rest (- wheight pheight)))
(insert (make-string (max 0 (* 2 (/ rest 3))) ?\n)))
;; Paint it.
(rest (- wheight pheight)))
(insert (make-string (max 0 (* 2 (/ rest 3))) ?\n)))
;; Paint it.
- (put-text-property (point-min) (point-max) 'face 'gnus-splash-face)))
+ (put-text-property (point-min) (point-max) 'face 'gnus-splash)))
(goto-char (point-min))
(setq modeline-buffer-identification
(list (concat gnus-version ": *Group*")))
(goto-char (point-min))
(setq modeline-buffer-identification
(list (concat gnus-version ": *Group*")))