Lines Matching +defs:gnus +defs:group +defs:mode
0 ;;; gnus-gl.el --- an interface to GroupLens for Gnus
59 ;; ---------------- For your .emacs or .gnus file ----------------
61 ;; As of version 2.5, grouplens now works as a minor mode of
62 ;; gnus-summary-mode. To get make that work you just need a couple of
64 ;; (setq gnus-use-grouplens t)
68 ;; (setq gnus-summary-default-score 0)
74 ;; Note that when you're in grouplens-minor-mode 'r' masks the
78 ;; Please type M-x gnus-gl-submit-bug-report. This will set up a
83 ;; If you set the gnus-summary-line-format as shown above, the score
90 ;; gnus-scores-articles contains the articles
92 ;; gnus-possibly-score-headers
93 ;; ==> gnus-score-headers
94 ;; ==> gnus-score-load-file
99 ;; we may want a variable gnus-grouplens-scale-factor
100 ;; and gnus-grouplens-offset this would probably be either -3 or 0
103 ;; According to Lars, Norse god of gnus, the simple way to insert a
105 ;; variable gnus-score-find-files-function This new function
106 ;; gnus-grouplens-score-alist will return a core alist that
126 (require 'gnus-score)
127 (require 'gnus)
133 (defvar gnus-summary-grouplens-line-format
135 "*The line format spec in summary GroupLens mode buffers.")
187 (defvar gnus-grouplens-override-scoring 'override
189 GroupLens scores can be combined with gnus scores in one of three ways.
191 'combine -- combine grouplens scores with gnus scores
192 'separate -- treat grouplens scores completely separate from gnus")
213 (defvar grouplens-current-group nil)
239 (gnus-get-buffer-create (format " *BBBD trace: %s*" host)))
263 (error (gnus-message 3 "Error: Failed to connect to BBB")
317 (gnus-message 3 "Error: GroupLens login failed")))))
318 (gnus-message 3 "Error: you must set a pseudonym"))
326 (gnus-add-shutdown 'bbb-logout 'gnus)
345 See the gnus variable `gnus-score-find-score-files-function'.
350 (setq grouplens-current-group groupname)
363 (gnus-message 5 "Fetching Predictions...")
375 (gnus-message 1 "Invalid Token, login and try again")
377 (gnus-message 3 "Error: You are not logged in to a BBB")
381 (mapcar (function (lambda (x) (mail-header-id x))) gnus-newsgroup-headers))
403 ;;(push `(,(bbb-get-mid) ,gnus-summary-default-score nil s) resp)
410 (gnus-sethash mid (list pred (bbb-get-confl) (bbb-get-confh))
418 (gnus-sethash mid (list pred 0 0) grouplens-current-hashtable)
429 ;; Since gnus assumes that scores are integer values?? we round the
456 (defvar gnus-tmp-score)
458 (if (eq gnus-grouplens-override-scoring 'separate)
462 (hashent (gnus-gethash mid grouplens-current-hashtable))
463 (iscore gnus-tmp-score)
468 (unless (member grouplens-current-group grouplens-newsgroups)
501 (t (gnus-message 3 "Invalid prediction display type")))
507 ;; instead called from gnus-select-group-hook. -- LAB
509 (if (not (member grouplens-current-group grouplens-newsgroups))
514 (hashent (gnus-gethash mid grouplens-current-hashtable))
555 (gnus-message 3 "Invalid prediction display type")
615 (member gnus-newsgroup-name grouplens-newsgroups))
622 (gnus-message 5 "Sending Ratings...")
626 (gnus-message 1
629 (gnus-message 5 "Sending Ratings...Done"))
630 (gnus-message 3 "No BBB connection")))
634 (concat "putratings " grouplens-bbb-token " " grouplens-current-group " \r\n"
645 (when (member gnus-newsgroup-name grouplens-newsgroups)
655 (gnus-summary-mark-article nil (int-to-string rating)))
656 (gnus-message 3 "Invalid rating")))))
663 (gnus-summary-next-unread-article))
670 (gnus-summary-best-unread-article))
679 (gnus-summary-catchup-and-exit)
680 (gnus-summary-catchup-and-exit rating)))
687 (let ((articles (gnus-summary-articles-in-thread))
690 (gnus-summary-goto-subject article)
693 (gnus-summary-article-header article)))))
695 (let ((gnus-summary-check-current t))
696 (or (zerop (gnus-summary-next-subject 1 t))
698 (gnus-summary-recenter)
699 (gnus-summary-position-point)
700 (gnus-set-mode-line 'summary))
702 (defun bbb-exit-group ()
707 (if gnus-current-headers
708 (mail-header-id gnus-current-headers)
709 (gnus-message 3 "You must select an article before you rate it")))
711 (defun bbb-grouplens-group-p (group)
712 "Say whether GROUP is a GroupLens group."
713 (if (member group grouplens-newsgroups) " (GroupLens Enhanced)" ""))
732 (when (member gnus-newsgroup-name grouplens-newsgroups)
748 (defconst gnus-gl-version "gnus-gl.el 2.50")
749 (defconst gnus-gl-maintainer-address "grouplens-bug@cs.umn.edu")
750 (defun gnus-gl-submit-bug-report ()
751 "Submit via mail a bug report on gnus-gl."
754 (reporter-submit-bug-report gnus-gl-maintainer-address
755 (concat "gnus-gl.el " gnus-gl-version)
762 'grouplens-current-group
765 'gnus-gl-get-trace))
767 (defun gnus-gl-get-trace ()
773 ;; GroupLens minor mode
776 (defvar gnus-grouplens-mode nil
777 "Minor mode for providing a GroupLens interface in Gnus summary buffers.")
779 (defvar gnus-grouplens-mode-map nil)
781 (unless gnus-grouplens-mode-map
782 (setq gnus-grouplens-mode-map (make-keymap))
783 (gnus-define-keys
784 gnus-grouplens-mode-map
791 (defun gnus-grouplens-make-menu-bar ()
792 (unless (boundp 'gnus-grouplens-menu)
794 gnus-grouplens-menu gnus-grouplens-mode-map ""
801 ["Report bugs" gnus-gl-submit-bug-report t]))))
803 (defun gnus-grouplens-mode (&optional arg)
804 "Minor mode for providing a GroupLens interface in Gnus summary buffers."
806 (when (and (eq major-mode 'gnus-summary-mode)
807 (member gnus-newsgroup-name grouplens-newsgroups))
808 (make-local-variable 'gnus-grouplens-mode)
809 (setq gnus-grouplens-mode
810 (if (null arg) (not gnus-grouplens-mode)
812 (when gnus-grouplens-mode
813 (gnus-make-local-hook 'gnus-select-article-hook)
814 (add-hook 'gnus-select-article-hook 'grouplens-do-time nil 'local)
815 (gnus-make-local-hook 'gnus-exit-group-hook)
816 (add-hook 'gnus-exit-group-hook 'bbb-exit-group nil 'local)
817 (make-local-variable 'gnus-score-find-score-files-function)
820 ((eq gnus-grouplens-override-scoring 'combine)
823 (if (listp gnus-score-find-score-files-function)
824 (setq gnus-score-find-score-files-function
826 gnus-score-find-score-files-function))
827 (setq gnus-score-find-score-files-function
828 (list gnus-score-find-score-files-function
830 ;; leave the gnus-score-find-score-files variable alone
831 ((eq gnus-grouplens-override-scoring 'separate)
832 (add-hook 'gnus-select-group-hook
835 gnus-newsgroup-name))))
838 (setq gnus-score-find-score-files-function
842 (make-local-variable 'gnus-summary-line-format)
843 (make-local-variable 'gnus-summary-line-format-spec)
844 (setq gnus-summary-line-format gnus-summary-grouplens-line-format)
845 (setq gnus-summary-line-format-spec nil)
846 (gnus-update-format-specifications nil 'summary)
847 (gnus-update-summary-mark-positions)
850 (when (and menu-bar-mode
851 (gnus-visual-p 'grouplens-menu 'menu))
852 (gnus-grouplens-make-menu-bar))
853 (gnus-add-minor-mode
854 'gnus-grouplens-mode " GroupLens" gnus-grouplens-mode-map)
855 (gnus-run-hooks 'gnus-grouplens-mode-hook))))
857 (provide 'gnus-gl)
860 ;;; gnus-gl.el ends here