From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/23489 Path: main.gmane.org!not-for-mail From: Wes Hardaker Newsgroups: gmane.emacs.gnus.general Subject: Re: some mail annoyances Date: 23 Jun 1999 07:24:43 -0700 Organization: U.C.Davis, Information Technology - D.C.A.S. Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035161211 2232 80.91.224.250 (21 Oct 2002 00:46:51 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 00:46:51 +0000 (UTC) Cc: ding@gnus.org Return-Path: Original-Received: from farabi.math.uh.edu (farabi.math.uh.edu [129.7.128.57]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id KAA05485 for ; Wed, 23 Jun 1999 10:26:06 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by farabi.math.uh.edu (8.9.1/8.9.1) with ESMTP id JAB15969; Wed, 23 Jun 1999 09:25:18 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 23 Jun 1999 09:26:08 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id JAA28576 for ; Wed, 23 Jun 1999 09:25:54 -0500 (CDT) Original-Received: from homestyle.dcn.davis.ca.us (hardaker@homestyle.dcn.davis.ca.us [168.150.190.1]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id KAA05465 for ; Wed, 23 Jun 1999 10:24:55 -0400 (EDT) Original-Received: (from hardaker@localhost) by homestyle.dcn.davis.ca.us (8.9.3/8.9.3) id HAA24488; Wed, 23 Jun 1999 07:24:46 -0700 Original-To: Per Bothner X-Face: #qW^}a%m*T^{A:Cp}$R\"38+d}41-Z}uU8,r%F#c#s:~Nzp0G9](s?,K49KJ]s"*7gvRgA SrAvQc4@/}L7Qc=w{)]ACO\R{LF@S{pXfojjjGg6c;q6{~C}CxC^^&~(F]`1W)%9j/iS/ IM",B1M.?{w8ckLTYD'`|kTr\i\cgY)P4 X-URL: http://dcas.ucdavis.edu/~hardaker In-Reply-To: Per Bothner's message of "21 Jun 1999 17:36:24 -0700" Original-Lines: 30 User-Agent: Gnus/5.070084 (Pterodactyl Gnus v0.84) XEmacs/21.2(beta8) (Artemis) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:23489 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:23489 --=-=-= >>>>> On 21 Jun 1999 17:36:24 -0700, Per Bothner said: Per> More generally, for mail the natural classification is old Per> messages, new messages, and deleted messages. Once I have Per> deleted a message, I normally don't want to see it. However, I Per> would like to be able to see old messages. If I do plain space Per> in the Group buffer, I only see new and ticked messages. But if Per> I do ^U-space I get *all* the messages, including the expired Per> ones. This means that to get what I consider normal behavior (as Per> in most other MUAs) I must take one of two acrtions for each new Per> message: Either tick it if I want to save it, or delete it (make Per> expireable) otherwise. Sometimes I forget. This is not very Per> friendly. If you want this now, I'll include a patch I've been using for a few years now that allows you to set the "display" group parameter to "not-expired", so that it will show you old messages. This is essentially what you want. I've always wanted to be able to make the display parameter accept a string, something like "O !", which would be translated into old, new, and ticked, or even better "-E" which would be the same as not-expired. However, the hack I put in place didn't work quickly and I didn't have time to mess with it much more. Lars didn't want to accept the not-expired patch as is. ... --=-=-= Content-Type: application/x-patch Content-Disposition: attachment; filename=PG.patch Content-Transfer-Encoding: 8bit Content-Description: pgnus-patch Index: gnus-cus.el =================================================================== RCS file: /home/hardaker/src/cvsroot/pgnus/gnus-cus.el,v retrieving revision 1.1.1.7 retrieving revision 1.8 diff -c -r1.1.1.7 -r1.8 *** gnus-cus.el 1999/06/08 20:11:27 1.1.1.7 --- gnus-cus.el 1999/06/08 20:15:10 1.8 *************** *** 150,160 **** --- 150,164 ---- (display (choice :tag "Display" :value default (const all) + (const not-expired) (const default)) "\ Which articles to display on entering the group. `all' Display all articles, both read and unread. + + `not-expired' + All articles except those marked as expirable. `default' Display the default visible articles, which normally includes Index: gnus-sum.el =================================================================== RCS file: /home/hardaker/src/cvsroot/pgnus/gnus-sum.el,v retrieving revision 1.1.1.15 retrieving revision 1.13 diff -c -r1.1.1.15 -r1.13 *** gnus-sum.el 1999/06/08 20:11:31 1.1.1.15 --- gnus-sum.el 1999/06/09 18:25:45 1.13 *************** *** 4119,4136 **** (defun gnus-articles-to-read (group &optional read-all) ;; Find out what articles the user wants to read. ! (let* ((articles ;; Select all articles if `read-all' is non-nil, or if there ;; are no unread articles. ! (if (or read-all ! (and (zerop (length gnus-newsgroup-marked)) ! (zerop (length gnus-newsgroup-unreads))) ! (eq (gnus-group-find-parameter group 'display) ! 'all)) ! (gnus-uncompress-range (gnus-active group)) (sort (append gnus-newsgroup-dormant gnus-newsgroup-marked (copy-sequence gnus-newsgroup-unreads)) ! '<))) (scored-list (gnus-killed-articles gnus-newsgroup-killed articles)) (scored (length scored-list)) (number (length articles)) --- 4119,4170 ---- (defun gnus-articles-to-read (group &optional read-all) ;; Find out what articles the user wants to read. ! (let* ((display (gnus-group-find-parameter group 'display)) ! tmparticles artmark ! (articles ;; Select all articles if `read-all' is non-nil, or if there ;; are no unread articles. ! (cond ! ((or read-all ! (and (zerop (length gnus-newsgroup-marked)) ! (zerop (length gnus-newsgroup-unreads))) ! (eq display 'all)) ! (gnus-uncompress-range (gnus-active group))) ! ((stringp display) ! (message gnus-newsgroup-headers) ! (setq tmparticles (gnus-uncompress-range (gnus-active group))) ! (setq articles nil) ! (if (string-equal (substring display 0 1) "-") ! (progn ! (setq display (substring display 1)) ! (while (not (null tmparticles)) ! (setq artmark ! (char-to-string ! (gnus-article-mark (car tmparticles)))) ! (if (or (not artmark) ! (not (string-match artmark display))) ! (setq articles ! (append (list (car tmparticles)) articles))) ! (setq tmparticles (cdr tmparticles)))) ! (while (not (null tmparticles)) ! (setq artmark ! (char-to-string (gnus-article-mark (car tmparticles)))) ! (if (and artmark (string-match artmark display)) ! (setq articles ! (append (list (car tmparticles)) articles))) ! (setq tmparticles (cdr tmparticles)))) ! articles) ! ((eq display 'not-expired) ! (setq articles (gnus-uncompress-range (gnus-active group))) ! (setq tmparticles gnus-newsgroup-expirable) ! (while (not (null tmparticles)) ! (setq articles (delq (car tmparticles) articles)) ! (setq tmparticles (cdr tmparticles))) ! articles) ! (t (sort (append gnus-newsgroup-dormant gnus-newsgroup-marked (copy-sequence gnus-newsgroup-unreads)) ! '<)))) (scored-list (gnus-killed-articles gnus-newsgroup-killed articles)) (scored (length scored-list)) (number (length articles)) --=-=-= -- "Ninjas aren't dangerous. They're more afraid of you than you are of them." --=-=-=--