Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |