From a92bbc45fd5f70a2db1f4432da83be74322bd966 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 14 Jun 2007 12:21:18 +0000 Subject: [PATCH] * gnus-agent.el (gnus-agent-fetch-headers, gnus-agent-retrieve-headers): Bind gnus-decode-encoded-address-function to identity. * nntp.el (nntp-send-xover-command): Recognize an xover command is available also when the server returns simply a dot. * gnus-ems.el (gnus-x-splash): Redisplay window before measuring it. --- lisp/ChangeLog | 11 +++++++++++ lisp/gnus-agent.el | 2 ++ lisp/gnus-ems.el | 1 + lisp/nntp.el | 3 ++- 4 files changed, 16 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ffc5a1bb4..c979b31d9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,14 @@ +2007-06-14 Katsumi Yamaoka + + * gnus-agent.el (gnus-agent-fetch-headers) + (gnus-agent-retrieve-headers): Bind + gnus-decode-encoded-address-function to identity. + + * nntp.el (nntp-send-xover-command): Recognize an xover command is + available also when the server returns simply a dot. + + * gnus-ems.el (gnus-x-splash): Redisplay window before measuring it. + 2007-06-08 Katsumi Yamaoka * gnus-ems.el (gnus-x-splash): Fix calculation; error in tty. diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 39b9d61b4..cc1b5f8c2 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -1854,6 +1854,7 @@ article numbers will be returned." (gnus-uncompress-range (gnus-active group)) (gnus-list-of-unread-articles group))) (gnus-decode-encoded-word-function 'identity) + (gnus-decode-encoded-address-function 'identity) (file (gnus-agent-article-name ".overview" group))) (unless fetch-all @@ -3709,6 +3710,7 @@ has been fetched." (save-excursion (gnus-agent-create-buffer) (let ((gnus-decode-encoded-word-function 'identity) + (gnus-decode-encoded-address-function 'identity) (file (gnus-agent-article-name ".overview" group)) cached-articles uncached-articles) (gnus-make-directory (nnheader-translate-file-chars diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el index 11d8d7cd8..288828947 100644 --- a/lisp/gnus-ems.el +++ b/lisp/gnus-ems.el @@ -175,6 +175,7 @@ (file (nnheader-find-etc-directory "images/gnus/x-splash" t)) pixmap fcw fch width height fringes sbars left yoffset top ls) (erase-buffer) + (sit-for 0) ;; Necessary for measuring the window size correctly. (when (and file (ignore-errors (let ((coding-system-for-read 'raw-text) diff --git a/lisp/nntp.el b/lisp/nntp.el index aa34293f5..004b0679e 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -1651,7 +1651,8 @@ password contained in '~/.nntp-authinfo'." ;; article number. How... helpful. (progn (forward-line 1) - (looking-at "[0-9]+\t...")) ; More text after number. + ;; 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. -- 2.34.1