From fc7bf2631ff7632bbb8d383196898d85589a71a3 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 26 Oct 2000 17:42:44 +0000 Subject: [PATCH] 2000-10-08 10:59:13 ShengHuo ZHU * gnus-util.el (gnus-kill-all-overlays): Move out. --- lisp/gnus/ChangeLog | 34 ++++++++++++++++++++++++++++++++++ lisp/gnus/gnus-util.el | 8 -------- 2 files changed, 34 insertions(+), 8 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 9e6e8e50fd..1542699c01 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,37 @@ +2000-10-26 ShengHuo ZHU + + * gnus-ems.el: Remove gnus-xemacs. Autoload smiley. + (gnus-kill-all-overlays): Move here. + + * gnus-util.el (gnus-kill-all-overlays): Move out. + +2000-10-26 Dave Love + + * mail-source.el: Require imap when compiling and defvar + display-time-mail-function. Require mm-util. + (nnheader-cancel-timer): Autoload. + (mail-source-imap-authenticators, mail-source-imap-streams): New + variables. + (mail-sources): Use them. + (defvar): Use rmail-spool-directory unconditionally. + +2000-10-26 Dirk Meyer + + * gnus-demon.el (gnus-demon-time-to-step): theHour was set to + seconds instead of hour. + +2000-10-26 Per Abrahamsen + + * mail-source.el (mail-sources): Better `:type'. + +2000-10-26 Kai Gro,A_(Bjohann + + * mail-source.el (mail-source-keyword-map): Use + `rmail-spool-directory' as a default directory for the `file' + source, if the variable is defined. Fall back to hardcoded + "/usr/spool/mail/", as before. Suggestion by Steven E. Harris + . + 2000-10-25 Jason Rumney * gnus-art.el (gnus-signature-face): Use italic on any frame that diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 72e4d031e1..df776a7c1f 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -451,14 +451,6 @@ If N, return the Nth ancestor instead." (file-name-nondirectory file)))) (copy-file file to)) -(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))))) - (defvar gnus-work-buffer " *gnus work*") (defun gnus-set-work-buffer () -- 2.20.1