Commit 87e8daba authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(gnus-score-find-bnews): Simplify and don't assume point-min == 1.

parent 28d38c0b
......@@ -2586,13 +2586,11 @@ GROUP using BNews sys file syntax."
(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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment