]> git.eshelyaron.com Git - emacs.git/commitdiff
Disable nnselect-server-opened check
authorAndrew G Cohen <cohen@andy.bu.edu>
Sat, 29 Apr 2017 02:03:11 +0000 (10:03 +0800)
committerAndrew G Cohen <cohen@andy.bu.edu>
Sat, 29 Apr 2017 02:03:11 +0000 (10:03 +0800)
* 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.

lisp/gnus/nnselect.el

index 34bbdc831065d398a052e3ce727acecc9d1b0acd..296ff62f2077adea0e27796166c3b85dc284554e 100644 (file)
@@ -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.