(eword-encode-divide-into-charset-words): Don't use `char-length' and
authortomo <tomo>
Fri, 15 Dec 2000 09:55:55 +0000 (09:55 +0000)
committertomo <tomo>
Fri, 15 Dec 2000 09:55:55 +0000 (09:55 +0000)
`char-next-index'.

mime/eword-encode.el

index f7111c1..68cb861 100644 (file)
@@ -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