--- lisp/gnus-sum.el	Thu Oct 18 20:03:02 2001
+++ /cygdrive/c/Programme/XEmacs/xemacs-packages/lisp/gnus/gnus-sum.el	Thu Oct 18 22:26:50 2001
@@ -6958,9 +6958,12 @@
 (defun gnus-summary-limit-to-score (&optional score)
   "Limit to articles with score at or above SCORE."
   (interactive "P")
-  (setq score (if score
-		  (prefix-numeric-value score)
-		(or gnus-summary-default-score 0)))
+  (if (not score)
+      (setq score 
+	    (string-to-number (read-from-minibuffer 
+			       "Limit to articles with a score bigger or equal than: " 
+			       (number-to-string (or gnus-summary-default-score 0)))))
+    (setq score (prefix-numeric-value score)))
   (let ((data gnus-newsgroup-data)
 	articles)
     (while data