Mercurial > emacs
diff lisp/=gnus.el @ 6309:9217f29851c2
Don't use triple-hyphen in a character class.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Sat, 12 Mar 1994 00:23:12 +0000 |
parents | cfd1fc2b1c7b |
children | 6ecee038c1c9 |
line wrap: on
line diff
--- a/lisp/=gnus.el Fri Mar 11 23:38:27 1994 +0000 +++ b/lisp/=gnus.el Sat Mar 12 00:23:12 1994 +0000 @@ -2,7 +2,7 @@ ;; Copyright (C) 1987, 1988, 1989, 1990, 1993 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> -;; Version: $Header: /gd/gnu/emacs/19.0/lisp/RCS/gnus.el,v 1.32 1994/01/08 12:46:53 rms Exp kwzh $ +;; Version: $Header: /gd/gnu/emacs/19.0/lisp/RCS/gnus.el,v 1.33 1994/02/11 21:56:45 kwzh Exp kwzh $ ;; Keywords: news ;; This file is part of GNU Emacs. @@ -2350,7 +2350,7 @@ (regexp (format "^%s[ \t]+\\([0-9]+\\):.\\[[^]\r\n]*\\][ \t]+%s" ;;(if unread " " ".") - (cond ((eq unread t) " ") (unread "[ ---]") (t ".")) + (cond ((eq unread t) " ") (unread "[- ]") (t ".")) (if subject (concat "\\([Rr][Ee]:[ \t]+\\)*" (regexp-quote (gnus-simplify-subject subject)) @@ -3318,7 +3318,7 @@ (let ((buffer-read-only nil)) (save-excursion (goto-char (point-min)) - (delete-non-matching-lines "^[ ---]")) + (delete-non-matching-lines "^[- ]")) ;; Adjust point. (if (eobp) (gnus-summary-prev-subject 1) @@ -6635,7 +6635,7 @@ ;; Parse each newsgroup description such as "comp.all". Commas ;; and white spaces can be a newsgroup separator. (while - (string-match "^[ \t\n,]*\\(!?\\)\\([^--- \t\n,][^ \t\n,]*\\)" options) + (string-match "^[ \t\n,]*\\(!?\\)\\([^- \t\n,][^ \t\n,]*\\)" options) (setq yes-or-no (substring options (match-beginning 1) (match-end 1))) (setq newsgroup