X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fnnregistry.el;h=677bb698136ee677412702af41cb719b1466a529;hb=6c74b53e357ecec4f6e48c1dbba4d60129d874dc;hp=e8d3a06627a794c9c0cfb2b067d6843b2b39886a;hpb=a28756d54b5ecb21426950a5fa12cfbea88225e7;p=gnus

diff --git a/lisp/nnregistry.el b/lisp/nnregistry.el
index e8d3a0662..677bb6981 100644
--- a/lisp/nnregistry.el
+++ b/lisp/nnregistry.el
@@ -1,7 +1,7 @@
 ;;; nnregistry.el --- access to articles via Gnus' message-id registry
 ;;; -*- coding: utf-8 -*-
 
-;; Copyright (C) 2010, 2011 Free Software Foundation, Inc.
+;; Copyright (C) 2010-2013 Free Software Foundation, Inc.
 
 ;; Authors: Ludovic Courtès <ludo@gnu.org>
 ;; Keywords: news, mail
@@ -37,7 +37,7 @@
 (nnoo-declare nnregistry)
 
 (deffoo nnregistry-server-opened (server)
-  (eq gnus-registry-install t))
+  gnus-registry-enabled)
 
 (deffoo nnregistry-close-server (server)
   t)
@@ -46,14 +46,14 @@
   nil)
 
 (deffoo nnregistry-open-server (server &optional defs)
-  (eq gnus-registry-install t))
+  gnus-registry-enabled)
 
 (defvar nnregistry-within-nnregistry nil)
 
 (deffoo nnregistry-request-article (id &optional group server buffer)
   (and (not nnregistry-within-nnregistry)
        (let* ((nnregistry-within-nnregistry t)
-	      (group (gnus-registry-fetch-group id))
+	      (group (nth 0 (gnus-registry-get-id-key id 'group)))
 	      (gnus-override-method nil))
 	 (message "nnregistry: requesting article `%s' in group `%s'"
 		  id group)