From: morioka <morioka>
Date: Tue, 25 May 1999 10:14:46 +0000 (+0000)
Subject: (Q-encoded-text-length): Fixed.
X-Git-Tag: chao-1_13_0~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=570374525f5a9d2e2c110315536cb8557909b354;p=elisp%2Fflim.git

(Q-encoded-text-length): Fixed.
---

diff --git a/mel.el b/mel.el
index e70319a..02782cf 100644
--- a/mel.el
+++ b/mel.el
@@ -236,8 +236,9 @@ ENCODING must be string.")
 (defun Q-encoded-text-length (string &optional mode)
   (let ((l 0)(i 0)(len (length string)) chr)
     (while (< i len)
-      (setq chr (elt string i))
-      (if (Q-encoding-printable-char-p chr mode)
+      (setq chr (aref string i))
+      (if (or (Q-encoding-printable-char-p chr mode)
+	      (eq chr ? ))
 	  (setq l (+ l 1))
 	(setq l (+ l 3))
 	)