Mercurial > emacs

changeset 54491:20521edcb286

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 0045ce238ded
children 75c387f0b055
files lisp/gnus/gnus-score.el
diffstat 1 files changed, 5 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- 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.