Mercurial > emacs

diff lisp/gnus/gnus-sum.el @ 105682:eb7471ca2f53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-remove-overlays): eval-and-compile.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Tue, 20 Oct 2009 05:12:15 +0000
parents 0504b0a2d425
children c5e66d596cbf
line wrap: on
line diff
--- a/lisp/gnus/gnus-sum.el	Tue Oct 20 01:29:17 2009 +0000
+++ b/lisp/gnus/gnus-sum.el	Tue Oct 20 05:12:15 2009 +0000
@@ -11277,14 +11277,15 @@
     (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."