From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/37708 Path: main.gmane.org!not-for-mail From: Karl Kleinpaste Newsgroups: gmane.emacs.gnus.general Subject: Patch to fix "extra" paren mismatch problem in gnus-score.el Date: Sat, 11 Aug 2001 09:44:37 -0400 Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035173077 15266 80.91.224.250 (21 Oct 2002 04:04:37 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:04:37 +0000 (UTC) Return-Path: Return-Path: Original-Received: (qmail 6157 invoked from network); 11 Aug 2001 13:45:07 -0000 Original-Received: from mesquite.slip.cs.cmu.edu (HELO cinnamon.vanillaknot.com) (128.2.207.11) by gnus.org with SMTP; 11 Aug 2001 13:45:07 -0000 Original-Received: (from karl@localhost) by cinnamon.vanillaknot.com (8.11.2/8.11.2) id f7BDic117905; Sat, 11 Aug 2001 09:44:38 -0400 Original-To: ding@gnus.org X-Face: ?=p^Gj2JkX~UU_@W}[q/'Dxn19x-zfIQ](y<&ky/?1-&Nz&,!W}R.Gp+"LeGojoR =RF>?!XVs{a:`Yt(gqM<#$Zy(C@]'dR4Hy4S1.I(n3:2"R:=Uy!)K9>U!gNTyH{p +_w#F[gt).$Vyvo5=9LF^PeQ(@H#}QLAbfyYxX/8t:TDR5nA\|RmJO"EwjL8tWyvM User-Agent: Gnus/5.090004 (Oort Gnus v0.04) XEmacs/21.4 (Artificial Intelligence) Original-Lines: 5 Xref: main.gmane.org gmane.emacs.gnus.general:37708 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:37708 --=-=-= Please commit the following fix to a very old, very stupid error on my part. --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=match.diff Content-Description: gnus-score.el fix -- correct `match' setting --- ChangeLog~ Thu Aug 9 20:07:45 2001 +++ ChangeLog Sat Aug 11 09:41:07 2001 @@ -1,3 +1,8 @@ +2001-08-11 09:40:00 Karl Kleinpaste + + * gnus-score.el (gnus-score-string): Fix `match' regexp + for `extra' header case. + 2001-08-09 15:00:00 ShengHuo ZHU * nndraft.el (nndraft-request-group): Use --- gnus-score.el.~1~ Tue Jul 24 21:55:17 2001 +++ gnus-score.el Sat Aug 11 09:36:55 2001 @@ -1952,7 +1952,7 @@ ;; 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 --=-=-=--