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

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a9f74d2..e67ddbc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2002-11-26  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-agent.el (gnus-agent-check-overview-buffer): No warning.
+
+2002-11-26  Kai Gro,A_(Bjohann  <kai.grossjohann@uni-duisburg.de>
+
+	* gnus-agent.el (gnus-agent-check-overview-buffer): Explicitly
+	require thingatpt (for number-at-point) and protect against
+	deactivate-mark being unbound (on XEmacs).
+
 2002-11-25  Kai Gro,A_(Bjohann  <kai.grossjohann@uni-duisburg.de>
 
 	* gnus-agent.el (gnus-agent-check-overview-buffer): Make debugger
diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 28899de..da70485 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1090,11 +1090,14 @@ This can be added to `gnus-select-article-hook' or
 In particular, checks that the file is sorted by article number
 and that there are no duplicates."
   (let (prev-num)
+    (require 'thingatpt)
     (save-excursion
       (when buffer (set-buffer buffer))
       (save-excursion
         (save-restriction
-          (let ((deactivate-mark deactivate-mark))
+          (let ((deactivate-mark (if (boundp 'deactivate-mark)
+				     (symbol-value 'deactivate-mark)
+				   nil)))
             (widen)
             (goto-char (point-min))
             (setq prev-num (number-at-point))