2001-10-31 20:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* sieve-manage.el (sieve-string-bytes): No complain.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e151f0c..712684e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-31 20:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * sieve-manage.el (sieve-string-bytes): No complain.
+
 2001-11-01  Simon Josefsson  <jas@extundo.com>
 
        * gnus-group.el (gnus-group-mode-map): Bind "D u" to

diff --git a/lisp/sieve-manage.el b/lisp/sieve-manage.el
index 25ae539..51f55ba 100644 (file)
--- a/lisp/sieve-manage.el
+++ b/lisp/sieve-manage.el
@@ -65,7 +65,7 @@
 ;;
 ;; 2001-10-31 Committed to Oort Gnus.
 ;;
-;; $Id: sieve-manage.el,v 1.9 2001/06/30 19:00:00 jas Exp $
+;; $Id: sieve-manage.el,v 6.1 2001/11/01 00:50:22 jas Exp $
 
 ;;; Code:
 
@@ -491,10 +491,10 @@ password is remembered in the buffer."
     (sieve-manage-send (format "HAVESPACE \"%s\" %s" name size))
     (sieve-manage-parse-okno)))
 
-(defun sieve-string-bytes (str)
+(eval-and-compile
   (if (fboundp 'string-bytes)
-      (string-bytes str)
-    (length str)))
+      (defalias 'sieve-string-bytes 'string-bytes)
+    (defalias 'sieve-string-bytes 'length)))
 
 (defun sieve-manage-putscript (name content &optional buffer)
   (with-current-buffer (or buffer (current-buffer))