From: Andrew G Cohen Date: Thu, 11 May 2017 01:49:37 +0000 (+0800) Subject: * lisp/gnus/nnselect.el (nnselect-server-opened): Just return t. X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c838fe43cf884a343627d05ca83bf6840223a332;p=emacs.git * lisp/gnus/nnselect.el (nnselect-server-opened): Just return t. --- 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