Changes committed gnus/lisp (ChangeLog gnus-sum.el)

Modified: ChangeLog gnus-sum.el

(gnus-remove-overlays): eval-and-compile.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.2030 gnus/lisp/ChangeLog:7.2031
--- ChangeLog:7.2030	Tue Oct 20 01:20:48 2009
+++ ChangeLog	Tue Oct 20 07:12:07 2009
@@ -1,3 +1,7 @@
+2009-10-20  Katsumi Yamaoka  <[email protected]>
+
+	* gnus-sum.el (gnus-remove-overlays): eval-and-compile.
+
 2009-10-19  Katsumi Yamaoka  <[email protected]>
 
 	* gnus-sum.el (gnus-summary-show-thread): Remove useless goto-char.
Index: gnus-sum.el
diff -u gnus/lisp/gnus-sum.el:7.243 gnus/lisp/gnus-sum.el:7.244
--- gnus-sum.el:7.243	Tue Oct 20 01:20:48 2009
+++ gnus-sum.el	Tue Oct 20 07:12:07 2009
@@ -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."