diff options
| -rw-r--r-- | lisp/gnus.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/gnus.el b/lisp/gnus.el index 4f8a612af87..1d9e5027404 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; GNUS: an NNTP-based News Reader for GNU Emacs | 1 | ;;; gnus.el --- NNTP-based News Reader for GNU Emacs |
| 2 | ;; Copyright (C) 1987,88,89,90,93,94 Free Software Foundation, Inc. | 2 | ;; Copyright (C) 1987,88,89,90,93,94 Free Software Foundation, Inc. |
| 3 | 3 | ||
| 4 | ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> | 4 | ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> |
| @@ -1442,8 +1442,9 @@ If optional argument VISIBLE-ONLY is non-nil, non displayed group is ignored." | |||
| 1442 | (save-excursion | 1442 | (save-excursion |
| 1443 | (beginning-of-line) | 1443 | (beginning-of-line) |
| 1444 | (if (looking-at "^.+:[ \t]+\\([^ \t\n]+\\)\\([ \t].*\\|$\\)") | 1444 | (if (looking-at "^.+:[ \t]+\\([^ \t\n]+\\)\\([ \t].*\\|$\\)") |
| 1445 | (buffer-substring (match-beginning 1) (match-end 1)) | 1445 | (let ((group-name (buffer-substring (match-beginning 1) (match-end 1)))) |
| 1446 | ))) | 1446 | (set-text-properties 0 (length group-name) nil group-name) |
| 1447 | group-name)))) | ||
| 1447 | 1448 | ||
| 1448 | (defun gnus-group-make-regexp (newsgroup) | 1449 | (defun gnus-group-make-regexp (newsgroup) |
| 1449 | "Return regexp that matches for a line of NEWSGROUP." | 1450 | "Return regexp that matches for a line of NEWSGROUP." |