From 25a10e811f146d5af48fec3ee8295c380a46cae2 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 20 Dec 1999 01:42:42 +0000 Subject: [PATCH] (base64-encode-string): Allow the optional second arg `no-line-break'. --- ChangeLog | 5 +++++ mel-b-el.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 124b264..82a664f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1999-12-20 Katsumi Yamaoka + + * mel-b-el.el (base64-encode-string): Allow the optional second arg + `no-line-break'. + 1999-12-13 Kenichi OKADA * 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 -- 1.7.10.4