* 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 (file)
--- 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 (file)
--- 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."