(base64-encode-string): Allow the optional second arg `no-line-break'.

diff --git a/ChangeLog b/ChangeLog
index 124b264..82a664f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-12-20  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+       * mel-b-el.el (base64-encode-string): Allow the optional second arg
+       `no-line-break'.
+
 1999-12-13  Kenichi OKADA <okada@opaopa.org>
 
        * smtp.el (smtp-aut-login): Update to new api.

diff --git a/mel-b-el.el b/mel-b-el.el
index f661853..00e46fd 100644 (file)
--- a/mel-b-el.el
+++ b/mel-b-el.el
@@ -123,7 +123,7 @@ external decoder is called."
                   (ash (logand (car pack) 3) 4))))
     buf))
 
-(defun-maybe base64-encode-string (string)
+(defun-maybe base64-encode-string (string &optional no-line-break)
   "Encode STRING to base64, and return the result."
   (let* ((len (length string))
         (b 0)(e 57)
@@ -135,7 +135,7 @@ external decoder is called."
                     (function base64-encode-1)
                     (pack-sequence (substring string b e) 3)
                     "")
-                   "\n"))
+                   (if (not no-line-break) "\n")))
       (setq b e
            e (+ e 57)))
     (concat dest