From: akr <akr>
Date: Fri, 19 Feb 1999 03:36:49 +0000 (+0000)
Subject: * mel-b-ccl.el (base64-ccl-encode-string): New argument `no-line-break'.
X-Git-Tag: doodle-1_12_3~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2ca41d9a653ea09486e56c5e1cc8fd15e4b1ef69;p=elisp%2Fflim.git

* mel-b-ccl.el (base64-ccl-encode-string): New argument `no-line-break'.
(base64-ccl-encode-region): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index 22b757e..9d8dfba 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 1999-02-19  Tanaka Akira      <akr@jaist.ac.jp>
 
+	* mel-b-ccl.el (base64-ccl-encode-string): New argument `no-line-break'.
+	(base64-ccl-encode-region): Ditto.
+
+1999-02-19  Tanaka Akira      <akr@jaist.ac.jp>
+
 	* mime.el (mime-read-field): Use `plain' instead of `native' for
 	third argument for `mime-decode-field-body'.
 
diff --git a/mel-b-ccl.el b/mel-b-ccl.el
index 7f48c41..c47e00f 100644
--- a/mel-b-ccl.el
+++ b/mel-b-ccl.el
@@ -397,14 +397,18 @@ abcdefghijklmnopqrstuvwxyz\
 
 (unless-broken ccl-execute-eof-block-on-decoding-some
 
-  (defun base64-ccl-encode-string (string)
+  (defun base64-ccl-encode-string (string &optional no-line-break)
     "Encode STRING with base64 encoding."
-    (decode-coding-string string 'mel-ccl-base64-lf-rev))
+    (if no-line-break
+	(decode-coding-string string 'mel-ccl-b-rev)
+      (decode-coding-string string 'mel-ccl-base64-lf-rev)))
 
-  (defun base64-ccl-encode-region (start end)
+  (defun base64-ccl-encode-region (start end &optional no-line-break)
     "Encode region from START to END with base64 encoding."
     (interactive "r")
-    (decode-coding-region start end 'mel-ccl-base64-lf-rev))
+    (if no-line-break
+	(decode-coding-region start end 'mel-ccl-b-rev)
+      (decode-coding-region start end 'mel-ccl-base64-lf-rev)))
 
   (defun base64-ccl-insert-encoded-file (filename)
     "Encode contents of file FILENAME to base64, and insert the result."