Mercurial > emacs

comparison lisp/gnus/nntp.el @ 23436:629892842585

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(nntp-possibly-change-group): Allow for unexpected responses to GROUP command, since this may be called from a timer with quit inhibited.
author Richard M. Stallman <rms@gnu.org>
date Tue, 13 Oct 1998 03:24:50 +0000
parents 196f32d1873f
children 52bc669c1549
comparison
equal deleted inserted replaced
23435:dd68893482a9 23436:629892842585
869 (when (not (equal group (caddr entry))) 869 (when (not (equal group (caddr entry)))
870 (save-excursion 870 (save-excursion
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
878 (defun nntp-decode-text (&optional cr-only) 880 (defun nntp-decode-text (&optional cr-only)
879 "Decode the text in the current buffer." 881 "Decode the text in the current buffer."