diff options
| -rw-r--r-- | lisp/gnus/nntp.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el index 4067d566eb6..4a82b036dd7 100644 --- a/lisp/gnus/nntp.el +++ b/lisp/gnus/nntp.el | |||
| @@ -871,7 +871,9 @@ This function is supposed to be called from `nntp-server-opened-hook'." | |||
| 871 | (set-buffer (process-buffer (car entry))) | 871 | (set-buffer (process-buffer (car entry))) |
| 872 | (erase-buffer) | 872 | (erase-buffer) |
| 873 | (nntp-send-string (car entry) (concat "GROUP " group)) | 873 | (nntp-send-string (car entry) (concat "GROUP " group)) |
| 874 | (nntp-wait-for-string "^2.*\n") | 874 | ;; allow for unexpected responses, since this can be called |
| 875 | ;; from a timer with quit inhibited | ||
| 876 | (nntp-wait-for-string "^[245].*\n") | ||
| 875 | (setcar (cddr entry) group) | 877 | (setcar (cddr entry) group) |
| 876 | (erase-buffer)))))) | 878 | (erase-buffer)))))) |
| 877 | 879 | ||