aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDave Love2000-10-26 17:42:44 +0000
committerDave Love2000-10-26 17:42:44 +0000
commitfc7bf2631ff7632bbb8d383196898d85589a71a3 (patch)
treeb0e83c4121c5ba949abae94dfd1b0375cf54bd34
parent06c43cdf99ba34b92fe113e8bda03d73a2bfa905 (diff)
downloademacs-fc7bf2631ff7632bbb8d383196898d85589a71a3.tar.gz
emacs-fc7bf2631ff7632bbb8d383196898d85589a71a3.zip
2000-10-08 10:59:13 ShengHuo ZHU <zsh@cs.rochester.edu>
* gnus-util.el (gnus-kill-all-overlays): Move out.
-rw-r--r--lisp/gnus/ChangeLog34
-rw-r--r--lisp/gnus/gnus-util.el8
2 files changed, 34 insertions, 8 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9e6e8e50fde..1542699c01f 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,37 @@
12000-10-26 ShengHuo ZHU <zsh@cs.rochester.edu>
2
3 * gnus-ems.el: Remove gnus-xemacs. Autoload smiley.
4 (gnus-kill-all-overlays): Move here.
5
6 * gnus-util.el (gnus-kill-all-overlays): Move out.
7
82000-10-26 Dave Love <fx@gnu.org>
9
10 * mail-source.el: Require imap when compiling and defvar
11 display-time-mail-function. Require mm-util.
12 (nnheader-cancel-timer): Autoload.
13 (mail-source-imap-authenticators, mail-source-imap-streams): New
14 variables.
15 (mail-sources): Use them.
16 (defvar): Use rmail-spool-directory unconditionally.
17
182000-10-26 Dirk Meyer <dischi@tzi.de>
19
20 * gnus-demon.el (gnus-demon-time-to-step): theHour was set to
21 seconds instead of hour.
22
232000-10-26 Per Abrahamsen <abraham@dina.kvl.dk>
24
25 * mail-source.el (mail-sources): Better `:type'.
26
272000-10-26 Kai Gro,A_(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
28
29 * mail-source.el (mail-source-keyword-map): Use
30 `rmail-spool-directory' as a default directory for the `file'
31 source, if the variable is defined. Fall back to hardcoded
32 "/usr/spool/mail/", as before. Suggestion by Steven E. Harris
33 <seh@speakeasy.org>.
34
12000-10-25 Jason Rumney <jasonr@gnus.org> 352000-10-25 Jason Rumney <jasonr@gnus.org>
2 36
3 * gnus-art.el (gnus-signature-face): Use italic on any frame that 37 * 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 72e4d031e1c..df776a7c1f1 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -451,14 +451,6 @@ If N, return the Nth ancestor instead."
451 (file-name-nondirectory file)))) 451 (file-name-nondirectory file))))
452 (copy-file file to)) 452 (copy-file file to))
453 453
454(defun gnus-kill-all-overlays ()
455 "Delete all overlays in the current buffer."
456 (let* ((overlayss (overlay-lists))
457 (buffer-read-only nil)
458 (overlays (delq nil (nconc (car overlayss) (cdr overlayss)))))
459 (while overlays
460 (delete-overlay (pop overlays)))))
461
462(defvar gnus-work-buffer " *gnus work*") 454(defvar gnus-work-buffer " *gnus work*")
463 455
464(defun gnus-set-work-buffer () 456(defun gnus-set-work-buffer ()