Synch to No Gnus 200506160601, and

[elisp/gnus.git-] / lisp / nnir.el

diff --git a/lisp/nnir.el b/lisp/nnir.el
index e38c9ab..84ab8d6 100644 (file)
--- a/lisp/nnir.el
+++ b/lisp/nnir.el
@@ -907,8 +907,8 @@ pairs (also vectors, actually)."
                            dirnam nnir-wais-remove-prefix))
         (setq group (substitute ?. ?/ (replace-match "" t t dirnam)))
         (push (vector group
-                      (string-to-int artno)
-                      (string-to-int score))
+                      (string-to-number artno)
+                      (string-to-number score))
               artlist))
       (message "Massaging waissearch output...done")
       (apply 'vector
@@ -952,7 +952,7 @@ pairs (also vectors, actually)."
        (setq group (substitute ?. ?/ (match-string 1 article)))
        (setq article-num (match-string 2 article))
        (setq artlist (vconcat artlist (vector (vector group
-                                                      (string-to-int article-num)
+                                                      (string-to-number article-num)
                                                       1000)))))
       (message "Gathering query output...done")
       artlist)))
@@ -1108,8 +1108,8 @@ Windows NT 4.0."
              (setq group (substitute ?. ?\\ group))
 
              (push (vector group
-                           (string-to-int artno)
-                           (string-to-int score))
+                           (string-to-number artno)
+                           (string-to-number score))
                    artlist)))))
 
       (message "Massaging swish++ output...done")
@@ -1195,8 +1195,8 @@ Tested with swish-e-2.0.1 on Windows NT 4.0."
             (setq group (substitute ?. ?\\ group))
 
             (push (vector group
-                          (string-to-int artno)
-                          (string-to-int score))
+                          (string-to-number artno)
+                          (string-to-number score))
                   artlist))))
 
       (message "Massaging swish-e output...done")
@@ -1276,8 +1276,8 @@ Tested with Namazu 2.0.6 on a GNU/Linux system."
 
           ;; stuff results into artlist vector
           (push (vector (substitute ?. ?/ group)
-                        (string-to-int article)
-                        (string-to-int score)) artlist)))
+                        (string-to-number article)
+                        (string-to-number score)) artlist)))
 
       ;; sort artlist by score
       (apply 'vector