From f962e3cde2710f1514020f1ef35f214f7aa87967 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 10 Feb 2016 14:34:22 +1100 Subject: Drop Gnus compat functions * lisp/gnus/gnus-ems.el (gnus-mule-max-width-function): Remove. * lisp/gnus/gnus-util.el (gnus-kill-all-overlays): Move here. * lisp/gnus/gnus.el (gnus-mode-line-modified): Remove. --- lisp/gnus/gnus-util.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'lisp/gnus/gnus-util.el') diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 33d96bd20eb..99565a27496 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -2069,6 +2069,14 @@ lists of strings." (setq start end end nil)))))) +(defun gnus-kill-all-overlays () + "Delete all overlays in the current buffer." + (let* ((overlayss (overlay-lists)) + (buffer-read-only nil) + (overlays (delq nil (nconc (car overlayss) (cdr overlayss))))) + (while overlays + (delete-overlay (pop overlays))))) + (provide 'gnus-util) ;;; gnus-util.el ends here -- cgit v1.2.1