comparison lisp/gnus/nntp.el @ 78013:9db7ff557d0e

Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 230-231) - ChangeLog tweak - Update from CVS 2007-06-14 Katsumi Yamaoka <[e-mail]> * lisp/gnus/gnus-agent.el (gnus-agent-fetch-headers) (gnus-agent-retrieve-headers): Bind gnus-decode-encoded-address-function to identity. * lisp/gnus/nntp.el (nntp-send-xover-command): Recognize an xover command is available also when the server returns simply a dot. * lisp/gnus/gnus-ems.el (gnus-x-splash): Redisplay window before measuring it. Revision: [e-mail]/emacs--rel--22--patch-48

78012:9e572cd34254

		 ;; We also have to look at the lines.  Some buggy
		 ;; servers give back simple lines with just the
		 ;; article number.  How... helpful.
		 (progn
		   (forward-line 1)
		   (looking-at "[0-9]+\t...")) ; More text after number.
		 (setq nntp-server-xover (car commands))))
	  (setq commands (cdr commands)))
	;; If none of the commands worked, we disable XOVER.
	(when (eq nntp-server-xover 'try)
	  (save-excursion

78013:9db7ff557d0e

		 ;; We also have to look at the lines.  Some buggy
		 ;; servers give back simple lines with just the
		 ;; article number.  How... helpful.
		 (progn
		   (forward-line 1)
		   ;; More text after number, or a dot.
		   (looking-at "[0-9]+\t...\\|\\.\r?\n"))
		 (setq nntp-server-xover (car commands))))
	  (setq commands (cdr commands)))
	;; If none of the commands worked, we disable XOVER.
	(when (eq nntp-server-xover 'try)
	  (save-excursion