*** pub/sgnus/lisp/gnus-xmas.el Sun May 26 02:43:30 1996 --- sgnus/lisp/gnus-xmas.el Sun May 26 03:54:44 1996 *************** *** 35,43 **** If this variable is nil, Gnus will try to locate the directory automatically.") ! ;;; Internal variables. ! (defvar gnus-xmas-logo (make-glyph (make-specifier 'image))) ;; Don't warn about these undefined variables. --- 35,44 ---- If this variable is nil, Gnus will try to locate the directory automatically.") ! (defvar gnus-xmas-logo-colors '("#bf9900" "#ffcc00") ! "Colors user for the Gnus logo.") ! ;;; Internal variables. ;; Don't warn about these undefined variables. *************** *** 481,499 **** ;; Insert the message. (setq gnus-xmas-glyph-directory (message-xmas-find-glyph-directory "gnus")) (erase-buffer) ! (let ((file (and gnus-xmas-glyph-directory (concat (file-name-as-directory gnus-xmas-glyph-directory) ! "gnus.xpm")))) (if (and (featurep 'xpm) (not (equal (device-type) 'tty)) ! file (file-exists-p file)) (progn ! (set-glyph-property gnus-xmas-logo 'image file) ! (set-glyph-image gnus-xmas-logo file 'global 'x) ! (insert " ") ! (set-extent-begin-glyph (make-extent (point) (point)) gnus-xmas-logo) (goto-char (point-min)) (while (not (eobp)) (insert (make-string (/ (max (- (window-width) (or x 35)) 0) 2) --- 482,503 ---- ;; Insert the message. (setq gnus-xmas-glyph-directory (message-xmas-find-glyph-directory "gnus")) (erase-buffer) ! (let ((logo (and gnus-xmas-glyph-directory (concat (file-name-as-directory gnus-xmas-glyph-directory) ! "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)) ! logo ! (file-exists-p logo)) (progn ! (setq logo (make-glyph logo)) (insert " ") ! (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) *** pub/sgnus/lisp/gnus.el Sun May 26 02:43:31 1996 --- sgnus/lisp/gnus.el Sun May 26 03:55:38 1996 *************** *** 1723,1729 **** "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.95" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1723,1729 ---- "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.96" "Version number for this version of Gnus.") (defvar gnus-info-nodes *** pub/sgnus/lisp/nnheader-ems.el Sun May 26 02:43:33 1996 --- sgnus/lisp/nnheader-ems.el Sun May 26 03:50:48 1996 *************** *** 182,188 **** (fset 'nnheader-run-at-time 'run-at-time) (fset 'nnheader-cancel-timer 'cancel-timer) (fset 'nnheader-find-file-noselect 'find-file-noselect) ! (fset 'nnheader-insert-raw-file-contents 'insert-file-contents-literally) ))) (provide 'nnheader-ems) --- 182,189 ---- (fset 'nnheader-run-at-time 'run-at-time) (fset 'nnheader-cancel-timer 'cancel-timer) (fset 'nnheader-find-file-noselect 'find-file-noselect) ! (fset 'nnheader-insert-file-contents-literally ! 'insert-file-contents-literally) ))) (provide 'nnheader-ems) *** pub/sgnus/lisp/nnmail.el Sun May 26 02:43:33 1996 --- sgnus/lisp/nnmail.el Sun May 26 03:50:47 1996 *************** *** 286,292 **** (set-buffer nntp-server-buffer) (erase-buffer) (condition-case () ! (progn (nnheader-insert-raw-file-contents file) t) (file-error nil))) (defun nnmail-group-pathname (group dir &optional file) --- 286,292 ---- (set-buffer nntp-server-buffer) (erase-buffer) (condition-case () ! (progn (nnheader-insert-file-contents-literally file) t) (file-error nil))) (defun nnmail-group-pathname (group dir &optional file) *************** *** 703,709 **** (set-buffer (get-buffer-create " *nnmail incoming*")) (buffer-disable-undo (current-buffer)) (erase-buffer) ! (nnheader-insert-raw-file-contents incoming) (unless (zerop (buffer-size)) (goto-char (point-min)) (save-excursion (run-hooks 'nnmail-prepare-incoming-hook)) --- 703,709 ---- (set-buffer (get-buffer-create " *nnmail incoming*")) (buffer-disable-undo (current-buffer)) (erase-buffer) ! (nnheader-insert-file-contents-literally incoming) (unless (zerop (buffer-size)) (goto-char (point-min)) (save-excursion (run-hooks 'nnmail-prepare-incoming-hook)) *** pub/sgnus/lisp/nnspool.el Sun May 26 02:43:34 1996 --- sgnus/lisp/nnspool.el Sun May 26 03:50:47 1996 *************** *** 474,480 **** (set-buffer nntp-server-buffer) (erase-buffer) (condition-case () ! (progn (nnheader-insert-raw-file-contents file) t) (file-error nil))) (defun nnspool-possibly-change-directory (group) --- 474,480 ---- (set-buffer nntp-server-buffer) (erase-buffer) (condition-case () ! (progn (nnheader-insert-file-contents-literally file) t) (file-error nil))) (defun nnspool-possibly-change-directory (group) *** pub/sgnus/lisp/ChangeLog Sun May 26 02:43:43 1996 --- sgnus/lisp/ChangeLog Sun May 26 03:55:54 1996 *************** *** 1,7 **** --- 1,16 ---- + Sun May 26 03:51:38 1996 Lars Magne Ingebrigtsen + + * 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 * nnheader-ems.el: Bind nnheader-insert-raw-file-contents. + * gnus.el: 0.95 is released. + Sun May 26 02:34:01 1996 Bart Robinson * gnus.el (gnus-save-newsrc-file): Make the backups go to the *************** *** 22,27 **** --- 31,55 ---- sparse & ancient articles were present. (gnus-invisible-cut-children): New function. + Fri May 24 17:56:19 1996 Andy Norman + + * nnheader-ems.el (nnheader-xmas-find-file-noselect): Use + `nnheader-insert-file-contents-literally'. + + Fri May 24 17:51:46 1996 Lars Magne Ingebrigtsen + + * 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 + + * gnus.el (gnus-group-mode): Use `gnus-make-local-hook'. + (gnus-sortable-date): Typo. + + Fri May 24 17:24:15 1996 ISO-2022-JP + + * gnus.el (gnus-narrow-to-signature): Didn't work. + Fri May 24 21:27:49 1996 Lars Magne Ingebrigtsen * gnus.el: 0.94 is released. *************** *** 47,73 **** not included. Thu May 23 23:32:43 1996 Lars Magne Ingebrigtsen - - Fri May 24 17:56:19 1996 Andy Norman - - * nnheader-ems.el (nnheader-xmas-find-file-noselect): Use - `nnheader-insert-file-contents-literally'. - - Fri May 24 17:51:46 1996 Lars Magne Ingebrigtsen - - * 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 - - * gnus.el (gnus-group-mode): Use `gnus-make-local-hook'. - (gnus-sortable-date): Typo. - - Fri May 24 17:24:15 1996 ISO-2022-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. --- 75,80 ----