From: morioka <morioka>
Date: Sun, 11 Jan 1998 16:57:17 +0000 (+0000)
Subject: MEL 1.8.
X-Git-Tag: mel-1_8
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f379af93796b2a17f3d93f2bb28762031ac9f596;p=elisp%2Fflim.git

MEL 1.8.
---

diff --git a/mel-q.el b/mel-q.el
index ca11faf..ae3e38a 100644
--- 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)