From 1208c62444683b4c2c971f912e10b08beb590ecf Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Wed, 16 Sep 1998 02:30:52 +0000
Subject: [PATCH] (base64-dl-encode-string): New alias.
 (base64-dl-decode-string): New alias.
 (base64-dl-encode-region): Renamed from
 `base64-encode-region'; don't save-excursion and
 save-restriction. (base64-dl-decode-region): Renamed from
 `base64-decode-region'; don't save-excursion and
 save-restriction; convert all at once.
 (base64-encode-region): New alias. (base64-decode-region):
 New alias.

---
 mel-dl.el |   61 +++++++++++++++++++++----------------------------------------
 1 file changed, 21 insertions(+), 40 deletions(-)

diff --git a/mel-dl.el b/mel-dl.el
index 0e79cca..e1df065 100644
--- a/mel-dl.el
+++ b/mel-dl.el
@@ -35,56 +35,37 @@
 
 (dynamic-call "emacs_base64_init" base64-dl-handle)
 
-(defalias 'base64-encode-string 'encode-base64-string)
-(defalias 'base64-decode-string 'decode-base64-string)
+(defalias 'base64-dl-encode-string 'encode-base64-string)
+(defalias 'base64-dl-decode-string 'decode-base64-string)
 
-(defun base64-encode-region (start end)
+(defun base64-dl-encode-region (start end)
   "Encode current region by base64.
 START and END are buffer positions."
   (interactive "r")
-  (save-excursion
-    (save-restriction
-      (narrow-to-region start end)
-      (let ((str (buffer-substring start end)))
-	(delete-region start end)
-	(insert (encode-base64-string str))
-	)
-      (or (bolp)
-	  (insert "\n")
-	  )
-      )))
+  (let ((str (buffer-substring start end)))
+    (delete-region start end)
+    (insert (encode-base64-string str))
+    )
+  (or (bolp)
+      (insert "\n"))
+  )
 
-(defun base64-decode-region (start end)
+(defun base64-dl-decode-region (start end)
   "Decode current region by base64.
 START and END are buffer positions."
   (interactive "r")
-  (save-excursion
-    (save-restriction
-      (narrow-to-region start end)
-      (goto-char (point-min))
-      (while (looking-at ".*\n")
-	(condition-case err
-	    (replace-match
-	     (decode-base64-string
-	      (buffer-substring (match-beginning 0) (1- (match-end 0))))
-	     t t)
-	  (error
-	   (prog1
-	       (message (nth 1 err))
-	     (replace-match "")))))
-      (if (looking-at ".*$")
-	  (condition-case err
-	      (replace-match
-	       (decode-base64-string
-		(buffer-substring (match-beginning 0) (match-end 0)))
-	       t t)
-	    (error
-	     (prog1
-		 (message (nth 1 err))
-	       (replace-match "")))
-	    ))
+  (let ((str (buffer-substring start end)))
+    (delete-region start end)
+    (condition-case err
+	(insert (decode-base64-string str))
+      (error (message (nth 1 err)))
       )))
 
+(defalias 'base64-encode-string 'encode-base64-string)
+(defalias 'base64-decode-string 'decode-base64-string)
+(defalias 'base64-encode-region 'base64-dl-encode-region)
+(defalias 'base64-decode-region 'base64-dl-decode-region)
+
 
 ;;; @ base64 encoder/decoder for file
 ;;;
-- 
1.7.10.4