comparison lisp/gnus/nntp.el @ 81436:083f03b1e625

Merge from emacs--rel--22 Patches applied: * emacs--rel--22 (patch 45-48) - Gnus ChangeLog tweaks - Update from CVS - Merge from gnus--rel--5.10 * 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--devo--0--patch-800

81435:318de4fbbc6b

		 ;; 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

81436:083f03b1e625

		 ;; 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