;;;
;;; Grouplens Stuff
;;;
(require 'gnus-gl)

;;;; In addition, there are a few gnus-*-hooks that need to be set:

(add-hook 'gnus-startup-hook 'bbb-login)
(add-hook 'gnus-exit-gnus-hook 'bbb-logout)

;;; The above format also assumes that you are using gnus-bbdb  You can
;;; just as easily ad %uG to whatever format string you use.  Or add
;;; a %i to just see a simple numeric version of the predictions that
;;; uses less space on the summary line.  If you use %uG you have several
;;; choices for how things look.  See the doc string for the
;;; grouplens-prediction-display variable.

(setq grouplens-prediction-display 'confidence-bar)


;;; If you use %uI on your group-line-format you will get (GroupLens
;;; Enhanced) after the names of newsgroups supported by GroupLens.

(setq gnus-group-line-format "%M%S%p%5y: %(%g%) %uI\n")

;;; Summary Mode Line Format
(setq gnus-summary-line-format "%U%R%4,4i%uL%I%(%[%4L:%-19,19n%]%) %s\n")

(define-key gnus-summary-goto-map "n" 'grouplens-next-unread-article)
(define-key gnus-summary-mode-map "n" 'grouplens-next-unread-article)
(define-key gnus-summary-score-map "r" 'bbb-summary-rate-article)
(define-key gnus-summary-mode-map "," 'grouplens-best-unread-article)

(add-hook 'gnus-exit-group-hook 'bbb-put-ratings)

;;; In addition there are some GroupLens user variables to set

(setq grouplens-pseudonym "Ghost")

;;; If you are using a bbb other than twain.cs.umn.edu you will need to
;; set the grouplens-bbb-host variable, and possibly the
;; grouplens-bbb-port variable. 

(setq grouplens-newsgroups 
      '("comp.lang.c++"
        "rec.humor" 
        "rec.food.recipes"
        "comp.os.linux.announce"
        "comp.os.linux.answers"
        "comp.os.linux.development"
        "comp.os.linux.development.apps"
        "comp.os.linux.development.system"
        "comp.os.linux.hardware"
        "comp.os.linux.misc"
        "comp.os.linux.networking"
        "comp.os.linux.setup"
        "comp.groupware"
        "mn.general"p
        "rec.arts.movies"
        "rec.arts.movies.current-films")
      )
;; This sets up the groups for which you will get predictions and ratings.

;; Hook BBB into group select hook
(defun lab-bbb-select-hook ()
  (bbb-build-mid-scores-alist gnus-newsgroup-name))

(add-hook 'gnus-select-group-hook 'lab-bbb-select-hook)