From 570374525f5a9d2e2c110315536cb8557909b354 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 25 May 1999 10:14:46 +0000 Subject: [PATCH] (Q-encoded-text-length): Fixed. --- mel.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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)) ) -- 1.7.10.4