Fix from Karl Kleinpaste.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 85c5d91..8cecce9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-08-11 09:40:00  Karl Kleinpaste  <karl@charcoal.com>
+       Committed by Kai Gro\e,A_\e(Bjohann.
+       
+       * gnus-score.el (gnus-score-string): Fix `match' regexp
+       for `extra' header case.
+
 2001-08-10 23:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * nnmbox.el (nnmbox-read-mbox): No warning.

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index 160b513..31825dd 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -1952,7 +1952,7 @@ score in GNUS-NEWSGROUP-SCORED by SCORE."
          ;; Evil hackery to make match usable in non-standard headers.
          (when extra
            (setq match (concat "[ (](" extra " \\. \"[^)]*"
-                               match "[^(]*\")[ )]")
+                               match "[^\"]*\")[ )]")
                  search-func 're-search-forward)) ; XXX danger?!?
 
          (cond