From 5c2d59a29fd025c17634c5984e76b1d8256f6416 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 26 Nov 2002 11:27:45 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 10 ++++++++++ lisp/gnus-agent.el | 5 ++++- 2 files changed, 14 insertions(+), 1 deletion(-) 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 + + * gnus-agent.el (gnus-agent-check-overview-buffer): No warning. + +2002-11-26 Kai Gro,A_(Bjohann + + * 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 * 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)) -- 1.7.10.4