[elpa] externals/gnorb 68f1473 096/449: More robust check for an open nngnorb server

[Stefan Monnier]

branch: externals/gnorb
commit 68f1473e22e1c23d797a3c4c390c1f2fecb4fbfc
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    More robust check for an open nngnorb server
    
    lisp/gnorb-gnus.el: Use gnus' own `gnus-method-to-server' function for
                    finding the open server, rather than our own feeble
                    check.
---
 lisp/gnorb-gnus.el | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/lisp/gnorb-gnus.el b/lisp/gnorb-gnus.el
index 5bef51f..6f89634 100644
--- a/lisp/gnorb-gnus.el
+++ b/lisp/gnorb-gnus.el
@@ -401,10 +401,7 @@ server. There must be an active \"nngnorb\" server for 
this to
 work."
   (interactive)
   (let ((server
-        (or (catch 'found
-              (dolist (s gnus-server-alist)
-                (when (eq (nth 1 s) 'nngnorb)
-                  (throw 'found (car s)))))
+        (or (gnus-method-to-server '(nngnorb))
             (user-error
              "Please add a \"nngnorb\" backend to your gnus installation."))))
     (gnus-group-read-ephemeral-group