From: kaoru <kaoru>
Date: Mon, 4 Jan 2010 07:29:26 +0000 (+0000)
Subject: * wl.el (wl-plugged-sending-queue-status): Use `int-to-string'
X-Git-Tag: elmo-imap4-compliance-root~40
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c7817839728b42938c7deeb47a47eff921f89320;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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 ()