;;; Time-stamp: <2004-01-21 14:04:00 john>

;;(setq gnus-server-host "harlqn")
;; (setq gnus-nntp-server "rocannon")

;; (setq mail-host-address "cb1.com")

;; use gnus-select-method (qv) instead of gnus-server-host or gnus-nntp-server

(setq gnus-ignored-headers
  "^X-Received:\\|Via:\\|^Received:\\|^Path:\\|^Posting-Version:\\|^Article-I.D.:\\|^Expires:\\|^Date-Received:\\|^References:\\|^Control:\\|^Xref:\\|^Lines:\\|^Posted:\\|^Relay-Version:\\|^Message-ID:\\|^Nf-ID:\\|^Nf-From:\\|^Approved:\\|^Sender:"
)

(fset 'Gnus-for-real (if (fboundp 'gnus)
			 (symbol-function 'gnus)
		       'gnus))

(defun gn (&optional arg)
  "Read news -- only at appropriate times!"
  (interactive "P")
  (let ((hour (string-to-int (substring (current-time-string) 11 13))))
    (if (or (< hour 9)
	    (= hour 13)
	    (> hour 19))
	(Gnus-for-real arg)
      (error "You shouldn't be reading news now!"))))
 
; ;(autoload 'gnus "/users/GNU-18.51/lisp/gnus.elc" "Run the News reader" t)
; (autoload 'gnus "gnus" "Run the News reader" t)
; 
; (defvar gnus-your-domain "harlqn.uucp"
;   "*Your domain name without your host name.
; If environment variable `DOMAINNAME' is defined, it's instead used.")
; 
; (defvar gnus-your-organization "Harlequin Ltd, Cambridge, England"
;   "*Your organization.
; If environment variable `ORGANIZATION' is defined, it's instead used.")
; 
; 
; (defvar gnus-your-time-zone +1
;   "*Difference between GMT and your time zone.")
; 
; (autoload 'gnus-post-news "gnus" "Post a news." t)
; 
; (defvar gnus-server-host "harlqn"
;   "*Host the NNTP news server is running.
; Initialized from the NNTPSERVER environment variable.")

(if vm-host
    (progn
      (require 'bbdb)
      (setq bbdb/news-auto-create-p t)
      (bbdb-insinuate-gnus)))

;;; end of gnus.el