MEL 1.8.

diff --git a/mel-q.el b/mel-q.el
index ca11faf..ae3e38a 100644 (file)
--- a/mel-q.el
+++ b/mel-q.el
@@ -1,5 +1,5 @@
 ;;;
-;;; $Id: mel-q.el,v 1.5 1995/06/26 05:56:39 morioka Exp $
+;;; $Id: mel-q.el,v 1.8 1995/08/27 19:29:17 morioka Exp $
 ;;;
 
 ;;; @ constants
@@ -127,7 +127,8 @@ external decoder is called.")
          (setq b (match-beginning 0))
          (setq e (match-end 0))
          (setq str (buffer-substring b e))
-         (replace-match (quoted-printable-decode-string str))
+         (delete-region b e)
+         (insert (quoted-printable-decode-string str))
          ))
       )))
 
@@ -205,7 +206,8 @@ external decoder is called.")
 (defun q-encoding-encode-string-for-phrase (str)
   (mapconcat (function
              (lambda (chr)
-               (cond ((or (and (<= ?A chr)(<= chr ?Z))
+               (cond ((eq chr 32) "_")
+                     ((or (and (<= ?A chr)(<= chr ?Z))
                           (and (<= ?a chr)(<= chr ?z))
                           (and (<= ?0 chr)(<= chr ?9))
                           (memq chr '(?! ?* ?+ ?- ?/))
@@ -223,11 +225,9 @@ external decoder is called.")
        ((eq mode 'comment)
         (q-encoding-encode-string-for-comment str)
         )
-       ((eq mode 'phrase)
+       (t
         (q-encoding-encode-string-for-phrase str)
-        )
-       (t (quoted-printable-encode-string str))
-       ))
+        )))
 
 (defun q-encoding-decode-string (str)
   (let (q h l)
@@ -275,4 +275,4 @@ external decoder is called.")
 ;;; @ end
 ;;;
 
-(provide 'qprint)
+(provide 'mel-q)