nnir.el (nnir-run-gmane): Use mm-delete-duplicates instead of delete-dups that is...

mm-util.el (mm-delete-duplicates): Add comment.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec15ebf..394244f 100644 (file)
--- 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 700c1a6..2f6464d 100644 (file)
--- 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 547945a..e64374e 100644 (file)
--- 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))