+Thu Aug 31 10:45:26 1995 Lars Magne Ingebrigtsen <lingebri@sunsci4.cern.ch>
+
+ * gnus-cus.el (gnus-face-dark-name-list): Use dark blue instead of
+ sky blue.
+
+ * gnus.el: Don't read the .gnus file on load, anyway.
+
Wed Aug 30 17:56:34 1995 Lars Magne Ingebrigtsen <lingebri@sunscipw.cern.ch>
+ * gnus.el: 0.99.28 is released.
+
* custom.el ((string-match "XEmacs" emacs-version)): Would barf if
the menu-bar wasn't in use.
(if (string-match "XEmacs" emacs-version)
nil
;; This will not work under XEmacs.
- (global-set-key [ menu-bar help-menu customize ]
- '("Customize..." . customize)))
+ (condition-case nil
+ (global-set-key [ menu-bar help-menu customize ]
+ '("Customize..." . customize))
+ (error nil)))
;;; Categories:
;;
"turquoise"))
(defvar gnus-face-dark-name-list
- '("skyblue" "firebrick"
+ '("dark blue" "firebrick"
"dark green" "dark orange" "dark khaki" "dark violet"
"dark turquoise"))
((eq gnus-background-mode 'dark)
(list (list "From" nil
(custom-face-lookup
- "SkyBlue" nil nil t t nil))
+ "dark blue" nil nil t t nil))
(list "Subject" nil
(custom-face-lookup
"pink" nil nil t t nil))
(custom-face-lookup "pink" nil nil nil nil nil))
(cons '(and (> score default) (= mark gnus-ancient-mark))
- (custom-face-lookup "SkyBlue" nil nil t nil nil))
+ (custom-face-lookup "dark blue" nil nil t nil nil))
(cons '(and (< score default) (= mark gnus-ancient-mark))
(custom-face-lookup "SkyBlue" nil nil nil t nil))
(cons '(= mark gnus-ancient-mark)
"gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
"The mail address of the Gnus maintainers.")
-(defconst gnus-version "(ding) Gnus v0.99.28"
+(defconst gnus-version "Gnus v5.0"
"Version number for this version of Gnus.")
(defvar gnus-info-nodes
(load gnus-init-file nil t))))
;;; Load the user startup file.
-(eval '(gnus-read-init-file 'inhibit))
+;; (eval '(gnus-read-init-file 'inhibit))
;;; Load the compatability functions.
(defvar nnbabyl-mail-delimiter "\^_")
-(defconst nnbabyl-version "nnbabyl 0.1"
+(defconst nnbabyl-version "nnbabyl 1.0"
"nnbabyl version.")
(defvar nnbabyl-mbox-buffer nil)
\f
-(defconst nndir-version "nndir 0.0")
+(defconst nndir-version "nndir 1.0")
(defvar nndir-current-directory nil
"Current news group directory.")
'(nndoc-body-begin nil)
'(nndoc-address nil)))
-(defconst nndoc-version "nndoc 0.1"
+(defconst nndoc-version "nndoc 1.0"
"nndoc version.")
(defvar nndoc-current-buffer nil
\f
-(defconst nneething-version "nneething 0.1"
+(defconst nneething-version "nneething 1.0"
"nneething version.")
(defvar nneething-current-directory nil
\f
-(defconst nnfolder-version "nnfolder 0.2"
+(defconst nnfolder-version "nnfolder 1.0"
"nnfolder version.")
(defconst nnfolder-article-marker "X-Gnus-Article-Number: "
\f
-(defconst nnkiboze-version "nnkiboze 0.0"
+(defconst nnkiboze-version "nnkiboze 1.0"
"Version numbers of this version of nnkiboze.")
(defvar nnkiboze-current-group nil)
\f
-(defconst nnmail-version "nnml 0.0"
+(defconst nnmail-version "nnmail 1.0"
"nnmail version.")
\f
\f
-(defconst nnmbox-version "nnmbox 0.1"
+(defconst nnmbox-version "nnmbox 1.0"
"nnmbox version.")
(defvar nnmbox-current-group nil
\f
-(defconst nnmh-version "nnmh 0.1"
+(defconst nnmh-version "nnmh 1.0"
"nnmh version.")
(defvar nnmh-current-directory nil
\f
-(defconst nnml-version "nnml 0.2"
+(defconst nnml-version "nnml 1.0"
"nnml version.")
(defvar nnml-nov-file-name ".overview")
\f
-(defconst nnvirtual-version "nnvirtual 0.0"
+(defconst nnvirtual-version "nnvirtual 1.0"
"Version number of this version of nnvirtual.")
(defvar nnvirtual-group-alist nil)