* wl.el (wl-plugged-sending-queue-status): Use `int-to-string'

instead of `number-to-string'.
* wl-dnd.el (wl-dnd-start-drag): Ditto.
* wl-score.el (wl-score-insert-help, wl-summary-increase-score): Ditto.
* wl-summary.el (wl-summary-jump-to-msg, wl-summary-save): Ditto.
* wl-util.el (wl-url-nntp): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 52373b6..c84395d 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,12 @@
 2010-01-04  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+       * wl.el (wl-plugged-sending-queue-status): Use `int-to-string'
+       instead of `number-to-string'.
+       * wl-dnd.el (wl-dnd-start-drag): Ditto.
+       * wl-score.el (wl-score-insert-help, wl-summary-increase-score): Ditto.
+       * wl-summary.el (wl-summary-jump-to-msg, wl-summary-save): Ditto.
+       * wl-util.el (wl-url-nntp): Ditto.
+
        * wl.el (wl-plugged-set-variables, wl-plugged-dop-queue-info)
        (wl-plugged-dop-queue-status): Don't quote `lambda'.
        * wl-thread.el (wl-thread-delete-message): Ditto

diff --git a/wl/wl-dnd.el b/wl/wl-dnd.el
index 4aa4a42..5090a28 100644 (file)
--- a/wl/wl-dnd.el
+++ b/wl/wl-dnd.el
@@ -49,7 +49,7 @@
   (mouse-set-point event)
   (start-drag event (concat
                     wl-summary-buffer-folder-name " "
-                    (int-to-string (wl-summary-message-number)))))
+                    (number-to-string (wl-summary-message-number)))))
 
 (defun wl-dnd-drop-func (event object text)
   (interactive "@e")

diff --git a/wl/wl-score.el b/wl/wl-score.el
index 7f8b1b8..28ead35 100644 (file)
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -868,7 +868,7 @@ Set `wl-score-cache' nil."
                         (car entry)
                         (if increase "raise" "lower"))
                 (if (numberp match)
-                    (int-to-string match)
+                    (number-to-string match)
                   match)))
     ;; transform from string to int.
     (when (eq (nth 1 (assoc (car entry) wl-score-header-index))
@@ -962,7 +962,7 @@ Set `wl-score-cache' nil."
            (delete-char -1)            ; the `\n' takes a char
            (insert "\n"))
          (setq pad (- width 3))
-         (setq format (concat "%c: %-" (int-to-string pad) "s"))
+         (setq format (concat "%c: %-" (number-to-string pad) "s"))
          (insert (format format (caar alist) (nth idx (car alist))))
          (setq alist (cdr alist))
          (setq i (1+ i)))

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 06eeadc..734da7d 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2127,7 +2127,7 @@ This function is defined for `window-scroll-functions'"
   (when number
     (let ((pos (point))
          regexp)
-      (setq regexp (concat "\r" (int-to-string number) "[^0-9]"))
+      (setq regexp (concat "\r" (number-to-string number) "[^0-9]"))
       (if (and beg end (or (< pos beg) (< end pos)))
          (progn
            (goto-char beg)
@@ -4778,7 +4778,7 @@ If ARG is numeric number, decode message as following:
     (if num
        (save-excursion
          (setq filename (expand-file-name
-                         (concat (int-to-string num)
+                         (concat (number-to-string num)
                                  wl-summary-save-file-suffix)
                          wl-save-dir))
          (when (or (null arg)

diff --git a/wl/wl-util.el b/wl/wl-util.el
index 5267d84..60ea66d 100644 (file)
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -475,7 +475,7 @@ that `read' can handle, whenever this is possible."
              (setq fld-name nil))
          (if (eq (length (setq port
                                (elmo-match-string 2 url))) 0)
-             (setq port (int-to-string elmo-nntp-default-port)))
+             (setq port (number-to-string elmo-nntp-default-port)))
          (if (eq (length (setq server
                                (elmo-match-string 1 url))) 0)
              (setq server elmo-nntp-default-server))

diff --git a/wl/wl.el b/wl/wl.el
index 6b9c593..e33c5be 100644 (file)
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -265,7 +265,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
            (if (> len 1)
                (format ": %d msgs (" len)
              (format ": %d msg (" len))
-           (mapconcat (function int-to-string) (cdr qinfo) ",")
+           (mapconcat (function number-to-string) (cdr qinfo) ",")
            ")")))
 
 (defun wl-plugged-dop-queue-info ()