From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/59422 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: improving nnrss.el Date: Tue, 14 Dec 2004 21:37:54 +0900 Organization: Emacsen advocacy group Message-ID: References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1103028123 604 80.91.229.6 (14 Dec 2004 12:42:03 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 14 Dec 2004 12:42:03 +0000 (UTC) Cc: Tsuyoshi AKIHO Original-X-From: ding-owner+M7962@lists.math.uh.edu Tue Dec 14 13:41:56 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13] ident=mail) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CeC04-0000hn-00 for ; Tue, 14 Dec 2004 13:41:56 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1CeBwc-0006UV-00; Tue, 14 Dec 2004 06:38:22 -0600 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1CeBwU-0006UP-00 for ding@lists.math.uh.edu; Tue, 14 Dec 2004 06:38:14 -0600 Original-Received: from quimby.gnus.org ([80.91.224.244]) by util2.math.uh.edu with esmtp (Exim 4.30) id 1CeBwL-0008By-1y for ding@lists.math.uh.edu; Tue, 14 Dec 2004 06:38:05 -0600 Original-Received: from washington.hostforweb.net ([69.61.11.2]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1CeBwK-0003qs-00 for ; Tue, 14 Dec 2004 13:38:04 +0100 Original-Received: from localhost ([127.0.0.1]) by washington.hostforweb.net with esmtpa (Exim 4.43) id 1CeBwI-0007ji-W2; Tue, 14 Dec 2004 07:38:03 -0500 Original-To: ding@gnus.org 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.110003 (No Gnus v0.3) Emacs/21.3.50 (gnu/linux) Cancel-Lock: sha1:bSyhIh76IpiW54/uJnAIL84UmDg= X-Hashcash: 1:20:041214:ding@gnus.org::LCOTmIJfCNqr4sC5:0000Bt5i X-Hashcash: 1:20:041214:akiho@kawachi.zaq.ne.jp::kwkkwB6XYMR2seWl:000000000000000000000000000000000000000XFH X-Antivirus-Scanner: Clean mail though you should still use an Antivirus X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - washington.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: Precedence: bulk Original-Sender: ding-owner@lists.math.uh.edu Xref: main.gmane.org gmane.emacs.gnus.general:59422 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:59422 --=-=-= Hi, >>>>> In Katsumi Yamaoka wrote: > I and Tsuyoshi AKIHO are now planning to make nnrss.el support > multilingual text. [...] > The plan includes enabling it to use non-ascii group names (i.e., > utf-8 encoded). If you are interested in it, you can try the latest Gnus CVS and the following patch: ftp://ftp.jpl.org/pub/tmp/nnrss-patch-20041214.gz or http://www.jpl.org/ftp/pub/tmp/nnrss-patch-20041214.gz It is still under development and we need to verify it further. Non-ASCII group names aren't supported yet with the `j' group command etc. I made the following function for the replacement of `completing-read'. However, it is rather slow. --=-=-= Content-Type: application/emacs-lisp Content-Disposition: inline (defun gnus-group-completing-read (prompt &optional table &rest args) "Read a group name with completion. The arguments are the same as `completing-read', but TABLE defaults to `gnus-active-hashtb' if it is omitted. Non-ASCII group names which appear in the *Completions* buffer will be decoded." (let (group) (mapatoms (lambda (symbol) (when (setq group (symbol-name symbol)) (push (cons (if (string-match "[^\000-\177]" group) (gnus-group-decoded-name group) group) group) table))) (prog1 (or table gnus-active-hashtb) (setq table nil))) (cdr (assoc (apply 'completing-read prompt table args) table)))) --=-=-= Content-Disposition: inline Regards, --=-=-=--