Mercurial > emacs

changeset 9550:5b91f8657de6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-group-group-name): Get rid of text properties.
author Richard M. Stallman <rms@gnu.org>
date Sun, 16 Oct 1994 01:40:38 +0000
parents 1de7e5bc1ff1
children ac21ac5e8c69
files lisp/=gnus.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/=gnus.el	Sun Oct 16 01:34:57 1994 +0000
+++ b/lisp/=gnus.el	Sun Oct 16 01:40:38 1994 +0000
@@ -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 @@
   (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."