Word based adaptive scoring

Word based adaptive scoring

[Peter von der Ahé]

Hi!

(pgnus v0.95)

I would like to use adaptive scoring based on words in one group.  So
I have tried setting gnus-use-adaptive-scoring to '(word) in both the
parameters and the score file for that group.

When in the group the value of gnus-use-adaptive-scoring is '(word)
locally, and the global value is '(line).  Entries in the ADAPT file
is on the form:

(("subject" ("HTMLPerlSETI 0.1" 2 729947 f)))

What I would like is that only the word "HTMLPerlSETI" is considered,
like:

(("subject" ("HTMLPerlSETI" 2 729947 f)))

Is it possible to use word based adaptive scoring on only one group,
or do I have to switch to word based adaptive scoring on all my groups
(I would prefer not)?

Cheers,
Peter

Re: Word based adaptive scoring

[Kai Großjohann]

You can frob the adaptive scoring options by customizing the score
file (see the Score menu in the group, or `V C' from the summary
buffer). 
kai
-- 
Life is hard and then you die.

Re: Word based adaptive scoring

[Peter von der Ahé]

>>>>> "KG" == Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> writes:

 KG> You can frob the adaptive scoring options by customizing the score
 KG> file (see the Score menu in the group, or `V C' from the summary
 KG> buffer). 

I'm sorry, I don't see how this should help me, I *do* know how to
edit score files.

I have used V e in the summary buffer, and created this score file:

((local
 (gnus-use-adaptive-scoring
  (word))
 (gnus-ignored-adaptive-words
  ("linux" "gnome" "perl" "c"))
 (gnus-default-adaptive-score-alist
  ((gnus-unread-mark)
   (gnus-ticked-mark)
   (gnus-dormant-mark
    (subject 2))
   (gnus-del-mark
    (subject -1))
   (gnus-read-mark
    (subject 2))
   (gnus-expirable-mark
    (subject -1))
   (gnus-killed-mark
    (subject -3))
   (gnus-kill-file-mark)
   (gnus-ancient-mark)
   (gnus-low-score-mark)
   (gnus-catchup-mark
    (subject -1))))))

I have tried setting group parameteres (pressing G p in the Group
Buffer) to:

((gnus-use-adaptive-scoring '(word)))

Now I have tried setting Adapt to '(word) in the customize buffer, as
you suggests, but no luck.

The value of gnus-use-adaptive-scoring is buffer local and '(word) in
the group, but the entires in the ADAPT file still are of '(line)
kind.

Help :-)

Cheers,
Peter

[PATCH] Buffer local adaptive scoring

[Peter von der Ahé]

[-- Attachment #1: Type: text/plain, Size: 137 bytes --]

Hi!

I previously wrote to this list about a problem with word based
adaptive scoring.  This seems to be a bug, so I have made a patch:


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: use buffer local gnus-use-adaptive-scoring --]
[-- Type: text/x-patch, Size: 1440 bytes --]

diff -rc pgnus-0.95-vanilla/lisp/ChangeLog pgnus-0.95/lisp/ChangeLog
*** pgnus-0.95-vanilla/lisp/ChangeLog	Sat Jul 10 00:22:55 1999
--- pgnus-0.95/lisp/ChangeLog	Tue Jul 20 02:43:26 1999
***************
*** 1,3 ****
--- 1,8 ----
+ Tue Jul 20 02:39:56 1999  Peter von der Ahé  <peter@ahe.dk>
+ 
+ 	* gnus-sum.el (gnus-summary-exit): Allow gnus-use-adaptive-scoring
+ 	to have buffer local values.
+ 
  Fri Jul  9 22:21:16 1999  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
  
  	* gnus.el: Pterodactyl Gnus v0.95 is released.
Only in pgnus-0.95/lisp: ChangeLog~
diff -rc pgnus-0.95-vanilla/lisp/gnus-sum.el pgnus-0.95/lisp/gnus-sum.el
*** pgnus-0.95-vanilla/lisp/gnus-sum.el	Fri Jul  9 21:16:21 1999
--- pgnus-0.95/lisp/gnus-sum.el	Tue Jul 20 02:18:09 1999
***************
*** 5280,5286 ****
      (unless quit-config
        ;; Do adaptive scoring, and possibly save score files.
        (when gnus-newsgroup-adaptive
! 	(gnus-score-adaptive))
        (when gnus-use-scoring
  	(gnus-score-save)))
      (gnus-run-hooks 'gnus-summary-prepare-exit-hook)
--- 5280,5287 ----
      (unless quit-config
        ;; Do adaptive scoring, and possibly save score files.
        (when gnus-newsgroup-adaptive
! 	(let ((gnus-newsgroup-adaptive gnus-use-adaptive-scoring))
! 	  (gnus-score-adaptive)))
        (when gnus-use-scoring
  	(gnus-score-save)))
      (gnus-run-hooks 'gnus-summary-prepare-exit-hook)