From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/72392 Path: news.gmane.org!not-for-mail From: Ted Zlatanov Newsgroups: gmane.emacs.gnus.general Subject: Re: delete-dups Date: Fri, 01 Oct 2010 08:40:40 -0500 Organization: =?utf-8?B?0KLQtdC+0LTQvtGAINCX0LvQsNGC0LDQvdC+0LI=?= @ Cienfuegos Message-ID: <87ocbeyqsn.fsf@lifelogs.com> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1285940469 6227 80.91.229.12 (1 Oct 2010 13:41:09 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Fri, 1 Oct 2010 13:41:09 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M20765@lists.math.uh.edu Fri Oct 01 15:41:07 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 1P1frD-0007lR-07 for ding-account@gmane.org; Fri, 01 Oct 2010 15:41:03 +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 1P1fr6-0004N2-IH; Fri, 01 Oct 2010 08:40:56 -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 1P1fr5-0004Mn-9y for ding@lists.math.uh.edu; Fri, 01 Oct 2010 08:40:55 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.72) (envelope-from ) id 1P1fr0-0005RJ-B2 for ding@lists.math.uh.edu; Fri, 01 Oct 2010 08:40:54 -0500 Original-Received: from lo.gmane.org ([80.91.229.12]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1P1fqy-0002tq-00 for ; Fri, 01 Oct 2010 15:40:48 +0200 Original-Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1P1fqy-0007im-Ib for ding@gnus.org; Fri, 01 Oct 2010 15:40:48 +0200 Original-Received: from 38.98.147.130 ([38.98.147.130]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 01 Oct 2010 15:40:48 +0200 Original-Received: from tzz by 38.98.147.130 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 01 Oct 2010 15:40:48 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 60 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: 38.98.147.130 X-Face: bd.DQ~'29fIs`T_%O%C\g%6jW)yi[zuz6;d4V0`@y-~$#3P_Ng{@m+e4o<4P'#(_GJQ%TT= D}[Ep*b!\e,fBZ'j_+#"Ps?s2!4H2-Y"sx" User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/24.0.50 (gnu/linux) Cancel-Lock: sha1:CSpdMHJ1IOKVUDBmJdPkDGi/c2g= X-Spam-Score: -0.7 (/) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:72392 Archived-At: On Fri, 01 Oct 2010 16:04:45 +0900 Katsumi Yamaoka wrote: KY> Ted Zlatanov wrote: >> via 6ace9d5942b93402b9468402592c545dbb92b007 (commit) >> via 404c492543314455e4f96c80bb0372e1741f0906 (commit) >> from ca9880f98c58290a72dc5ad8efbe966bdea725a1 (commit) KY> [...] >> +;;;###autoload >> +(defun gnus-registry-install-nnregistry () >> + "Install the nnregistry refer method in `gnus-refer-article-method'." >> + (interactive) >> + (when (featurep 'nnregistry) >> + (setq gnus-refer-article-method >> + (delete-dups KY> [...] 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: ;;;###autoload (defun gnus-registry-install-nnregistry () "Install the nnregistry refer method in `gnus-refer-article-method'." (interactive) (when (featurep 'nnregistry) (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)))))) 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. ;;;###autoload (defun gnus-registry-install-nnregistry () "Install the nnregistry refer method in `gnus-refer-article-method'." (interactive) (when (featurep 'nnregistry) (setq gnus-refer-article-method (gnus-set-append-to-set-or-element gnus-refer-article-method 'nnregistry)))) (defun gnus-make-list (element) "Return ELEMENT if it's a list or makes a list of it." (if (listp element) element (list element))) (defun gnus-set-append-to-set-or-element (set-or-element tail) "Append TAIL to SET-OR-ELEMENT, which can be a set or a single atom." (let ((set (gnus-make-list set-or-element))) (if (member tail set) set (append set (list tail)))))