From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Tue, 5 Oct 2010 04:06:49 +0000 (+0000)
Subject: gnus-registry.el (gnus-registry-install-nnregistry): Rewrite so as not to use `delete... 
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=bd8720765d1f53fac4b3d2fd9cd5844a3f90c8d6

gnus-registry.el (gnus-registry-install-nnregistry): Rewrite so as not to use `delete-dups' that is unavailable in XEmacs 21.4.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 372fe9f36..5fca37d45 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-10-05  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* gnus-registry.el (gnus-registry-install-nnregistry): Rewrite so as
+	not to use `delete-dups' that is unavailable in XEmacs 21.4.
+
 	* lpath.el: Fbind libxml-parse-html-region and shr-insert-document for
 	Emacs 22 and XEmacs; fbind help-function-arglist for XEmacs 21.4 and
 	SXEmacs.
diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index cbea1e17e..45fa95617 100644
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -1153,13 +1153,16 @@ Returns the first place where the trail finds a group name."
 (defun gnus-registry-install-nnregistry ()
   "Install the nnregistry refer method in `gnus-refer-article-method'."
   (interactive)
-  (setq gnus-refer-article-method
-        (delete-dups
-         (append
-          (if (listp gnus-refer-article-method)
-              gnus-refer-article-method
-            (list gnus-refer-article-method))
-          (list 'nnregistry)))))
+  (cond ((eq 'nnregistry gnus-refer-article-method))
+	((null gnus-refer-article-method)
+	 (setq gnus-refer-article-method 'nnregistry))
+	((consp gnus-refer-article-method)
+	 (unless (memq 'nnregistry gnus-refer-article-method)
+	   (setq gnus-refer-article-method
+		 (append gnus-refer-article-method '(nnregistry)))))
+	(t
+	 (setq gnus-refer-article-method
+	       (list gnus-refer-article-method 'nnregistry)))))
 
 (defun gnus-registry-unload-hook ()
   "Uninstall the registry hooks."