From 5bdb0c6d63128c88ddff37cd14baa8ae267348a9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 16 Oct 1994 01:40:38 +0000 Subject: [PATCH] (gnus-group-group-name): Get rid of text properties. --- lisp/gnus.el | 7 ++++--- 1 file 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 @@ -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." -- 2.39.5