(gnus-score-followup): Also score immediate

followups.

	* nnweb.el (nnweb-asynchronous-p): Changed to nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fbb2590..66c5f20 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2003-01-07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-score.el (gnus-score-followup): Also score immediate
+       followups. 
+
+2003-01-06  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nnweb.el (nnweb-asynchronous-p): Changed to nil.
+

 2003-01-07  Simon Josefsson  <jas@extundo.com>
 
        * message.el (message-mode-menu): Fix receipt balloon help.
 2003-01-07  Simon Josefsson  <jas@extundo.com>
 
        * message.el (message-mode-menu): Fix receipt balloon help.

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index 837ab13..fec2480 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -1830,6 +1830,7 @@ score in `gnus-newsgroup-scored' by SCORE."
                (setq found (setq arts (get-text-property (point) 'articles)))
                ;; Found a match, update scores.
                (while (setq art (pop arts))
                (setq found (setq arts (get-text-property (point) 'articles)))
                ;; Found a match, update scores.
                (while (setq art (pop arts))

+                 (setcdr art (+ score (cdr art)))

                  (when (setq new (gnus-score-add-followups
                                   (car art) score all-scores thread))
                    (push new news)))))
                  (when (setq new (gnus-score-add-followups
                                   (car art) score all-scores thread))
                    (push new news)))))

diff --git a/lisp/nnweb.el b/lisp/nnweb.el
index 710b554..e3a9625 100644 (file)
--- a/lisp/nnweb.el
+++ b/lisp/nnweb.el
@@ -203,7 +203,7 @@ Valid types include `google', `dejanews', and `gmane'.")
   (nnweb-possibly-change-server group server))
 
 (deffoo nnweb-asynchronous-p ()
   (nnweb-possibly-change-server group server))
 
 (deffoo nnweb-asynchronous-p ()

-  t)
+  nil)

 
 (deffoo nnweb-request-create-group (group &optional server args)
   (nnweb-possibly-change-server nil server)
 
 (deffoo nnweb-request-create-group (group &optional server args)
   (nnweb-possibly-change-server nil server)