From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/40656
Path: main.gmane.org!not-for-mail
From: Frank Schmitt <usereplyto@Frank-Schmitt.net>
Newsgroups: gmane.emacs.gnus.general
Subject: [patch] Small enhancements for gnus-sum.el
Date: Mon, 03 Dec 2001 01:28:00 +0100
Organization: Hamme net, kren mer och nimmi
Sender: owner-ding@hpc.uh.edu
Message-ID: <d71xywof.fsf@hschmi22.userfqdn.rz-online.de>
Reply-To: <usenet@Frank-Schmitt.net>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
X-Trace: main.gmane.org 1035176173 2105 80.91.224.250 (21 Oct 2002 04:56:13 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 04:56:13 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: (qmail 6077 invoked from network); 3 Dec 2001 00:30:24 -0000
Original-Received: from malifon.math.uh.edu (mail@129.7.128.13)
  by mastaler.com with SMTP; 3 Dec 2001 00:30:24 -0000
Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists)
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 16Agzp-0004oe-00; Sun, 02 Dec 2001 18:30:09 -0600
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 02 Dec 2001 18:29:54 -0600 (CST)
Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id SAA21053
	for <ding@hpc.uh.edu>; Sun, 2 Dec 2001 18:29:42 -0600 (CST)
Original-Received: (qmail 6067 invoked by alias); 3 Dec 2001 00:29:51 -0000
Original-Received: (qmail 6062 invoked from network); 3 Dec 2001 00:29:51 -0000
Original-Received: from quimby.gnus.org (HELO quimby2.netfonds.no) (195.204.10.66)
  by gnus.org with SMTP; 3 Dec 2001 00:29:51 -0000
Original-Received: from news by quimby2.netfonds.no with local (Exim 3.12 #1 (Debian))
	id 16Ah27-0000VZ-00
	for <ding@gnus.org>; Mon, 03 Dec 2001 01:32:31 +0100
Original-To: ding@gnus.org
Original-Path: not-for-mail
Original-Newsgroups: gnus.ding
Original-Lines: 81
Original-NNTP-Posting-Host: pppin64.max-hochsimmer.rz-online.net
Original-X-Trace: quimby2.netfonds.no 1007339551 1956 212.7.169.64 (3 Dec 2001 00:32:31 GMT)
Original-X-Complaints-To: usenet@quimby2.netfonds.no
Original-NNTP-Posting-Date: 3 Dec 2001 00:32:31 GMT
X-Posting-Agent: Hamster/1.3.23.1
X-Face: :EL9TzGRN){7|oE2~xQ8Q(VjpjsXgX$~gi&rYD5J5p)$w\Thdl~v:7h`/n)J!8nXT%_+Wj6}@EHM8}QbA(9nX-wrQ:ch1%DauV[?kFasXUcnL#+"K8zOx&$@/M'/},q-eztaJra1|?C+p$h\2XnK-HB"8_U<T2j:'9)-VEh/Wt~\&Acjl(,@
User-Agent: Gnus/5.090004 (Oort Gnus v0.04) XEmacs/21.4 (Civil Service
 (Windows), i586-pc-win32)
Cancel-Lock: sha1:1qWA+V0q8U2b9ujqOMmd0dSjYVM=
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:40656
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:40656


--=-=-=

Hi all.

I did three (In my eyes) enhancements in gnus-sum.el:

1) The menu including the gnus-summary-limit-to-* functions was called
"Mark Limit". This is most certainly not the name it is supposed to have
and if it is, I think it is not very telling. I therefor changed it to
"Limit to".

2) There is no predefined shortcut for gnus-article-show-raw-article. I
think the shortcut belongs in gnus-summary-article-map but as r and R
are already in use, I assigned the function to w, so A w in the summary
buffer no calls gnus-article-show-raw-article.

3) When you call gnus-summary-limit-to-age via /t or the menu, you can
only limit the summary to articles older than x days. The user is asked
for x and if he gives a negative value nothing happens. I changed this,
so when the user says -x the summary is limited to articles younger than
x days. (e.g. /t -2 did nothing before and now limits the summary to
articles from today and yesterday)

If you like those changes, could someone commit the following patch? 
(I've signed the papers)


--=-=-=
Content-Type: text/x-patch
Content-Disposition: attachment; filename=gnus-sum.el.patch
Content-Description: patch against gnus-sum.el

--- gnus-sum.el	Mon Dec  3 00:06:30 2001
+++ gnus-sum.el.new	Mon Dec  3 00:04:32 2001
@@ -1695,7 +1695,8 @@
     "s" gnus-summary-isearch-article
     "P" gnus-summary-print-article
     "M" gnus-mailing-list-insinuate
-    "t" gnus-article-babel)
+    "t" gnus-article-babel
+    "w" gnus-summary-show-raw-article)
 
   (gnus-define-keys (gnus-summary-wash-map "W" gnus-summary-mode-map)
     "b" gnus-article-add-buttons
@@ -2082,7 +2083,7 @@
 	 ["Set expirable mark" gnus-summary-mark-as-expirable t]
 	 ["Set bookmark" gnus-summary-set-bookmark t]
 	 ["Remove bookmark" gnus-summary-remove-bookmark t])
-	("Mark Limit"
+	("Limit to"
 	 ["Marks..." gnus-summary-limit-to-marks t]
 	 ["Subject..." gnus-summary-limit-to-subject t]
 	 ["Author..." gnus-summary-limit-to-author t]
@@ -6885,7 +6886,12 @@
        (when (> (length days) 0)
 	 (setq days (read days)))
        (if (numberp days)
-	   (setq days-got t)
+	   (progn 
+	     (setq days-got t)
+	     (if (< days 0)
+		 (progn 
+		   (setq younger (not younger))
+		   (setq days (* days -1)))))
 	 (message "Please enter a number.")
 	 (sleep-for 1)))
      (list days younger)))


--=-=-=

-- 
One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darkness bind them
In the Land of Mordor where the Shadows lie.
19. Dezember 2001


--=-=-=--