diff options
| author | Jim Blandy | 1993-06-29 23:03:21 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-06-29 23:03:21 +0000 |
| commit | b7e264f6806301897e7a60eb429371d8a6392e42 (patch) | |
| tree | 82064f9bb10960d8576b1d5114890be6b5429fcf | |
| parent | 918f9ad18d02e3bdf2878827b38ef9dcfbd9b3af (diff) | |
| download | emacs-b7e264f6806301897e7a60eb429371d8a6392e42.tar.gz emacs-b7e264f6806301897e7a60eb429371d8a6392e42.zip | |
* gnus.el (gnus-newsrc-to-gnus-format): Correct regexp which
matches .newsrc lines not to match more than one line.
| -rw-r--r-- | lisp/gnus.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus.el b/lisp/gnus.el index 0659418df7b..935dca78b87 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; GNUS: an NNTP-based News Reader for GNU Emacs | 1 | ;;; GNUS: an NNTP-based News Reader for GNU Emacs |
| 2 | ;; Copyright (C) 1987, 1988, 1989, 1990, 1993 Free Software Foundation, Inc. | 2 | ;; Copyright (C) 1987, 1988, 1989, 1990, 1993 Free Software Foundation, Inc. |
| 3 | ;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/gnus.el,v 1.20 1993/06/10 10:40:16 jimb Exp jimb $ | 3 | ;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/gnus.el,v 1.21 1993/06/10 11:46:43 jimb Exp jimb $ |
| 4 | 4 | ||
| 5 | ;; This file is part of GNU Emacs. | 5 | ;; This file is part of GNU Emacs. |
| 6 | 6 | ||
| @@ -6571,7 +6571,7 @@ If optional argument RAWFILE is non-nil, the raw startup file is read." | |||
| 6571 | ;; but no longer viable because of extensive backtracking in Emacs 19: | 6571 | ;; but no longer viable because of extensive backtracking in Emacs 19: |
| 6572 | ;; "^\\([^:! \t\n]+\\)\\([:!]\\)[ \t]*\\(\\(...\\)*.*\\)$" nil t) | 6572 | ;; "^\\([^:! \t\n]+\\)\\([:!]\\)[ \t]*\\(\\(...\\)*.*\\)$" nil t) |
| 6573 | (while (re-search-forward | 6573 | (while (re-search-forward |
| 6574 | "^\\([^:! \t\n]+\\)\\([:!]\\)[ \t]*\\(\\|[^ \t].*\\)$" nil t) | 6574 | "^\\([^:! \t\n]+\\)\\([:!]\\)[ \t]*\\(\\|[^ \t\n].*\\)$" nil t) |
| 6575 | (setq newsgroup (buffer-substring (match-beginning 1) (match-end 1))) | 6575 | (setq newsgroup (buffer-substring (match-beginning 1) (match-end 1))) |
| 6576 | ;; Check duplications of newsgroups. | 6576 | ;; Check duplications of newsgroups. |
| 6577 | ;; Note: Checking the duplications takes very long time. | 6577 | ;; Note: Checking the duplications takes very long time. |