# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1079968239 0
# Node ID 20521edcb28616d3f0c5cd18d422d3f819acbf7d
# Parent  0045ce238dedee3538fd5704f7e5954961fdaf8f
(gnus-score-find-bnews): Simplify and don't assume point-min == 1.

diff -r 0045ce238ded -r 20521edcb286 lisp/gnus/gnus-score.el
--- a/lisp/gnus/gnus-score.el	Mon Mar 22 15:08:55 2004 +0000
+++ b/lisp/gnus/gnus-score.el	Mon Mar 22 15:10:39 2004 +0000
@@ -2586,13 +2586,11 @@
 	    (replace-match ".*" t t))
 	  (goto-char (point-min))
 	  ;; Deal with "not."s.
-	  (if (looking-at "not.")
-	      (progn
-		(setq not-match t)
-		(setq regexp
-		      (concat "^" (buffer-substring 5 (point-max)) "$")))
-	    (setq regexp (concat "^" (buffer-substring 1 (point-max)) "$"))
-	    (setq not-match nil))
+	  (setq not-match (looking-at "not."))
+	  (setq regexp
+		(concat "^" (buffer-substring (+ (point-min) (if not-match 4 0))
+					      (point-max))
+			"$"))
 	  ;; Finally - if this resulting regexp matches the group name,
 	  ;; we add this score file to the list of score files
 	  ;; applicable to this group.