Kill the process before deleting the buffer to avoid warnings.

[gnus] / lisp / nntp.el

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)))