*** empty log message ***

[gnus] / lisp / gnus-cache.el

diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index ae2205d..b4edc10 100644 (file)
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -151,8 +151,8 @@
        (gnus-cache-change-buffer group)
        (set-buffer (cdr gnus-cache-buffer))
        (goto-char (point-min))
-       (if (or (looking-at (concat (string-to-int article) "\t"))
-               (search-forward (concat "\n" (string-to-int article) "\t")))
+       (if (or (looking-at (concat (int-to-string article) "\t"))
+               (search-forward (concat "\n" (int-to-string article) "\t")))
            (delete-region (progn (beginning-of-line) (point))
                           (progn (forward-line 1) (point))))))))