From: yamaoka <yamaoka>
Date: Tue, 26 Nov 2002 11:16:59 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_10-00-quimby~70
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b7d48e2d7425226c8edcb35a5ffed109aae7d5cf;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e06ddcd..a9f74d2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,8 @@
 2002-11-25  Kai Gro,A_(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 a4068cd..28899de 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1104,11 +1104,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)))))))))