*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e06ddcd..a9f74d2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,8 @@
 2002-11-25  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@uni-duisburg.de>
+
+       * gnus-agent.el (gnus-agent-check-overview-buffer): Make debugger
+       print message on entry.
+
        From Kevin Greiner <kgreiner@xpediantsolutions.com>.
 
        * gnus-range.el (gnus-range-difference): New function.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 4afaec7..c01ae96 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1089,11 +1089,11 @@ and that there are no duplicates."
                 (cond ((= cur prev-num)
                        (gnus-message 10
                                      "Duplicate overview line for %d" cur)
-                       (debug)
+                       (debug nil (format "Duplicate overview line for %d" cur))
                        (delete-region (point) (progn (forward-line 1) (point))))
                       ((< cur prev-num)
                        (gnus-message 10 "Overview buffer not sorted!")
-                       (debug))))
+                       (debug nil "Overview buffer not sorted!"))))
               (setq prev-num (number-at-point)))))))))