From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Mon, 29 Nov 2010 00:13:13 +0000 (+0000)
Subject: nnir.el (nnir-run-gmane): Use mm-delete-duplicates instead of delete-dups that is... 
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=9cf4b26eb557de8f371b45a9b6249e9e4d87955b

nnir.el (nnir-run-gmane): Use mm-delete-duplicates instead of delete-dups that is not available in XEmacs 21.4.
mm-util.el (mm-delete-duplicates): Add comment.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec15ebf05..394244fd5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2010-11-29  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* nnir.el (nnir-run-gmane): Use mm-delete-duplicates instead of
+	delete-dups that is not available in XEmacs 21.4.
+
+	* mm-util.el (mm-delete-duplicates): Add comment.
+
 2010-11-28  Andrew Cohen  <cohen@andy.bu.edu>
 
 	* nnir.el (nnir-ignored-newsgroups): New variable.
diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 700c1a6bb..2f6464d43 100644
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -974,6 +974,7 @@ If the charset is `composition', return the actual one."
     ;; This is for XEmacs.
     (mm-mule-charset-to-mime-charset charset)))
 
+;; `delete-dups' is not available in XEmacs 21.4.
 (if (fboundp 'delete-dups)
     (defalias 'mm-delete-duplicates 'delete-dups)
   (defun mm-delete-duplicates (list)
diff --git a/lisp/nnir.el b/lisp/nnir.el
index 547945afa..e64374e9f 100644
--- a/lisp/nnir.el
+++ b/lisp/nnir.el
@@ -1385,7 +1385,7 @@ Tested with Namazu 2.0.6 on a GNU/Linux system."
 		      (string-to-number (match-string 2 xref)) xscore)
 		     artlist)))))
 	    (forward-line 1)))
-	(apply 'vector (nreverse (delete-dups artlist))))
+	(apply 'vector (nreverse (mm-delete-duplicates artlist))))
     (message "Can't search non-gmane nntp groups")
     nil))