/[emacs]/emacs/lisp/gnus/gnus.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25 by zsh, Thu Jan 16 01:19:02 2003 UTC revision 1.26 by lektu, Tue Feb 4 13:06:38 2003 UTC
# Line 2852  Disallow invalid group names." Line 2852  Disallow invalid group names."
2852    (let ((prefix "")    (let ((prefix "")
2853          group)          group)
2854      (while (not group)      (while (not group)
2855        (when (string-match        (when (string-match
2856               gnus-invalid-group-regexp               gnus-invalid-group-regexp
2857               (setq group (read-string (concat prefix prompt)               (setq group (read-string (concat prefix prompt)
2858                                        (cons (or default "") 0)                                        (cons (or default "") 0)

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26