diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-16 01:40:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-16 01:40:38 +0000 |
| commit | 5bdb0c6d63128c88ddff37cd14baa8ae267348a9 (patch) | |
| tree | 7d0da2789967e017621afdbaed6c30e46a4e4d2c /lisp/gnus.el | |
| parent | c5928db2986bfeab1a5b4a0da029074327b7285a (diff) | |
| download | emacs-5bdb0c6d63128c88ddff37cd14baa8ae267348a9.tar.gz | |
(gnus-group-group-name): Get rid of text properties.
Diffstat (limited to 'lisp/gnus.el')
| -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 @@ -;;; GNUS: an NNTP-based News Reader for GNU Emacs +;;; gnus.el --- NNTP-based News Reader for GNU Emacs ;; Copyright (C) 1987,88,89,90,93,94 Free Software Foundation, Inc. ;; 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." (save-excursion (beginning-of-line) (if (looking-at "^.+:[ \t]+\\([^ \t\n]+\\)\\([ \t].*\\|$\\)") - (buffer-substring (match-beginning 1) (match-end 1)) - ))) + (let ((group-name (buffer-substring (match-beginning 1) (match-end 1)))) + (set-text-properties 0 (length group-name) nil group-name) + group-name)))) (defun gnus-group-make-regexp (newsgroup) "Return regexp that matches for a line of NEWSGROUP." |