From: yamaoka Date: Fri, 23 Jan 2004 03:54:58 +0000 (+0000) Subject: Synch to No Gnus 200401230349. X-Git-Tag: t-gnus-6_17_4-quimby-~1108 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=df99ee2952e7f597741e2e1878e455a8569c2d77;p=elisp%2Fgnus.git- Synch to No Gnus 200401230349. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5d313e5..ff1564e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,17 @@ +2004-01-23 Jesper Harder + + * gnus-xmas.el (gnus-xmas-grouplens-menu-add): Remove. + + * gnus-sum.el (gnus-summary-line-format-alist): Remove grouplens. + + * gnus-start.el (gnus-1): do. + + * gnus-group.el (gnus-group-line-format-alist): do. + + * gnus.el: (gnus-use-grouplens, gnus-visual): do. + + * gnus-gl.el: Remove. + 2004-01-23 Kevin Greiner * gnus-sum.el (gnus-adjust-marks): Now correctly handles a list of diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 5597079..e06fcb8 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -494,7 +494,6 @@ simple manner.") (?P gnus-group-indentation ?s) (?E gnus-tmp-group-icon ?s) (?B gnus-tmp-summary-live ?c) - (?l gnus-tmp-grouplens ?s) (?z gnus-tmp-news-method-string ?s) (?m (gnus-group-new-mail gnus-tmp-group) ?c) (?w (if (gnus-news-group-p gnus-tmp-group) @@ -1464,10 +1463,6 @@ if it is a string, only list groups matching REGEXP." (gnus-tmp-process-marked (if (member gnus-tmp-group gnus-group-marked) gnus-process-mark ? )) - (gnus-tmp-grouplens - (or (and gnus-use-grouplens - (bbb-grouplens-group-p gnus-tmp-group)) - "")) (buffer-read-only nil) header gnus-tmp-header) ; passed as parameter to user-funcs. (beginning-of-line) diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index dfb11dd..50634ed 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -795,11 +795,6 @@ prompt the user for the name of an NNTP server to use." (when (or gnus-slave gnus-use-dribble-file) (gnus-dribble-read-file)) - ;; Allow using GroupLens predictions. - (when gnus-use-grouplens - (bbb-login) - (add-hook 'gnus-summary-mode-hook 'gnus-grouplens-mode)) - ;; Do the actual startup. (if gnus-agent (gnus-request-create-group "queue" '(nndraft ""))) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 117ea8c..94abc68 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -1212,7 +1212,6 @@ the normal Gnus MIME machinery." (?\< (make-string (max 0 (- 20 gnus-tmp-level)) ? ) ?s) (?i gnus-tmp-score ?d) (?z gnus-tmp-score-char ?c) - (?l (bbb-grouplens-score gnus-tmp-header) ?s) (?V (gnus-thread-total-score (and (boundp 'thread) (car thread))) ?d) (?U gnus-tmp-unread ?c) (?f (gnus-summary-from-or-to-or-newsgroups gnus-tmp-header gnus-tmp-from) diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el index 556fc9e..7e2b920 100644 --- a/lisp/gnus-xmas.el +++ b/lisp/gnus-xmas.el @@ -332,10 +332,6 @@ call it with the value of the `gnus-data' text property." (gnus-xmas-menu-add browse gnus-browse-menu)) -(defun gnus-xmas-grouplens-menu-add () - (gnus-xmas-menu-add grouplens - gnus-grouplens-menu)) - (defun gnus-xmas-read-event-char (&optional prompt) "Get the next event." (when prompt @@ -443,7 +439,6 @@ call it with the value of the `gnus-data' text property." ;; -- didier (add-hook 'gnus-score-mode-hook 'gnus-xmas-score-menu-add) (add-hook 'gnus-binary-mode-hook 'gnus-xmas-binary-menu-add) - (add-hook 'gnus-grouplens-mode-hook 'gnus-xmas-grouplens-menu-add) (add-hook 'gnus-server-mode-hook 'gnus-xmas-server-menu-add) (add-hook 'gnus-browse-mode-hook 'gnus-xmas-browse-menu-add) (add-hook 'gnus-draft-mode-hook 'gnus-xmas-draft-menu-add) diff --git a/lisp/gnus.el b/lisp/gnus.el index 84013ee..9cde129 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1448,11 +1448,6 @@ cache to the full extent of the law." :group 'gnus-meta :type 'boolean) -(defcustom gnus-use-grouplens nil - "*If non-nil, use GroupLens ratings." - :group 'gnus-meta - :type 'boolean) - (defcustom gnus-keep-backlog 20 "*If non-nil, Gnus will keep read articles for later re-retrieval. If it is a number N, then Gnus will only keep the last N articles @@ -2255,8 +2250,7 @@ It is called with three parameters -- GROUP, LEVEL and OLDLEVEL." summary-menu group-menu article-menu tree-highlight menu highlight browse-menu server-menu - page-marker tree-menu binary-menu pick-menu - grouplens-menu) + page-marker tree-menu binary-menu pick-menu) "*Enable visual features. If `visual' is disabled, there will be no menus and few faces. Most of the visual customization options below will be ignored. Gnus will use @@ -2270,8 +2264,7 @@ instance, to switch off all visual things except menus, you can say: Valid elements include `summary-highlight', `group-highlight', `article-highlight', `mouse-face', `summary-menu', `group-menu', `article-menu', `tree-highlight', `menu', `highlight', `browse-menu', -`server-menu', `page-marker', `tree-menu', `binary-menu', `pick-menu', -and `grouplens-menu'." +`server-menu', `page-marker', `tree-menu', `binary-menu', and`pick-menu'." :group 'gnus-meta :group 'gnus-visual :type '(set (const summary-highlight) @@ -2289,8 +2282,7 @@ and `grouplens-menu'." (const page-marker) (const tree-menu) (const binary-menu) - (const pick-menu) - (const grouplens-menu))) + (const pick-menu))) ;; Byte-compiler warning. (defvar gnus-visual) @@ -2745,8 +2737,6 @@ gnus-registry.el will populate this if it's loaded.") gnus-summary-wide-reply-with-original gnus-summary-post-forward gnus-summary-digest-mail-forward gnus-summary-digest-post-forward) ("gnus-picon" :interactive t gnus-treat-from-picon) - ("gnus-gl" bbb-login bbb-logout bbb-grouplens-group-p - gnus-grouplens-mode) ("smiley" :interactive t smiley-region) ("gnus-win" gnus-configure-windows gnus-add-configuration) ("gnus-sum" gnus-summary-insert-line gnus-summary-read-group