* texi/gnus-ja.texi: Ditto.
* lisp/gnus.el (gnus-group-startup-message): Rewrite for Emacs 21.
* lisp/lpath.el: Fbind `propertize'.
+2000-10-26 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * lisp/gnus.el (gnus-group-startup-message): Rewrite for Emacs 21.
+ * lisp/lpath.el: Fbind `propertize'.
+
2000-10-22 Katsuhiro Hermit Endo <hermit@tomato.saino.ne.jp>
* texi/gnus-ja.texi (Changing Servers): Fix typo.
2000-10-22 Katsuhiro Hermit Endo <hermit@tomato.saino.ne.jp>
* texi/gnus-ja.texi (Changing Servers): Fix typo.
(cond
((and (fboundp 'find-image)
(display-graphic-p)
(cond
((and (fboundp 'find-image)
(display-graphic-p)
- (let ((image
- (find-image
- `((:type xpm :file "gnus.xpm"
- :color-symbols
- (("thing" . "#724214")
- ("shadow" . "#1e3f03")
- ("background" . ,(face-background 'default))))
- (:type xbm :file "gnus.xbm"
- :foreground ,(face-foreground 'gnus-splash-face)
- :background ,(face-background 'default))))))
+ (let* ((bg (face-background 'default))
+ (fg (face-foreground 'gnus-splash-face))
+ (image (find-image
+ `((:type xpm :file "gnus.xpm"
+ :color-symbols (("thing" . "#724214")
+ ("shadow" . "#1e3f03")
+ ("background" . ,bg)))
+ (:type xbm :file "gnus.xbm"
+ :background ,bg :foreground ,fg)))))
- (insert gnus-product-name " " gnus-version-number
- (if (zerop (string-to-number gnus-revision-number))
- ""
- (concat " (r" gnus-revision-number ")"))
- " 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)
- (insert-char ?\ (prog1
- (max 0 (/ (- (window-width) (point)) 2))
- (goto-char (point-min))))
- (forward-line 1)
+ (insert
+ (propertize
+ (concat gnus-product-name " " gnus-version-number
+ (if (zerop (string-to-number gnus-revision-number))
+ ""
+ (concat " (r" gnus-revision-number ")"))
+ " based on " gnus-original-product-name " v"
+ gnus-original-version-number)
+ 'face `(variable-pitch :background ,bg :foreground ,fg)))
+ (let ((fill-column (window-width)))
+ (center-region (point-min) (point)))
(let ((size (image-size image)))
(let ((size (image-size image)))
- (insert-char ?\n (max 0 (round (- (window-height)
- (or y (cdr size)) 2) 2)))
- (insert-char ?\ (max 0 (round (- (window-width)
- (or x (car size))) 2)))
+ (insert-char ?\n (max 1 (round (- (window-height)
+ (or y (cdr size))) 2)))
+ (insert
+ (propertize " " 'display
+ `(space :align-to
+ ,(max 0 (round (- (window-width)
+ (or x (car size))) 2)))))
(insert-image image))
(setq gnus-simple-splash nil)
t))))
(insert-image image))
(setq gnus-simple-splash nil)
t))))
;; T-gnus.
(if (featurep 'xemacs)
;; T-gnus.
(if (featurep 'xemacs)
- (maybe-bind '(mh-lib-progs))
+ (progn
+ (maybe-fbind '(propertize))
+ (maybe-bind '(mh-lib-progs)))
;; FSFmacs
(maybe-fbind '(charsetp
;; FSFmacs
(maybe-fbind '(charsetp
- font-lock-set-defaults function-max-args
+ font-lock-set-defaults function-max-args propertize
smiley-encode-buffer))
(if (boundp 'MULE)
(progn
smiley-encode-buffer))
(if (boundp 'MULE)
(progn
+2000-10-26 Kai Gro\e,A_\e(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+ * gnus.texi (Gnus Development): nnmail-delete-incoming -->
+ mail-source-delete-incoming. (Kudos to Karl Kleinpaste
+ <karl@charcoal.com> for pointing this out.)
+
2000-10-18 Dave Love <fx@gnu.org>
* gnus.texi (NoCeM): Update.
2000-10-18 Dave Love <fx@gnu.org>
* gnus.texi (NoCeM): Update.
\e$B$$$^$9!#\e(B
@cindex Incoming*
\e$B$$$^$9!#\e(B
@cindex Incoming*
-@vindex nnmail-delete-incoming
+@vindex mail-source-delete-incoming
\e$B%"%k%U%!\e(B Gnusae \e$B$H\e(B \e$B%j%j!<%9$5$l$?\e(B Gnusae \e$B$G$OJQ?t$N=i4|CM$,0c$&$b$N$,$"\e(B
\e$B%"%k%U%!\e(B Gnusae \e$B$H\e(B \e$B%j%j!<%9$5$l$?\e(B Gnusae \e$B$G$OJQ?t$N=i4|CM$,0c$&$b$N$,$"\e(B
-\e$B$j$^$9!#FC$K!"\e(B@code{nnmail-delete-incoming} \e$B$O%"%k%U%!\e(B gnusae \e$B$G\e(B
+\e$B$j$^$9!#FC$K!"\e(B@code{mail-source-delete-incoming} \e$B$O%"%k%U%!\e(B gnusae \e$B$G\e(B
\e$B$O\e(B @code{nil} \e$B$G!"%j%j!<%9$5$l$?\e(B gnusae \e$B$G$O\e(B @code{t} \e$B$G$9!#$3$l$O%a!<%k\e(B
\e$B$r07$C$F$$$k:]$K!"%"%k%U%!%j%j!<%9$Nsrsw$K$h$j%a!<%k$r<:$J$&$3$H$rHr$1$k\e(B
\e$B$?$a$G$9!#\e(B
\e$B$O\e(B @code{nil} \e$B$G!"%j%j!<%9$5$l$?\e(B gnusae \e$B$G$O\e(B @code{t} \e$B$G$9!#$3$l$O%a!<%k\e(B
\e$B$r07$C$F$$$k:]$K!"%"%k%U%!%j%j!<%9$Nsrsw$K$h$j%a!<%k$r<:$J$&$3$H$rHr$1$k\e(B
\e$B$?$a$G$9!#\e(B
@samp{gnu.emacs.gnus} newsgroup.
@cindex Incoming*
@samp{gnu.emacs.gnus} newsgroup.
@cindex Incoming*
-@vindex nnmail-delete-incoming
+@vindex mail-source-delete-incoming
Some variable defaults differ between alpha Gnusae and released Gnusae.
Some variable defaults differ between alpha Gnusae and released Gnusae.
-In particular, @code{nnmail-delete-incoming} defaults to @code{nil} in
+In particular, @code{mail-source-delete-incoming} defaults to @code{nil} in
alpha Gnusae and @code{t} in released Gnusae. This is to prevent
lossage of mail if an alpha release hiccups while handling the mail.
alpha Gnusae and @code{t} in released Gnusae. This is to prevent
lossage of mail if an alpha release hiccups while handling the mail.