From 51e0ab6f555392a2f4709515d46a848e0cd1a035 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 20 Nov 2005 05:37:21 +0000 Subject: [PATCH] Synch to No Gnus 200511200446. --- lisp/ChangeLog | 18 ++++++++++++++++++ lisp/gnus-agent.el | 2 +- lisp/gnus-group.el | 2 +- lisp/gnus-sum.el | 25 +++++++++++++++---------- 4 files changed, 35 insertions(+), 12 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6b92392..8bb6dcc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,21 @@ +2005-11-19 Kevin Greiner + + * gnus-sum.el (gnus-fetch-old-headers): Updated docs to warn that + it can seriously impact performance as it bypasses the agent's + local caches. + +2005-11-19 Kevin Greiner + + * gnus-agent.el (gnus-agent-possibly-synchronize-flags): A server + must be explicitly online rather than "not explicitly offline" for + its flags to be synchronized. + + * gnus-sum.el (gnus-summary-remove-process-mark): Always return t so + that gnus-uu-unmark-thread will function correctly. + + * gnus-group.el (gnus-total-fetched-for): Reduced cutoff so that + 1024K is instead displayed as 1M. + 2005-11-17 Lars Magne Ingebrigtsen * flow-fill.el (fill-flowed): Bind adaptive-fill-mode to nil. diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 31a5bbc..f83fb89 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -850,7 +850,7 @@ be a select method." (save-excursion (dolist (gnus-command-method (gnus-agent-covered-methods)) (when (and (file-exists-p (gnus-agent-lib-file "flags")) - (not (eq (gnus-server-status gnus-command-method) 'offline))) + (eq (gnus-server-status gnus-command-method) 'ok)) (gnus-agent-possibly-synchronize-flags-server gnus-command-method))))) (defun gnus-agent-synchronize-flags-server (method) diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 6139179..c7fbad9 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -1742,7 +1742,7 @@ If FIRST-TOO, the current line is also eligible as a target." (size (+ size-in-cache size-in-agent)) (suffix '("B" "K" "M" "G")) (scale 1024.0) - (cutoff (* 10 scale))) + (cutoff scale)) (while (> size cutoff) (setq size (/ size scale) suffix (cdr suffix))) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index d1b302c..fe11a89 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -72,17 +72,21 @@ it will be killed sometime later." (defcustom gnus-fetch-old-headers nil "*Non-nil means that Gnus will try to build threads by grabbing old headers. -If an unread article in the group refers to an older, already read (or -just marked as read) article, the old article will not normally be -displayed in the Summary buffer. If this variable is t, Gnus -will attempt to grab the headers to the old articles, and thereby -build complete threads. If it has the value `some', only enough -headers to connect otherwise loose threads will be displayed. This -variable can also be a number. In that case, no more than that number -of old headers will be fetched. If it has the value `invisible', all +If an unread article in the group refers to an older, already +read (or just marked as read) article, the old article will not +normally be displayed in the Summary buffer. If this variable is +t, Gnus will attempt to grab the headers to the old articles, and +thereby build complete threads. If it has the value `some', all +old headers will be fetched but only enough headers to connect +otherwise loose threads will be displayed. This variable can +also be a number. In that case, no more than that number of old +headers will be fetched. If it has the value `invisible', all old headers will be fetched, but none will be displayed. -The server has to support NOV for any of this to work." +The server has to support NOV for any of this to work. + +This feature can seriously impact performance it ignores all +locally cached header entries." :group 'gnus-thread :type '(choice (const :tag "off" nil) (const :tag "on" t) @@ -10088,7 +10092,8 @@ the actual number of articles marked is returned." (when (gnus-summary-goto-subject article) (gnus-summary-show-thread) (gnus-summary-goto-subject article) - (gnus-summary-update-secondary-mark article)))) + (gnus-summary-update-secondary-mark article))) + t) (defun gnus-summary-set-saved-mark (article) "Set the process mark on ARTICLE and update the summary line." -- 1.7.10.4