From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/12761 Path: main.gmane.org!not-for-mail From: Newsgroups: gmane.emacs.gnus.general Subject: 0.12 New feature: catchup now takes abitrary mark (patch) Date: 05 Nov 1997 20:11:35 +0200 Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.106) Content-Type: multipart/mixed; boundary="Multipart_Wed_Nov__5_20:11:33_1997-1" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035152241 5537 80.91.224.250 (20 Oct 2002 22:17:21 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:17:21 +0000 (UTC) Return-Path: Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16]) by altair.xemacs.org (8.8.8/8.8.8) with ESMTP id LAA29030 for ; Wed, 5 Nov 1997 11:41:04 -0800 Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by xemacs.org (8.8.5/8.8.5) with ESMTP id NAA17261 for ; Wed, 5 Nov 1997 13:41:27 -0600 (CST) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by ifi.uio.no (8.8.7/8.8.7/ifi0.2) with SMTP id TAA03068 for ; Wed, 5 Nov 1997 19:11:53 +0100 (MET) Original-Received: (qmail 10795 invoked by uid 504); 5 Nov 1997 18:11:46 -0000 Original-Received: (qmail 10792 invoked from network); 5 Nov 1997 18:11:46 -0000 Original-Received: from axl01it.ntc.nokia.com (131.228.118.232) by claymore.vcinet.com with SMTP; 5 Nov 1997 18:11:44 -0000 Original-Received: from zeus.tele.nokia.fi (zeus.tele.nokia.fi [131.228.134.50]) by axl01it.ntc.nokia.com (8.8.5/8.6.9) with SMTP id UAA16436 for ; Wed, 5 Nov 1997 20:11:14 +0200 (EET) Original-Received: from pegasus.tele.nokia.fi (pegasus.ntc.nokia.com [131.228.169.148]) by zeus.tele.nokia.fi (8.6.4/8.6.4) with ESMTP id UAA21306 for ; Wed, 5 Nov 1997 20:11:30 +0200 Original-Received: (from jaalto@localhost) by pegasus.tele.nokia.fi (8.7.5/8.7.1) id UAA12648; Wed, 5 Nov 1997 20:11:36 +0200 (EET) X-My-Info: http://www.netforward.com/poboxes/?jari.aalto http://www.geocities.com/SiliconValley/Bay/2349 Send me subject "send help" to get my mailserver info. Original-To: Original-Lines: 70 X-Mailer: Quassia Gnus v0.12/Emacs 19.34 Xref: main.gmane.org gmane.emacs.gnus.general:12761 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:12761 --Multipart_Wed_Nov__5_20:11:33_1997-1 Content-Type: text/plain; charset=US-ASCII Hi, There was nice catchup function, but I noticed a need for a catchup-as-expired function too. This small patch makes the catcup to accept any gnus mark. Would someone care to write the user level catchup-as-expired function. (I now call this patched function from gnus summary hook) jari --Multipart_Wed_Nov__5_20:11:33_1997-1 Content-Type: application/octet-stream; type=patch Content-Disposition: attachment; filename="gnus-sum.diff" Content-Transfer-Encoding: 7bit Prereq: 1.12 =================================================================== RCS file: RCS/gnus-sum.el,v retrieving revision 1.12 retrieving revision 1.12.1.1 diff -u -r1.12 -r1.12.1.1 --- 1.12 1997/11/05 17:37:16 +++ 1.12.1.1 1997/11/05 17:41:25 @@ -7931,7 +7931,7 @@ (gnus-summary-position-point) t)))) -(defun gnus-summary-catchup (&optional all quietly to-here not-mark) +(defun gnus-summary-catchup (&optional all quietly to-here not-mark mark-char) "Mark all unread articles in this newsgroup as read. If prefix argument ALL is non-nil, ticked and dormant articles will also be marked as read. @@ -7940,9 +7940,14 @@ articles before this point will be marked as read. Note that this function will only catch up the unread article in the current summary buffer limitation. -The number of articles marked as read is returned." +The number of articles marked as read is returned. + +If NOT-MARK ...? +The MARL_CHAR is `gnus-catchup-mark' by default." (interactive "P") (gnus-set-global-variables) + (or mark-char + (setq mark-char gnus-catchup-mark)) (prog1 (save-excursion (when (or quietly @@ -7969,7 +7974,7 @@ (when (gnus-summary-first-subject (not all)) (while (and (if to-here (< (point) to-here) t) - (gnus-summary-mark-article-as-read gnus-catchup-mark) + (gnus-summary-mark-article-as-read mark-char) (gnus-summary-find-next (not all))))) (gnus-set-mode-line 'summary)) t)) --Multipart_Wed_Nov__5_20:11:33_1997-1--