* gnus.el (gnus-kill-buffer): Move to gnus.el because it's

logically the complement of gnus-get-buffer-create and
gnus-add-buffer.

* gnus-util.el (gnus-kill-buffer): do.

* nnmail.el: Autoload gnus-kill-buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6b4e7dc..b9439d9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2003-02-12  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus.el (gnus-kill-buffer): Move to gnus.el because it's
+       logically the complement of gnus-get-buffer-create and
+       gnus-add-buffer.
+
+       * gnus-util.el (gnus-kill-buffer): do.
+
+       * nnmail.el: Autoload gnus-kill-buffer.
+
 2002-02-11  Kevin Greiner  <kgreiner@xpediantsolutions.com>
 
        * gnus-agent.el (gnus-summary-set-agent-mark): Added call to

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index e844fa7..8202753 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -124,13 +124,6 @@
        (funcall (if (stringp buffer) 'get-buffer 'buffer-name)
                buffer))))
 
-(defmacro gnus-kill-buffer (buffer)
-  `(let ((buf ,buffer))
-     (when (gnus-buffer-exists-p buf)
-       (when (boundp 'gnus-buffers)
-        (setq gnus-buffers (delete (get-buffer buf) gnus-buffers)))
-       (kill-buffer buf))))
-
 (defalias 'gnus-point-at-bol
   (if (fboundp 'point-at-bol)
       'point-at-bol

diff --git a/lisp/gnus.el b/lisp/gnus.el
index e9991b4..06abab9 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -771,6 +771,13 @@ be set in `.emacs' instead."
   "Add the current buffer to the list of Gnus buffers."
   (push (current-buffer) gnus-buffers))
 
+(defmacro gnus-kill-buffer (buffer)
+  "Kill BUFFER and remove from the list of Gnus buffers."
+  `(let ((buf ,buffer))
+     (when (gnus-buffer-exists-p buf)
+       (setq gnus-buffers (delete (get-buffer buf) gnus-buffers))
+       (kill-buffer buf))))
+
 (defun gnus-buffers ()
   "Return a list of live Gnus buffers."
   (while (and gnus-buffers

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index fd2fccf..c4a347f 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -36,7 +36,8 @@
 (require 'mm-util)
 
 (eval-and-compile
-  (autoload 'gnus-add-buffer "gnus"))
+  (autoload 'gnus-add-buffer "gnus")
+  (autoload 'gnus-kill-buffer "gnus"))
 
 (defgroup nnmail nil
   "Reading mail with Gnus."