From d2c8a290d17bb20aebc524465f62283cfd38b11b Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Wed, 13 Aug 2003 16:34:46 +0000 Subject: [PATCH] (gnus-summary-score-effect): Fix interactive use. --- lisp/ChangeLog | 4 ++++ lisp/gnus-score.el | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4df0a2ae8..278ff89c8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2003-08-13 Reiner Steib + + * gnus-score.el (gnus-summary-score-effect): Fix interactive use. + 2003-08-10 Teodor Zlatanov * 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 e3363eaca..22f7c07f8 100644 --- a/lisp/gnus-score.el +++ b/lisp/gnus-score.el @@ -875,7 +875,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. @@ -887,8 +887,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")) -- 2.34.1