From: yamaoka <yamaoka>
Date: Wed, 13 Aug 2003 22:50:08 +0000 (+0000)
Subject: Synch to Gnus 200308131634.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6157ef5cd30619290d7726ae1522d20bf12e6dcc;p=elisp%2Fgnus.git-

Synch to Gnus 200308131634.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4df0a2a..278ff89 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-08-13  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* gnus-score.el (gnus-summary-score-effect): Fix interactive use.
+
 2003-08-10  Teodor Zlatanov  <tzz@lifelogs.com>
 
 	* gnus-draft.el (gnus-draft-send-all-messages): ask if all drafts
diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index 18d5275..ce255e8 100644
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -910,7 +910,7 @@ If optional argument `EXTRA' is non-nil, it's a non-standard overview header."
     ;; Return the new scoring rule.
     new))
 
-(defun gnus-summary-score-effect (header match type score extra)
+(defun gnus-summary-score-effect (header match type score &optional extra)
   "Simulate the effect of a score file entry.
 HEADER is the header being scored.
 MATCH is the string we are looking for.
@@ -922,8 +922,8 @@ EXTRA is the possible non-standard header."
 				      (lambda (x) (fboundp (nth 2 x)))
 				      t)
 		     (read-string "Match: ")
-		     (y-or-n-p "Use regexp match? ")
-		     (prefix-numeric-value current-prefix-arg)))
+		     (if (y-or-n-p "Use regexp match? ") 'r 's)
+		     (string-to-int (read-string "Score: "))))
   (save-excursion
     (unless (and (stringp match) (> (length match) 0))
       (error "No match"))