From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/80410 Path: news.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: gnus-group-get-new-news only on one level Date: Tue, 25 Oct 2011 11:03:19 +0900 Organization: Emacsen advocacy group Message-ID: References: <877h3u3up1.fsf@micropit.couberia.bzh> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: dough.gmane.org 1319508252 28790 80.91.229.12 (25 Oct 2011 02:04:12 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 25 Oct 2011 02:04:12 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M28698@lists.math.uh.edu Tue Oct 25 04:04:09 2011 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 1RIWN6-0003Or-KU for ding-account@gmane.org; Tue, 25 Oct 2011 04:04:08 +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 1RIWMh-0005ly-BF; Mon, 24 Oct 2011 21:03:43 -0500 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1RIWMf-0005lj-Hj for ding@lists.math.uh.edu; Mon, 24 Oct 2011 21:03:41 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.76) (envelope-from ) id 1RIWMd-0000zo-Id for ding@lists.math.uh.edu; Mon, 24 Oct 2011 21:03:41 -0500 Original-Received: from orlando.hostforweb.net ([216.246.45.90]) by quimby.gnus.org with esmtp (Exim 4.72) (envelope-from ) id 1RIWMa-0003D5-Lv for ding@gnus.org; Tue, 25 Oct 2011 04:03:36 +0200 Original-Received: from localhost ([127.0.0.1]:37691) by orlando.hostforweb.net with smtp (Exim 4.69) (envelope-from ) id 1RIWMW-0001wj-Uc for ding@gnus.org; Mon, 24 Oct 2011 21:03:33 -0500 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.110018 (No Gnus v0.18) Emacs/24.0.90 (i686-pc-cygwin) Cancel-Lock: sha1:cRdvGGWTWc+URxQ9+lvb6LXcdfs= 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: -0.0 (/) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:80410 Archived-At: --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable Peter M=FCnster wrote: > I would like to get new news only for one level. > How is this possible? > (gnus-group-get-new-news 3) does not work: lower levels are updated too. Here's a quick hack. Please don't beat me even if it breaks your newsrc and marks! ;-p --=-=-= Content-Type: application/emacs-lisp Content-Disposition: inline Content-Transfer-Encoding: quoted-printable (defadvice gnus-group-get-new-news (around only-one-level (&optional arg) activate) "Get new news only for one level." (let ((gnus-newsrc-alist (if (numberp arg) (mapcar (lambda (info) (if (=3D arg (nth 1 info)) info (prog1 (setq info (copy-sequence info)) (setcar (cdr info) gnus-level-killed)))) gnus-newsrc-alist) gnus-newsrc-alist))) ad-do-it)) --=-=-=--