From 005363d653923707152441503ca2c7b7fd63271c Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 15 Dec 2000 09:55:55 +0000 Subject: [PATCH] (eword-encode-divide-into-charset-words): Don't use `char-length' and `char-next-index'. --- mime/eword-encode.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/mime/eword-encode.el b/mime/eword-encode.el index f7111c1..68cb861 100644 --- a/mime/eword-encode.el +++ b/mime/eword-encode.el @@ -121,19 +121,19 @@ MODE is allows `text', `comment', `phrase' or nil. Default value is (while (> len 0) (let* ((chr (sref string 0)) (charset (eword-encode-char-type chr)) - (i (char-length chr))) + (i 1) + ;; (i (char-length chr)) + ) (while (and (< i len) (setq chr (sref string i)) - (eq charset (eword-encode-char-type chr)) - ) - (setq i (char-next-index chr i)) + (eq charset (eword-encode-char-type chr))) + (setq i (1+ i)) + ;; (setq i (char-next-index chr i)) ) (setq dest (cons (cons charset (substring string 0 i)) dest) string (substring string i) - len (- len i) - ))) - (nreverse dest) - )) + len (- len i)))) + (nreverse dest))) ;;; @ word -- 1.7.10.4