Mercurial > hg > xemacs-beta

comparison lisp/gnus/nntp.el @ 159:3bb7ccffb0c0 r20-3b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b6
author cvs
date Mon, 13 Aug 2007 09:41:43 +0200
parents 585fb297b004
children 0132846995bd
comparison
equal deleted inserted replaced
158:558dfa75ffb3 159:3bb7ccffb0c0
187 (defsubst nntp-wait-for (process wait-for buffer &optional decode discard) 187 (defsubst nntp-wait-for (process wait-for buffer &optional decode discard)
188 "Wait for WAIT-FOR to arrive from PROCESS." 188 "Wait for WAIT-FOR to arrive from PROCESS."
189 (save-excursion 189 (save-excursion
190 (set-buffer (process-buffer process)) 190 (set-buffer (process-buffer process))
191 (goto-char (point-min)) 191 (goto-char (point-min))
192 (while (or (not (memq (following-char) '(?2 ?3 ?4 ?5))) 192 (while (or (not (memq (char-after) '(?2 ?3 ?4 ?5)))
193 (looking-at "480")) 193 (looking-at "480"))
194 (when (looking-at "480") 194 (when (looking-at "480")
195 (erase-buffer) 195 (erase-buffer)
196 (funcall nntp-authinfo-function)) 196 (funcall nntp-authinfo-function))
197 (nntp-accept-process-output process) 197 (nntp-accept-process-output process)