Mercurial > emacs
comparison lisp/gnus/gnus-score.el @ 54491:20521edcb286
(gnus-score-find-bnews): Simplify and don't assume point-min == 1.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 22 Mar 2004 15:10:39 +0000 |
| parents | 39dd3ea9e1d1 |
| children | 55fd4f77387a 0fde48feb604 |
comparison
equal
deleted
inserted
replaced
| 54490:0045ce238ded | 54491:20521edcb286 |
|---|---|
| 2584 (goto-char (point-min)) | 2584 (goto-char (point-min)) |
| 2585 (while (search-forward "all" nil t) | 2585 (while (search-forward "all" nil t) |
| 2586 (replace-match ".*" t t)) | 2586 (replace-match ".*" t t)) |
| 2587 (goto-char (point-min)) | 2587 (goto-char (point-min)) |
| 2588 ;; Deal with "not."s. | 2588 ;; Deal with "not."s. |
| 2589 (if (looking-at "not.") | 2589 (setq not-match (looking-at "not.")) |
| 2590 (progn | 2590 (setq regexp |
| 2591 (setq not-match t) | 2591 (concat "^" (buffer-substring (+ (point-min) (if not-match 4 0)) |
| 2592 (setq regexp | 2592 (point-max)) |
| 2593 (concat "^" (buffer-substring 5 (point-max)) "$"))) | 2593 "$")) |
| 2594 (setq regexp (concat "^" (buffer-substring 1 (point-max)) "$")) | |
| 2595 (setq not-match nil)) | |
| 2596 ;; Finally - if this resulting regexp matches the group name, | 2594 ;; Finally - if this resulting regexp matches the group name, |
| 2597 ;; we add this score file to the list of score files | 2595 ;; we add this score file to the list of score files |
| 2598 ;; applicable to this group. | 2596 ;; applicable to this group. |
| 2599 (when (or (and not-match | 2597 (when (or (and not-match |
| 2600 (ignore-errors | 2598 (ignore-errors |