[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/gnus-select 9e9fdd9 2/2: Disable nnselect-server-o
From: |
Andrew G Cohen |
Subject: |
[Emacs-diffs] feature/gnus-select 9e9fdd9 2/2: Disable nnselect-server-opened check |
Date: |
Fri, 28 Apr 2017 22:05:56 -0400 (EDT) |
branch: feature/gnus-select
commit 9e9fdd950d45d8481ccde3b8fb68f623c58f0646
Author: Andrew G Cohen <address@hidden>
Commit: Andrew G Cohen <address@hidden>
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.
---
lisp/gnus/nnselect.el | 17 ++++++++++-------
1 file changed, 10 insertions(+), 7 deletions(-)
diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 34bbdc8..296ff62 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.