# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 739708816 0
# Node ID b0c94b723e6ae6d1c57fde7e06803c1c2a054f4f
# Parent  87815c142cb20033f0bde811829a84540224a3ce
	* gnus.el (gnus-newsrc-to-gnus-format): Change regexp which
	matches .newsrc lines for better performance under the new regexp
	routines.

diff -r 87815c142cb2 -r b0c94b723e6a lisp/=gnus.el
--- a/lisp/=gnus.el	Thu Jun 10 10:28:58 1993 +0000
+++ b/lisp/=gnus.el	Thu Jun 10 10:40:16 1993 +0000
@@ -1,6 +1,6 @@
 ;;; GNUS: an NNTP-based News Reader for GNU Emacs
 ;; Copyright (C) 1987, 1988, 1989, 1990, 1993 Free Software Foundation, Inc.
-;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/gnus.el,v 1.18 1993/06/05 09:17:34 rms Exp jimb $
+;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/gnus.el,v 1.19 1993/06/09 11:53:26 jimb Exp jimb $
 
 ;; This file is part of GNU Emacs.
 
@@ -6563,9 +6563,11 @@
     (goto-char (point-min))
     ;; Due to overflows in regex.c, change the following regexp:
     ;; "^\\([^:! \t\n]+\\)\\([:!]\\)[ \t]*\\(.*\\)$"
-    ;; Suggested by composer@bucsf.bu.edu (Jeff Kellem).
+    ;; Suggested by composer@bucsf.bu.edu (Jeff Kellem)
+    ;; but no longer viable because of extensive backtracking in Emacs 19:
+    ;; "^\\([^:! \t\n]+\\)\\([:!]\\)[ \t]*\\(\\(...\\)*.*\\)$" nil t)
     (while (re-search-forward
-	    "^\\([^:! \t\n]+\\)\\([:!]\\)[ \t]*\\(\\(...\\)*.*\\)$" nil t)
+	    "^\\([^:! \t\n]+\\)\\([:!]\\)[ \t]*\\(\\|[^ \t].*\\)$" nil t)
       (setq newsgroup (buffer-substring (match-beginning 1) (match-end 1)))
       ;; Check duplications of newsgroups.
       ;; Note: Checking the duplications takes very long time.