Commit 5bdb0c6d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(gnus-group-group-name): Get rid of text properties.

parent c5928db2
;;; 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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment