+Sun May 26 03:51:38 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * nnheader-ems.el: Raw-file confusion.
+
+ * gnus-xmas.el (gnus-xmas-logo-colors): New variable.
+ (gnus-xmas-group-startup-message): Use it.
+
Sun May 26 02:35:48 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
* nnheader-ems.el: Bind nnheader-insert-raw-file-contents.
+ * gnus.el: 0.95 is released.
+
Sun May 26 02:34:01 1996 Bart Robinson <lomew@cs.utah.edu>
* gnus.el (gnus-save-newsrc-file): Make the backups go to the
sparse & ancient articles were present.
(gnus-invisible-cut-children): New function.
+Fri May 24 17:56:19 1996 Andy Norman <ange@hplb.hpl.hp.com>
+
+ * nnheader-ems.el (nnheader-xmas-find-file-noselect): Use
+ `nnheader-insert-file-contents-literally'.
+
+Fri May 24 17:51:46 1996 Lars Magne Ingebrigtsen <lars@eyesore.no>
+
+ * gnus.el (gnus-summary-find-prev): With point at eob, would
+ select the next-to-last article.
+
+Fri May 24 17:25:48 1996 Magnus Hammerin <qmah@bull.se>
+
+ * gnus.el (gnus-group-mode): Use `gnus-make-local-hook'.
+ (gnus-sortable-date): Typo.
+
+Fri May 24 17:24:15 1996 ISO-2022-JP <morioka@jaist.ac.jp>
+
+ * gnus.el (gnus-narrow-to-signature): Didn't work.
+
Fri May 24 21:27:49 1996 Lars Magne Ingebrigtsen <larsi@eistla.ifi.uio.no>
* gnus.el: 0.94 is released.
Thu May 23 23:32:43 1996 Lars Magne Ingebrigtsen <larsi@hler.ifi.uio.no>
-Fri May 24 17:56:19 1996 Andy Norman <ange@hplb.hpl.hp.com>
-
- * nnheader-ems.el (nnheader-xmas-find-file-noselect): Use
- `nnheader-insert-file-contents-literally'.
-
-Fri May 24 17:51:46 1996 Lars Magne Ingebrigtsen <lars@eyesore.no>
-
- * gnus.el (gnus-summary-find-prev): With point at eob, would
- select the next-to-last article.
-
-Fri May 24 17:25:48 1996 Magnus Hammerin <qmah@bull.se>
-
- * gnus.el (gnus-group-mode): Use `gnus-make-local-hook'.
- (gnus-sortable-date): Typo.
-
-Fri May 24 17:24:15 1996 ISO-2022-JP <morioka@jaist.ac.jp>
-
- * gnus.el (gnus-narrow-to-signature): Didn't work.
-
- * gnus.el: September Gnus v0.93 is released.
-
* gnus.el: September Gnus v0.93 is released.
* nnbabyl.el (nnbabyl-read-mbox): Would bogously increase the
If this variable is nil, Gnus will try to locate the directory
automatically.")
-;;; Internal variables.
+(defvar gnus-xmas-logo-colors '("#bf9900" "#ffcc00")
+ "Colors user for the Gnus logo.")
-(defvar gnus-xmas-logo (make-glyph (make-specifier 'image)))
+;;; Internal variables.
;; Don't warn about these undefined variables.
;; Insert the message.
(setq gnus-xmas-glyph-directory (message-xmas-find-glyph-directory "gnus"))
(erase-buffer)
- (let ((file (and gnus-xmas-glyph-directory
+ (let ((logo (and gnus-xmas-glyph-directory
(concat
(file-name-as-directory gnus-xmas-glyph-directory)
- "gnus.xpm"))))
+ "gnus.xpm")))
+ (xpm-color-symbols
+ (append `(("thing" ,(car gnus-xmas-logo-colors))
+ ("shadow" ,(cadr gnus-xmas-logo-colors)))
+ xpm-color-symbols)))
(if (and (featurep 'xpm)
(not (equal (device-type) 'tty))
- file (file-exists-p file))
+ logo
+ (file-exists-p logo))
(progn
- (set-glyph-property gnus-xmas-logo 'image file)
- (set-glyph-image gnus-xmas-logo file 'global 'x)
-
+ (setq logo (make-glyph logo))
(insert " ")
- (set-extent-begin-glyph (make-extent (point) (point)) gnus-xmas-logo)
+ (set-extent-begin-glyph (make-extent (point) (point)) logo)
(goto-char (point-min))
(while (not (eobp))
(insert (make-string (/ (max (- (window-width) (or x 35)) 0) 2)
(set-buffer nntp-server-buffer)
(erase-buffer)
(condition-case ()
- (progn (nnheader-insert-raw-file-contents file) t)
+ (progn (nnheader-insert-file-contents-literally file) t)
(file-error nil)))
(defun nnmail-group-pathname (group dir &optional file)
(set-buffer (get-buffer-create " *nnmail incoming*"))
(buffer-disable-undo (current-buffer))
(erase-buffer)
- (nnheader-insert-raw-file-contents incoming)
+ (nnheader-insert-file-contents-literally incoming)
(unless (zerop (buffer-size))
(goto-char (point-min))
(save-excursion (run-hooks 'nnmail-prepare-incoming-hook))