* 0.12 New feature: catchup now takes abitrary mark (patch)
@ 1997-11-05 18:11 jari.aalto
1997-11-05 18:50 ` Justin Sheehy
0 siblings, 1 reply; 2+ messages in thread
From: jari.aalto @ 1997-11-05 18:11 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 308 bytes --]
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
[-- Attachment #2: gnus-sum.diff --]
[-- Type: application/octet-stream, Size: 1485 bytes --]
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))
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: 0.12 New feature: catchup now takes abitrary mark (patch)
1997-11-05 18:11 0.12 New feature: catchup now takes abitrary mark (patch) jari.aalto
@ 1997-11-05 18:50 ` Justin Sheehy
0 siblings, 0 replies; 2+ messages in thread
From: Justin Sheehy @ 1997-11-05 18:50 UTC (permalink / raw)
<jari.aalto@poboxes.com> writes:
> There was nice catchup function, but I noticed a need for
> a catchup-as-expired function too.
I don't understand the need for it.
What expiry method are you using?
--
Justin Sheehy
In a cloud bones of steel.
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~1997-11-05 18:50 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1997-11-05 18:11 0.12 New feature: catchup now takes abitrary mark (patch) jari.aalto
1997-11-05 18:50 ` Justin Sheehy
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).