* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 31a0969..7f014f8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2005-11-19  Kevin Greiner  <kevin.greiner@compsol.cc>
+
+       * 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  <larsi@gnus.org>
 
        * flow-fill.el (fill-flowed): Bind adaptive-fill-mode to nil. 

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 7daf318..634b2b7 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -838,7 +838,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 1254f09..36094fc 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1703,7 +1703,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 7204bef..dfc3c09 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -10020,7 +10020,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."