From f5fe35bb6f3bc335551bc2e5ee7cf4b61734a9f7 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 23 Jun 1999 10:16:22 +0000 Subject: [PATCH] (gnus-articles-to-read): Use `read-from-minibuffer' instead of `read-string'. (TopLevel): Require `static'. --- lisp/gnus-sum.el | 27 ++++++++++++++------------- 1 file changed, 14 insertions(+), 13 deletions(-) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 6b4a5a6..7ff3cb9 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -40,10 +40,10 @@ (eval-when-compile (require 'mime-play) - ;; Avoid byte-compile warnings. - (defvar gnus-article-decoded-p) - (defvar gnus-decode-encoded-word-function) - ) + (require 'static)) + +;; Avoid byte-compile warnings. +(defvar gnus-decode-encoded-word-function) (eval-and-compile (autoload 'gnus-cache-articles-in-group "gnus-cache")) @@ -4147,15 +4147,16 @@ If SELECT-ARTICLES, only select those articles from GROUP." ((and (or (<= scored marked) (= scored number)) (natnump gnus-large-newsgroup) (> number gnus-large-newsgroup)) - (let* ((minibuffer-setup-hook (append - minibuffer-setup-hook - '(beginning-of-line))) - (input (read-string - (format - "How many articles from %s (max %d): " - (gnus-limit-string gnus-newsgroup-name 35) - number) - (number-to-string gnus-large-newsgroup)))) + (let ((input (read-from-minibuffer + (format + "How many articles from %s (max %d): " + (gnus-limit-string gnus-newsgroup-name 35) + number) + (static-if (< emacs-major-version 20) + (number-to-string gnus-large-newsgroup) + (cons + (number-to-string gnus-large-newsgroup) + 0))))) (if (string-match "^[ \t]*$" input) number input))) -- 1.7.10.4