Kill the process before deleting the buffer to avoid warnings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 098f5e1..b02bc03 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-08-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nntp.el (nntp-kill-buffer): Kill the process before killing the
+       buffer to avoid warnings.
+
 2011-08-20  Simon Josefsson  <simon@josefsson.org>
 
        * gnus-agent.el (gnus-agent-expire-done-message): Use %.f as format

diff --git a/lisp/nntp.el b/lisp/nntp.el
index 986fd51..cae4fb6 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -430,6 +430,9 @@ be restored and the command retried."
 
 (defun nntp-kill-buffer (buffer)
   (when (buffer-name buffer)
+    (let ((process (get-buffer-process buffer)))
+      (when process
+       (delete-process process)))
     (kill-buffer buffer)
     (nnheader-init-server-buffer)))