Non-intuitiveness of `/ t' in summary buffer.

[Rui Zhu <sprache@iname.com>]

[-- 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))