Commit 6131a096 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

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

parent 79bd5ba1
2009-10-20 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-sum.el (gnus-remove-overlays): eval-and-compile.
2009-10-19 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-sum.el (gnus-summary-show-thread): Remove useless goto-char.
......
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment