From 86e694f6d9c0cc33b926992504923f4a3215bebc Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Thu, 1 Nov 2001 01:18:11 +0000 Subject: [PATCH] 2001-10-31 20:00:00 ShengHuo ZHU * sieve-manage.el (sieve-string-bytes): No complain. --- lisp/ChangeLog | 4 ++++ lisp/sieve-manage.el | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e151f0c15..712684e51 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2001-10-31 20:00:00 ShengHuo ZHU + + * sieve-manage.el (sieve-string-bytes): No complain. + 2001-11-01 Simon Josefsson * gnus-group.el (gnus-group-mode-map): Bind "D u" to diff --git a/lisp/sieve-manage.el b/lisp/sieve-manage.el index 25ae53947..51f55ba11 100644 --- 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)) -- 2.34.1