Remove more debug statements.
authorLars Magne Ingebrigtsen <larsi@gnus.org>
Fri, 13 Dec 2002 15:57:15 +0000 (15:57 +0000)
committerLars Magne Ingebrigtsen <larsi@gnus.org>
Fri, 13 Dec 2002 15:57:15 +0000 (15:57 +0000)
lisp/gnus-agent.el

index 0d1cbbc..1457a24 100644 (file)
@@ -1088,20 +1088,19 @@ and that there are no duplicates."
                    (cur (condition-case nil
                             (read (current-buffer))
                           (error nil))))
-               (cond ((or (not (integerp cur))
-                          (not (eq (char-after) ?\t)))
-                      (gnus-message 1
-                                    "Overview buffer contains garbage '%s'." (buffer-substring p (progn (end-of-line) (point))))
-                      (debug nil "Overview buffer contains line that does not begin with a tab-delimited integer."))
+               (cond
+                ((or (not (integerp cur))
+                     (not (eq (char-after) ?\t)))
+                 (gnus-message 1
+                               "Overview buffer contains garbage '%s'." (buffer-substring p (progn (end-of-line) (point)))))
                 ((= cur prev-num)
-                      (gnus-message 1
-                                    "Duplicate overview line for %d" cur)
+                 (gnus-message 1
+                               "Duplicate overview line for %d" cur)
                  (delete-region (point) (progn (forward-line 1) (point))))
                 ((< cur prev-num)
-                      (gnus-message 1 "Overview buffer not sorted!")
-                      (debug nil "Overview buffer not sorted!"))
-                     (t
-                      (setq prev-num cur)))
+                 (gnus-message 1 "Overview buffer not sorted!"))
+                (t
+                 (setq prev-num cur)))
                (forward-line 1)))))))))
 
 (defun gnus-agent-flush-cache ()