From b7d48e2d7425226c8edcb35a5ffed109aae7d5cf Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 26 Nov 2002 11:16:59 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 4 ++++ lisp/gnus-agent.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) 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 + + * gnus-agent.el (gnus-agent-check-overview-buffer): Make debugger + print message on entry. + From Kevin Greiner . * 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))))))))) -- 1.7.10.4