mel of MEL 2.0.

[elisp/flim.git] / mel-q.el

diff --git a/mel-q.el b/mel-q.el
index 23475bf..6539033 100644 (file)
--- 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*)