From 44f3c66aa39d3c6f89f02dfbfc20848dff1b17b7 Mon Sep 17 00:00:00 2001 From: tmorioka Date: Sat, 1 Mar 1997 04:09:16 +0000 Subject: [PATCH] Use `char-bytes' instead of `char-length'. --- eword-encode.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/eword-encode.el b/eword-encode.el index aa49186..222d409 100644 --- a/eword-encode.el +++ b/eword-encode.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko -;; Version: $Revision: 0.11 $ +;; Version: $Revision: 0.12 $ ;; Keywords: encoded-word, MIME, multilingual, header, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -45,7 +45,7 @@ ;;; (defconst eword-encode-RCS-ID - "$Id: eword-encode.el,v 0.11 1997-03-01 02:07:00 tmorioka Exp $") + "$Id: eword-encode.el,v 0.12 1997-03-01 04:09:16 tmorioka Exp $") (defconst eword-encode-version (get-version-string eword-encode-RCS-ID)) @@ -126,14 +126,14 @@ when Subject field is encoded by `eword-encode-header'.") (defun tm-eword::parse-lc-word (str) (let* ((chr (sref str 0)) (lc (tm-eword::char-type chr)) - (i (char-length chr)) + (i (char-bytes chr)) (len (length str)) ) (while (and (< i len) (setq chr (sref str i)) (eq lc (tm-eword::char-type chr)) ) - (setq i (+ i (char-length chr))) + (setq i (+ i (char-bytes chr))) ) (cons (cons lc (substring str 0 i)) (substring str i)) )) @@ -318,7 +318,7 @@ when Subject field is encoded by `eword-encode-header'.") (str "") nstr) (while (and (< p len) (progn - (setq np (+ p (char-length (sref string p)))) + (setq np (+ p (char-bytes (sref string p)))) (setq nstr (substring string 0 np)) (setq ret (tm-eword::encoded-word-length (cons nstr (cdr rword)) -- 1.7.10.4