From: yoichi <yoichi>
Date: Sun, 17 Nov 2002 11:48:18 +0000 (+0000)
Subject: * elmo-split.el (elmo-split->): New function.
X-Git-Tag: wl-2_11_1~36
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=647b9a648baa8f58423fcf7480a8932c1bfc01b1;p=elisp%2Fwanderlust.git

* elmo-split.el (elmo-split->): New function.
(elmo-split-<): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 8d17d38..15c62d4 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-17  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* elmo-split.el (elmo-split->): New function.
+	(elmo-split-<): Ditto.
+
 2002-11-14  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-msgdb.el (elmo-msgdb-get-message-id-from-buffer): Added
diff --git a/elmo/elmo-split.el b/elmo/elmo-split.el
index 6dcd25d..d86e2c0 100644
--- a/elmo/elmo-split.el
+++ b/elmo/elmo-split.el
@@ -152,6 +152,12 @@ Example:
 	(throw 'done nil)))
     t))
 
+(defun elmo-split-> (buffer size)
+  (> (buffer-size buffer) size))
+
+(defun elmo-split-< (buffer size)
+  (< (buffer-size buffer) size))
+
 (defun elmo-split-address-equal (buffer field value)
   (with-current-buffer buffer
     (let ((addrs (mapcar