X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mel.el;fp=mel.el;h=12fff865477126c1cb733d729f3c02b6fc447377;hb=8781c16c86108f9a03060dcd91e5487cad04a66c;hp=f128321f87f500ff447667faaf3214844759ed2e;hpb=578f4562dd88e9917acbe5e7b7d36647845c4dae;p=elisp%2Fflim.git

diff --git a/mel.el b/mel.el
index f128321..12fff86 100644
--- a/mel.el
+++ b/mel.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc.
 
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
 ;; Created: 1995/6/25
 ;; Keywords: MIME, Base64, Quoted-Printable, uuencode, gzip64
 
@@ -26,6 +26,8 @@
 ;;; Code:
 
 (require 'mime-def)
+(require 'poem)
+(require 'alist)
 (require 'path-util)
 
 (defcustom mime-encoding-list
@@ -222,8 +224,9 @@ the STRING by its value."
 (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)))
       (setq i (+ i 1)))