[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/gnus-select c838fe4 1/3: * lisp/gnus/nnselect.el (
From: |
Andrew G Cohen |
Subject: |
[Emacs-diffs] feature/gnus-select c838fe4 1/3: * lisp/gnus/nnselect.el (nnselect-server-opened): Just return t. |
Date: |
Wed, 10 May 2017 22:27:53 -0400 (EDT) |
branch: feature/gnus-select
commit c838fe43cf884a343627d05ca83bf6840223a332
Author: Andrew G Cohen <address@hidden>
Commit: Andrew G Cohen <address@hidden>
* 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 5bb59bf..d21c5ed 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