From 6131a096057ec6f0a46a8eeb119e8126f21e1c44 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 20 Oct 2009 05:12:15 +0000 Subject: [PATCH] (gnus-remove-overlays): eval-and-compile. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-sum.el | 15 ++++++++------- 2 files changed, 12 insertions(+), 7 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index b98b9c99540..2c361ae6180 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2009-10-20 Katsumi Yamaoka + + * gnus-sum.el (gnus-remove-overlays): eval-and-compile. + 2009-10-19 Katsumi Yamaoka * gnus-sum.el (gnus-summary-show-thread): Remove useless goto-char. diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index fb80d605308..21a213d4f02 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -11277,14 +11277,15 @@ If ARG is positive number, turn showing conversation threads on." (gnus-message 6 "Threading is now %s" (if gnus-show-threads "on" "off")) (gnus-summary-position-point))) -(if (fboundp 'remove-overlays) - (defalias 'gnus-remove-overlays 'remove-overlays) - (defun gnus-remove-overlays (beg end name val) - "Clear BEG and END of overlays whose property NAME has value VAL. +(eval-and-compile + (if (fboundp 'remove-overlays) + (defalias 'gnus-remove-overlays 'remove-overlays) + (defun gnus-remove-overlays (beg end name val) + "Clear BEG and END of overlays whose property NAME has value VAL. For compatibility with Emacs 21 and XEmacs." - (dolist (ov (gnus-overlays-in beg end)) - (when (eq (gnus-overlay-get ov name) val) - (gnus-delete-overlay ov))))) + (dolist (ov (gnus-overlays-in beg end)) + (when (eq (gnus-overlay-get ov name) val) + (gnus-delete-overlay ov)))))) (defun gnus-summary-show-all-threads () "Show all threads." -- 2.39.5