From c7817839728b42938c7deeb47a47eff921f89320 Mon Sep 17 00:00:00 2001 From: kaoru Date: Mon, 4 Jan 2010 07:29:26 +0000 Subject: [PATCH] * 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/ChangeLog | 7 +++++++ wl/wl-dnd.el | 2 +- wl/wl-score.el | 4 ++-- wl/wl-summary.el | 4 ++-- wl/wl-util.el | 2 +- wl/wl.el | 2 +- 6 files changed, 14 insertions(+), 7 deletions(-) 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 + * 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 () -- 1.7.10.4