From: Andrew G Cohen <cohen@andy.bu.edu>
Date: Sat, 29 Apr 2017 02:03:11 +0000 (+0800)
Subject: Disable nnselect-server-opened check
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9e9fdd950d45d8481ccde3b8fb68f623c58f0646;p=emacs.git

Disable nnselect-server-opened check

* lisp/gnus/nnselect.el (nnselect-server-opened): Always return t for
now. This is disabled for testing purposes.
(nnselect-possibly-change-group): Eliminate unnecessary test for
server openness.
---

diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 34bbdc83106..296ff62f207 100644
--- a/lisp/gnus/nnselect.el
+++ b/lisp/gnus/nnselect.el
@@ -620,11 +620,11 @@ If this variable is nil, or if the provided function returns nil,
     (funcall func args)))
 
 
-(defun nnselect-possibly-change-group (group &optional server)
+(defun nnselect-possibly-change-group (group &optional _server)
   "If GROUP method for SERVER is `nnselect' install the
 `nnselect-artlist'. Return the fully prefixed group name."
-  (or (not server) (nnselect-server-opened server)
-      (nnselect-open-server server))
+  ;; (or (not server) (nnselect-server-opened server)
+  ;;     (nnselect-open-server server))
   (let ((group  (gnus-group-prefixed-name
 		 (gnus-group-short-name group) '(nnselect "nnselect"))))
     (when (gnus-nnselect-group-p group)
@@ -634,10 +634,13 @@ 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)))
+;; (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.