From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 29 Sep 2019 10:38:02 +0000 (+0200)
Subject: Define nndraft-close-server according to new calling conventions
X-Git-Tag: emacs-27.0.90~1382
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e8db2f51417e330a339136b416b7c5d4e296beca;p=emacs.git

Define nndraft-close-server according to new calling conventions

* lisp/gnus/nnoo.el (nnoo-define-basics-1): *-close-server now
takes a DEFS parameter (bug#20319).
---

diff --git a/lisp/gnus/nnoo.el b/lisp/gnus/nnoo.el
index c65668a7199..d52cda4eb55 100644
--- a/lisp/gnus/nnoo.el
+++ b/lisp/gnus/nnoo.el
@@ -277,11 +277,12 @@
      (nnoo-define-basics-1 ',backend)))
 
 (defun nnoo-define-basics-1 (backend)
-  (let ((functions '(close-server server-opened status-message)))
-    (while functions
-      (eval `(deffoo ,(nnoo-symbol backend (car functions))
-		 (&optional server)
-	       (,(nnoo-symbol 'nnoo (pop functions)) ',backend server)))))
+  (dolist (function '(server-opened status-message))
+    (eval `(deffoo ,(nnoo-symbol backend function) (&optional server)
+	     (,(nnoo-symbol 'nnoo function) ',backend server))))
+  (dolist (function '(close-server))
+    (eval `(deffoo ,(nnoo-symbol backend function) (&optional server defs)
+	     (,(nnoo-symbol 'nnoo function) ',backend server))))
   (eval `(deffoo ,(nnoo-symbol backend 'open-server)
 	     (server &optional defs)
 	   (nnoo-change-server ',backend server defs))))