From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/37780 Path: main.gmane.org!not-for-mail From: Dan Christensen Newsgroups: gmane.emacs.gnus.general Subject: Re: Like (display . all) but hide expirable messages Date: Tue, 14 Aug 2001 22:07:48 -0400 Sender: Dan Christensen Message-ID: <87d75y5b4b.fsf@uwo.ca> References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: main.gmane.org 1035173134 15605 80.91.224.250 (21 Oct 2002 04:05:34 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:05:34 +0000 (UTC) Return-Path: Return-Path: Original-Received: (qmail 5539 invoked from network); 15 Aug 2001 03:18:46 -0000 Original-Received: from pony.its.uwo.ca (129.100.2.63) by gnus.org with SMTP; 15 Aug 2001 03:18:46 -0000 Original-Received: from scratchy (ren.math.uwo.ca [129.100.75.76]) by pony.its.uwo.ca (8.10.2/8.10.2) with ESMTP id f7F3Ihi21289 for ; Tue, 14 Aug 2001 23:18:43 -0400 (EDT) Original-Received: from jdc by scratchy with local (Exim 3.32 #1 (Debian)) id 15Wq61-00053u-00; Tue, 14 Aug 2001 22:07:49 -0400 Original-To: ding@gnus.org In-Reply-To: (Kai.Grossjohann@CS.Uni-Dortmund.DE's message of "Thu, 09 Aug 2001 18:49:29 +0200") User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.0.100 Original-Lines: 34 Xref: main.gmane.org gmane.emacs.gnus.general:37780 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:37780 Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Gro=DFjohann) writes: > People who want to use Gnus like other mail readers want Gnus to > always show all mails, except the deleted ones. Since expirable > messages are deleted, in a sense, it would be nice to provide a > (display . most) feature which does this. Yes, I've mentioned several times how much I'd like this.=20=20 I currently achieve this with the code below, but it causes the summary to be generated twice, which is slow in large groups. Dan --=20 Dan Christensen jdc+news@uwo.ca ; This runs only when the summary is first prepared, and not after ; other limiting commands. Thus `/ w' pop's this limit, and others, ; as one would like it to. (add-hook 'gnus-summary-prepared-hook=20 (lambda () (if (or (string-match "^nnfolder:" gnus-newsgroup-name) (string-match "^nnml:" gnus-newsgroup-name)) (jdc-gnus-summary-limit-exclude-unwanted)))) (defun jdc-gnus-summary-limit-exclude-unwanted () (interactive) (gnus-summary-limit-to-marks "EG" t)) (add-hook 'gnus-summary-mode-hook=20 '(lambda nil (define-key gnus-summary-mode-map "/e" 'jdc-gnus-summary-limit-exclude-u= nwanted)))