(base64-internal-encoding-limit): Change initial value to 70000.

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

diff --git a/mel-dl.el b/mel-dl.el
index 67b498c..e1df065 100644 (file)
--- a/mel-dl.el
+++ b/mel-dl.el
@@ -3,7 +3,6 @@
 ;; Copyright (C) 1998 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: mel-dl.el,v 1.2 1998-03-11 15:38:51 morioka Exp $
 ;; Keywords: MIME, Base64
 
 ;; This file is part of MEL (MIME Encoding Library).
@@ -36,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
 ;;;
@@ -97,7 +77,7 @@ START and END are buffer positions."
   "*list of base64 decoder program name and its arguments.")
 
 (defvar base64-external-decoder-option-to-specify-file '("-o")
-  "*list of option of base64 decoder program to specify file.")
+  "*list of options of base64 decoder program to specify file.")
 
 (defun base64-insert-encoded-file (filename)
   "Encode contents of file FILENAME to base64, and insert the result.