* Non-intuitiveness of `/ t' in summary buffer.
@ 1999-07-31 22:27 Rui Zhu
0 siblings, 0 replies; only message in thread
From: Rui Zhu @ 1999-07-31 22:27 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 199 bytes --]
`C-u / t' always asks me "Old than...", it may be the limitation of
`interactive' (or not? I'm not very familiar with elisp). Here is my
patch for that, hoping it is useful.
Regards,
Rui
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: patch for `gnus-summary-limit-to-age' --]
[-- Type: text/x-patch, Size: 914 bytes --]
--- gnus-sum.el.dist Fri Jul 9 21:16:21 1999
+++ gnus-sum.el Sun Jul 25 02:40:06 1999
@@ -6174,7 +6174,21 @@
"Limit the summary buffer to articles that are older than (or equal) AGE days.
If YOUNGER-P (the prefix) is non-nil, limit the summary buffer to
articles that are younger than AGE days."
- (interactive "nLimit to articles older than (in days): \nP")
+ (interactive
+ (let ((younger current-prefix-arg)
+ (days-got nil)
+ days)
+ (while (not days-got)
+ (setq days (if younger
+ (read-string "Limit to articles within (in days): ")
+ (read-string "Limit to articles old than (in days): ")))
+ (when (> (length days) 0)
+ (setq days (read days)))
+ (if (numberp days)
+ (setq days-got t)
+ (message "Please enter a number.")
+ (sleep-for 1)))
+ (list days younger)))
(prog1
(let ((data gnus-newsgroup-data)
(cutoff (days-to-time age))
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~1999-07-31 22:27 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1999-07-31 22:27 Non-intuitiveness of `/ t' in summary buffer Rui Zhu
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).