diff options
author | Jim Blandy <jimb@redhat.com> | 1993-06-10 10:40:16 +0000 |
---|---|---|
committer | Jim Blandy <jimb@redhat.com> | 1993-06-10 10:40:16 +0000 |
commit | 09455893c2776a8d091c49bbfa71ca0defa86cf9 (patch) | |
tree | ad5e456aab81a2a02463bd44058472b2101cede9 /lisp/=gnus.el | |
parent | 28fb67584c4532df45271d27e787b64558cbb9c1 (diff) | |
download | emacs-09455893c2776a8d091c49bbfa71ca0defa86cf9.tar.gz |
* gnus.el (gnus-newsrc-to-gnus-format): Change regexp which
matches .newsrc lines for better performance under the new regexp
routines.
Diffstat (limited to 'lisp/=gnus.el')
-rw-r--r-- | lisp/=gnus.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/=gnus.el b/lisp/=gnus.el index 139dfe4edc3..f9f5c663214 100644 --- a/lisp/=gnus.el +++ b/lisp/=gnus.el @@ -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 @@ If optional argument RAWFILE is non-nil, the raw startup file is read." (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. |