# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1292331150 0
# Node ID 44431106d60d873cc6536b293d46cf20fd410c3e
# Parent  d53efc3630ba37ca2efbc7929383c2afcac373ff
nnir.el (nnir-mode): Don't install registry hooks if user hasn't installed the registry.

diff -r d53efc3630ba -r 44431106d60d lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Tue Dec 14 00:06:18 2010 -0800
+++ b/lisp/gnus/ChangeLog	Tue Dec 14 12:52:30 2010 +0000
@@ -1,3 +1,8 @@
+2010-12-14  Andrew Cohen  <cohen@andy.bu.edu>
+
+	* nnir.el (nnir-mode): Don't install registry hooks if user hasn't
+	installed the registry.
+
 2010-12-13  Andrew Cohen  <cohen@andy.bu.edu>
 
 	* nnir.el (nnir-run-gmane): Better check for gmane groups: error out if
diff -r d53efc3630ba -r 44431106d60d lisp/gnus/nnir.el
--- a/lisp/gnus/nnir.el	Tue Dec 14 00:06:18 2010 -0800
+++ b/lisp/gnus/nnir.el	Tue Dec 14 12:52:30 2010 +0000
@@ -289,7 +289,9 @@
   (autoload 'nnimap-buffer "nnimap")
   (autoload 'nnimap-command "nnimap")
   (autoload 'nnimap-possibly-change-group "nnimap")
-  (autoload 'gnus-registry-action "gnus-registry"))
+  (autoload 'gnus-registry-action "gnus-registry")
+  (defvar gnus-registry-install))
+
 
 (nnoo-declare nnir)
 (nnoo-define-basics nnir)
@@ -1581,12 +1583,13 @@
   (when (eq (car (gnus-find-method-for-group gnus-newsgroup-name)) 'nnir)
     (setq gnus-summary-line-format
 	  (or nnir-summary-line-format gnus-summary-line-format))
-    (remove-hook 'gnus-summary-article-delete-hook 'gnus-registry-action t)
-    (remove-hook 'gnus-summary-article-move-hook 'gnus-registry-action t)
-    (remove-hook 'gnus-summary-article-expire-hook 'gnus-registry-action t)
-    (add-hook 'gnus-summary-article-delete-hook 'nnir-registry-action t t)
-    (add-hook 'gnus-summary-article-move-hook 'nnir-registry-action t t)
-    (add-hook 'gnus-summary-article-expire-hook 'nnir-registry-action t t)))
+    (when (eq gnus-registry-install t)
+      (remove-hook 'gnus-summary-article-delete-hook 'gnus-registry-action t)
+      (remove-hook 'gnus-summary-article-move-hook 'gnus-registry-action t)
+      (remove-hook 'gnus-summary-article-expire-hook 'gnus-registry-action t)
+      (add-hook 'gnus-summary-article-delete-hook 'nnir-registry-action t t)
+      (add-hook 'gnus-summary-article-move-hook 'nnir-registry-action t t)
+      (add-hook 'gnus-summary-article-expire-hook 'nnir-registry-action t t))))