From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/14045 Path: news.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.user Subject: Re: nnmail split multi-byte bug or feature? Date: Mon, 02 Aug 2010 15:00:30 +0900 Organization: Emacsen advocacy group Message-ID: References: <3b440960-4153-4dff-8971-db813ea29aa3@f6g2000yqa.googlegroups.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1280728857 27205 80.91.229.12 (2 Aug 2010 06:00:57 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 2 Aug 2010 06:00:57 +0000 (UTC) Cc: info-gnus-english@gnu.org Original-X-From: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Mon Aug 02 08:00:56 2010 Return-path: Envelope-to: gegu-info-gnus-english@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Ofo50-0006hH-Hf for gegu-info-gnus-english@m.gmane.org; Mon, 02 Aug 2010 08:00:54 +0200 Original-Received: from localhost ([127.0.0.1]:38134 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Ofo4y-00081e-8L for gegu-info-gnus-english@m.gmane.org; Mon, 02 Aug 2010 02:00:52 -0400 Original-Received: from [140.186.70.92] (port=51390 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Ofo4r-000801-VR for info-gnus-english@gnu.org; Mon, 02 Aug 2010 02:00:46 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1Ofo4q-0007Hy-Ic for info-gnus-english@gnu.org; Mon, 02 Aug 2010 02:00:45 -0400 Original-Received: from orlando.hostforweb.net ([216.246.45.90]:33659) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Ofo4q-0007Hf-F7 for info-gnus-english@gnu.org; Mon, 02 Aug 2010 02:00:44 -0400 Original-Received: from localhost ([127.0.0.1]:41041) by orlando.hostforweb.net with esmtpa (Exim 4.69) (envelope-from ) id 1Ofo4k-00088V-Fw for info-gnus-english@gnu.org; Mon, 02 Aug 2010 01:00:38 -0500 Original-Newsgroups: gnu.emacs.gnus X-Hashcash: 1:20:100802:info-gnus-english@gnu.org::X2ZOmeZr4GU+sFU9:0000000000000000000000000000000000000Y6l 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:o4sRK0lK4KMqdIdIRiJ38tQVU1A= Posted-To: gnu.emacs.gnus 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 - gnu.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-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-BeenThere: info-gnus-english@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Announcements and discussions for GNUS, the GNU Emacs Usenet newsreader \(in English\)" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Errors-To: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.gnus.user:14045 Archived-At: Newsgroups: gnu.emacs.gnus Cc: info-gnus-english@gnu.org Katsumi Yamaoka wrote: > stormwatch wrote: >> BTW, I'd like to change gnus-subscribe-options-newsgroup-method to >> 'gnus-subscribe-topics. Some time ago I tried to add a topic parameter >> in my .gnus with no success, forcing me to edit the topic parameters >> interactively each time I reinstalled or moved my os. Is it possible >> to add something like '(("utn" (subscribe . "\\.utn"))) to gnus- >> parameters? ("utn" being the topic name). > I'll try it. There seems to be no other way than to modify `gnus-topic-topology' (~/.newsrc.eld specifies its value). How about this? --8<---------------cut here---------------start------------->8--- (require 'gnus-topic) (add-hook 'gnus-setup-news-hook (lambda () ;; Create the "utn" topic if needed. (unless (member "utn" (gnus-topic-list)) (gnus-topic-create-topic "utn" (caar gnus-topic-topology))) ;; Add `(subscribe . "\\.utn")' parameter to the "utn" topic if needed. (let* ((subscribe '((subscribe . "\\.utn"))) (topology (cadr (gnus-topic-find-topology "utn"))) (len (length topology)) (params (car (nthcdr 3 topology)))) (cond ((= len 1) (setcdr topology `(visible nil ,subscribe))) ((= len 2) (setcdr (cdr topology) `(nil ,subscribe))) ((or (= len 3) (equal params '(nil)) (not (consp params))) (setcdr (cddr topology) `(,subscribe))) ((not (assq 'subscribe params)) (setcdr params (copy-sequence params)) (setcar params subscribe)))))) --8<---------------cut here---------------end--------------->8--- If you want to set the group level, try adding this one: --8<---------------cut here---------------start------------->8--- (add-hook 'gnus-setup-news-hook (lambda () ;; Add `(subscribe-level . 1)' parameter to the "utn" topic if needed. (let ((params (car (nthcdr 3 (cadr (gnus-topic-find-topology "utn")))))) (unless (assq 'subscribe-level params) (setcdr params (copy-sequence params)) (setcar params '(subscribe-level . 1))) params)) 'append) --8<---------------cut here---------------end--------------->8---