0.27 problems score "lines" and score-adaptive

0.27 problems score "lines" and score-adaptive

[Loren Schall]

Hi,

I had a couple of problem starting up sgnus-0.27.  Patches appended.

`gnus-score-check-syntax' doesn't like "lines" scoring directives.  It
insists the match item must be a string.  "lines" and "date" are numeric.

`gnus-score-adaptive' builds "gnus-header-" function calls.  In 0.26
these were defined to be the same as "mail-header-" functions.  In 0.27
the "gnus-header-" function have been removed.  I changed the reference
to "gnus-header-" to "mail-header-".

I also see the same problem Kai saw with gnus-article-hide-boring-headers.
My fix looks a lot like his, so I won't repeat it here.

Loren Schall               voice: +1 602 436 5994   FAX: +1 602 436 5151
schall@saifr00.ateng.az.honeywell.com



*** gnus-score.el.orig	Tue Jan 16 13:38:15 1996
--- gnus-score.el	Tue Jan 16 22:24:46 1996
*************** (defun gnus-score-check-syntax (alist fi
*** 892,898 ****
  	       (setq 
  		err
  		(cond
! 		 ((not (stringp (car s)))
  		  (format "Illegal match %s in %s" (car s) file))
  		 ((and (cadr s) (not (integerp (cadr s))))
  		  (format "Non-integer score %s in %s" (cadr s) file))
--- 892,898 ----
  	       (setq 
  		err
  		(cond
! 		 ((not (or (stringp (car s)) (numberp (car s))))
  		  (format "Illegal match %s in %s" (car s) file))
  		 ((and (cadr s) (not (integerp (cadr s))))
  		  (format "Non-integer score %s in %s" (cadr s) file))
*************** (defun gnus-score-adaptive ()
*** 1696,1702 ****
  	  (setcar (car elem) 
  		  `(lambda (h)
  		     (,(intern 
! 			(concat "gnus-header-" 
  				(if (eq (car (car elem)) 'followup)
  				    "message-id"
  				  (downcase (symbol-name (car (car elem)))))))
--- 1696,1702 ----
  	  (setcar (car elem) 
  		  `(lambda (h)
  		     (,(intern 
! 			(concat "mail-header-" 
  				(if (eq (car (car elem)) 'followup)
  				    "message-id"
  				  (downcase (symbol-name (car (car elem)))))))