From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/72486 Path: news.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: delete-dups Date: Mon, 04 Oct 2010 14:14:14 +0900 Organization: Emacsen advocacy group Message-ID: References: <87ocbeyqsn.fsf@lifelogs.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1286169341 20917 80.91.229.12 (4 Oct 2010 05:15:41 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 4 Oct 2010 05:15:41 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M20858@lists.math.uh.edu Mon Oct 04 07:15:40 2010 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1P2dOm-0005vc-90 for ding-account@gmane.org; Mon, 04 Oct 2010 07:15:40 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1P2dOG-0003ar-Ff; Mon, 04 Oct 2010 00:15:08 -0500 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1P2dOC-0003aY-Gj for ding@lists.math.uh.edu; Mon, 04 Oct 2010 00:15:04 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.72) (envelope-from ) id 1P2dOA-0000Cg-1G for ding@lists.math.uh.edu; Mon, 04 Oct 2010 00:15:03 -0500 Original-Received: from orlando.hostforweb.net ([216.246.45.90]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1P2dO9-0003G9-00 for ; Mon, 04 Oct 2010 07:15:01 +0200 Original-Received: from localhost ([127.0.0.1]:43144) by orlando.hostforweb.net with esmtpa (Exim 4.69) (envelope-from ) id 1P2dNW-0006Bu-RS for ding@gnus.org; Mon, 04 Oct 2010 00:14:23 -0500 X-Hashcash: 1:20:101004:ding@gnus.org::K88qoplCp9IVE1Pa:00001vPb X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/24.0.50 (gnu/linux) Cancel-Lock: sha1:guLBgS9vBC3/Y0Xv837IpVN3vn4= X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - orlando.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - jpl.org X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:72486 Archived-At: Ted Zlatanov wrote: > On Fri, 01 Oct 2010 16:04:45 +0900 Katsumi Yamaoka wrote: [...] KY> Could you provide `gnus-delete-dups' or something for XEmacs 21.4? KY> XEmacs 21.5 and SXEmacs 22.1 (and Emacs >=22 of course) provide KY> `delete-dups' in subr.el, however XEmacs 21.4 doesn't. > Old version: [...] > How about this rewrite, will that work in XEmacs? It seems like those > two helper functions should be in ELisp but I don't know where they are > hiding. [...] It should work. Thanks. Otherwise: (defun gnus-registry-install-nnregistry () "Install the nnregistry refer method in `gnus-refer-article-method'." (interactive) (if (listp gnus-refer-article-method) (unless (memq 'nnregistry gnus-refer-article-method) (setq gnus-refer-article-method (append gnus-refer-article-method '(nnregistry)))) (unless (eq 'nnregistry gnus-refer-article-method) (setq gnus-refer-article-method (list gnus-refer-article-method 'nnregistry))))) or (defalias 'gnus-delete-dups (if (fboundp 'delete-dups) 'delete-dups (lambda (list) ... copy of Emacs 24's delete-dups definition ...))) And make gnus-registry-install-nnregistry use it.