From: yamaoka <yamaoka>
Date: Mon, 20 Dec 1999 01:42:42 +0000 (+0000)
Subject: (base64-encode-string): Allow the optional second arg `no-line-break'.
X-Git-Tag: slim-1_13_5~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=25a10e811f146d5af48fec3ee8295c380a46cae2;p=elisp%2Fflim.git

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

diff --git a/ChangeLog b/ChangeLog
index 124b264..82a664f 100644
--- 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
--- 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