From c838fe43cf884a343627d05ca83bf6840223a332 Mon Sep 17 00:00:00 2001 From: Andrew G Cohen Date: Thu, 11 May 2017 09:49:37 +0800 Subject: [PATCH] * lisp/gnus/nnselect.el (nnselect-server-opened): Just return t. --- lisp/gnus/nnselect.el | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el index 5bb59bf540c..d21c5edee15 100644 --- a/lisp/gnus/nnselect.el +++ b/lisp/gnus/nnselect.el @@ -185,6 +185,17 @@ If this variable is nil, or if the provided function returns nil, (let ((backend (or (car (gnus-server-to-method server)) 'nnselect))) (nnoo-change-server backend server definitions))) +;; (deffoo nnselect-server-opened (&optional server) +;; "Is SERVER the current virtual server?" +;; (if (string-empty-p server) +;; t +;; (let ((backend (car (gnus-server-to-method server)))) +;; (nnoo-current-server-p (or backend 'nnselect) server)))) + +(deffoo nnselect-server-opened (&optional _server) + t) + + (deffoo nnselect-request-group (group &optional server dont-check info) (let ((group (nnselect-possibly-change-group group server)) length) @@ -627,14 +638,6 @@ If this variable is nil, or if the provided function returns nil, group)) -;; (defun nnselect-server-opened (&optional server) -;; "Open SERVER if not yet opened." -;; (let ((backend (car (gnus-server-to-method server)))) -;; (nnoo-current-server-p (or backend 'nnselect) server))) - -(deffoo nnselect-server-opened (&optional _server) - t) - (defun nnselect-search-thread (header) "Make an nnselect group containing the thread with article HEADER. The current server will be searched. If the registry is -- 2.39.5