From: kaoru <kaoru>
Date: Fri, 12 Apr 2002 23:26:32 +0000 (+0000)
Subject: * wl-util.el (wl-display-bytes): Remove unused function.
X-Git-Tag: elmo-mark-root~207
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e4dcb81821f708657539f9fd426df9418bf071c9;p=elisp%2Fwanderlust.git

* wl-util.el (wl-display-bytes): Remove unused function.
---

diff --git a/wl/wl-util.el b/wl/wl-util.el
index 12a5cec..1336a9d 100644
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -204,21 +204,6 @@ If HACK-ADDRESSES is t, then the strings are considered to be mail addresses,
 				 (- width (current-column)))
 			 " "))))))))
 
-(defun wl-display-bytes (num)
-  (let (result remain)
-    (cond
-     ((> (setq result (/ num 1000000)) 0)
-      (setq remain (% num 1000000))
-      (if (> remain 400000)
-	  (setq result (+ 1 result)))
-      (format "%dM" result))
-     ((> (setq result (/ num 1000)) 0)
-      (setq remain (% num 1000))
-      (if (> remain 400)
-	  (setq result (+ 1 result)))
-      (format "%dK" result))
-     (t (format "%dB" num)))))
-
 (defun wl-mode-line-buffer-identification (&optional id)
   (let ((priorities '(biff plug title)))
     (let ((items (reverse wl-mode-line-display-priority-list))