(sc-read-string): Don't pass a history arg to read-string.

diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index d1c145b4ae3810a8d4d4e94407f775fe30c87837..d6cdd12a2ea8039aed1e3d72eb159420d353b180 100644 (file)
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -499,8 +499,9 @@ In version 18, the HISTORY argument is ignored."
   "Compatibility between Emacs 18 and 19 `read-string'.
 In version 18, the HISTORY argument is ignored."
   (if (memq 'v19 sc-emacs-features)
-      (funcall 'read-string prompt initial-contents history)
-    (funcall 'read-string prompt initial-contents)))
+      ;; maybe future versions will take a `history' argument:
+      (read-string prompt initial-contents)
+    (read-string prompt initial-contents)))
 
 (defun sc-submatch (matchnum &optional string)
   "Returns `match-beginning' and `match-end' sub-expression for MATCHNUM.