From 6e03e08f1d2f6434fbc9302933734677900638da Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 20 Dec 1999 01:42:23 +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 560dab8..a164837 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 Katsumi Yamaoka * README.en,README.ja,mime-en.sgml,mime-en.texi,mime-ja.sgml, 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