diff options
| author | Richard M. Stallman | 1994-10-16 01:40:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-10-16 01:40:38 +0000 |
| commit | 5bdb0c6d63128c88ddff37cd14baa8ae267348a9 (patch) | |
| tree | 7d0da2789967e017621afdbaed6c30e46a4e4d2c | |
| parent | c5928db2986bfeab1a5b4a0da029074327b7285a (diff) | |
| download | emacs-5bdb0c6d63128c88ddff37cd14baa8ae267348a9.tar.gz emacs-5bdb0c6d63128c88ddff37cd14baa8ae267348a9.zip | |
(gnus-group-group-name): Get rid of text properties.
| -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." |