From: morioka <morioka>
Date: Sun, 11 Jan 1998 17:05:44 +0000 (+0000)
Subject: mel of MEL 2.0.
X-Git-Tag: mel-2_0
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=217869a91e7513b8bc5192f8994e2e710e0a0021;p=elisp%2Fflim.git

mel of MEL 2.0.
---

diff --git a/mel-q.el b/mel-q.el
index 23475bf..6539033 100644
--- a/mel-q.el
+++ b/mel-q.el
@@ -1,5 +1,5 @@
 ;;;
-;;; $Id: mel-q.el,v 1.9 1995/09/09 05:14:23 morioka Exp $
+;;; $Id: mel-q.el,v 2.0 1995/09/11 11:33:47 morioka Exp $
 ;;;
 
 ;;; @ constants
@@ -124,6 +124,25 @@ external decoder is called.")
 	    )))
       )))
 
+(defun quoted-printable-internal-decode-region (beg end)
+  (save-excursion
+    (save-restriction
+      (narrow-to-region beg end)
+      (goto-char (point-min))
+      (while (re-search-forward "=\n" nil t)
+	(replace-match "")
+	)
+      (goto-char (point-min))
+      (let (b e str)
+	(while (re-search-forward quoted-printable-octet-regexp nil t)
+	  (setq b (match-beginning 0))
+	  (setq e (match-end 0))
+	  (setq str (buffer-substring b e))
+	  (delete-region b e)
+	  (insert (quoted-printable-decode-string str))
+	  ))
+      )))
+
 (cond ((boundp 'MULE)
        (define-program-coding-system
 	 nil (car quoted-printable-external-encoder) *noconv*)