diff options
| -rw-r--r-- | lisp/gnus/nnoo.el | 11 |
1 files changed, 6 insertions, 5 deletions
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 @@ | |||
| 277 | (nnoo-define-basics-1 ',backend))) | 277 | (nnoo-define-basics-1 ',backend))) |
| 278 | 278 | ||
| 279 | (defun nnoo-define-basics-1 (backend) | 279 | (defun nnoo-define-basics-1 (backend) |
| 280 | (let ((functions '(close-server server-opened status-message))) | 280 | (dolist (function '(server-opened status-message)) |
| 281 | (while functions | 281 | (eval `(deffoo ,(nnoo-symbol backend function) (&optional server) |
| 282 | (eval `(deffoo ,(nnoo-symbol backend (car functions)) | 282 | (,(nnoo-symbol 'nnoo function) ',backend server)))) |
| 283 | (&optional server) | 283 | (dolist (function '(close-server)) |
| 284 | (,(nnoo-symbol 'nnoo (pop functions)) ',backend server))))) | 284 | (eval `(deffoo ,(nnoo-symbol backend function) (&optional server defs) |
| 285 | (,(nnoo-symbol 'nnoo function) ',backend server)))) | ||
| 285 | (eval `(deffoo ,(nnoo-symbol backend 'open-server) | 286 | (eval `(deffoo ,(nnoo-symbol backend 'open-server) |
| 286 | (server &optional defs) | 287 | (server &optional defs) |
| 287 | (nnoo-change-server ',backend server defs)))) | 288 | (nnoo-change-server ',backend server defs)))) |