[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-agent.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     06/06/07 16:39:16

Index: lisp/gnus/gnus-agent.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-agent.el,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -b -r1.27 -r1.28
--- lisp/gnus/gnus-agent.el     21 Mar 2006 20:37:02 -0000      1.27
+++ lisp/gnus/gnus-agent.el     7 Jun 2006 16:39:15 -0000       1.28
@@ -825,7 +825,7 @@
   (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)
@@ -2133,7 +2133,8 @@
             (let (group
                   min
                   max
-                  (cur (current-buffer)))
+                  (cur (current-buffer))
+                 (obarray my-obarray))
               (setq group (read cur)
                     min (read cur)
                     max (read cur))
@@ -2214,7 +2215,9 @@
 
     (if (cond ((and minmax
                     (or (not (eq min (car minmax)))
-                        (not (eq max (cdr minmax)))))
+                        (not (eq max (cdr minmax))))
+                   min
+                   max)
                (setcar minmax min)
                (setcdr minmax max)
                t)
@@ -3743,8 +3746,10 @@
              (dir (file-name-directory file))
              point
              (downloaded (if (file-exists-p dir)
-                             (sort (mapcar (lambda (name) (string-to-number 
name))
-                                           (directory-files dir nil "^[0-9]+$" 
t))
+                          (sort (delq nil (mapcar (lambda (name) 
+                                                    (and (not 
(file-directory-p (nnheader-concat dir name)))
+                                                         (string-to-number 
name)))
+                                                  (directory-files dir nil 
"^[0-9]+$" t)))
                                    '>)
                            (progn (gnus-make-directory dir) nil)))
              dl nov-arts