From f8dd47a59e3ac85b7e14ff87732f1c597de84254 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 20 May 2002 14:16:08 +0000 Subject: [PATCH] 2002-05-20 Jason * gnus-art.el (gnus-request-article-this-buffer): Try reconnecting if you don't get the message. 2002-05-20 Lars Magne Ingebrigtsen * gnus-sum.el (gnus-summary-enter-digest-group): Only get Reply-To headers from the headers. 2002-05-18 Lars Magne Ingebrigtsen * mm-url.el (mm-url-insert): Remove junk message. --- lisp/ChangeLog | 14 ++++++++++++++ lisp/gnus-art.el | 16 +++++++++++----- lisp/gnus-sum.el | 4 ++-- lisp/mm-url.el | 1 - 4 files changed, 27 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 984cb5933..565e8f3ac 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,17 @@ +2002-05-20 Jason + + * gnus-art.el (gnus-request-article-this-buffer): Try + reconnecting if you don't get the message. + +2002-05-20 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-summary-enter-digest-group): Only get + Reply-To headers from the headers. + +2002-05-18 Lars Magne Ingebrigtsen + + * mm-url.el (mm-url-insert): Remove junk message. + 2002-05-17 Lars Magne Ingebrigtsen * nnslashdot.el (nnslashdot-request-list): Parse new html. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index c06f65c98..53ea9395f 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -4940,6 +4940,8 @@ If given a prefix, show the hidden text instead." (let ((gnus-override-method gnus-override-method) (methods (and (stringp article) gnus-refer-article-method)) + (backend (car (gnus-find-method-for-group + gnus-newsgroup-name))) result (buffer-read-only nil)) (if (or (not (listp methods)) @@ -4958,7 +4960,8 @@ If given a prefix, show the hidden text instead." (gnus-kill-all-overlays) (let ((gnus-newsgroup-name group)) (gnus-check-group-server)) - (when (gnus-request-article article group (current-buffer)) + (cond + ((gnus-request-article article group (current-buffer)) (when (numberp article) (gnus-async-prefetch-next group article gnus-summary-buffer) @@ -4966,10 +4969,13 @@ If given a prefix, show the hidden text instead." (gnus-backlog-enter-article group article (current-buffer)))) (setq result 'article)) - (if (not result) - (if methods - (setq gnus-override-method (pop methods)) - (setq result 'done)))) + (methods + (setq gnus-override-method (pop methods))) + ((not (string-match "^400 " + (nnheader-get-report backend))) + ;; If we get 400 server disconnect, reconnect and + ;; retry; otherwise, assume the article has expired. + (setq result 'done)))) (and (eq result 'article) 'article))) ;; It was a pseudo. (t article))) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 859535e0a..dd18ff81e 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -7813,8 +7813,8 @@ to guess what the document format is." (set-buffer gnus-original-article-buffer) ;; Have the digest group inherit the main mail address of ;; the parent article. - (when (setq to-address (or (message-fetch-field "reply-to") - (message-fetch-field "from"))) + (when (setq to-address (or (gnus-fetch-field "reply-to") + (gnus-fetch-field "from"))) (setq params (append (list (cons 'to-address (funcall gnus-decode-encoded-word-function diff --git a/lisp/mm-url.el b/lisp/mm-url.el index f57875564..ab18a5747 100644 --- a/lisp/mm-url.el +++ b/lisp/mm-url.el @@ -310,7 +310,6 @@ If FOLLOW-REFRESH is non-nil, redirect refresh url in META." (done nil) (first t) result) - (message "%s" url) (while (and (not (zerop (decf times))) (not done)) (with-timeout (mm-url-timeout) -- 2.25.1