From 2ca41d9a653ea09486e56c5e1cc8fd15e4b1ef69 Mon Sep 17 00:00:00 2001 From: akr Date: Fri, 19 Feb 1999 03:36:49 +0000 Subject: [PATCH] * mel-b-ccl.el (base64-ccl-encode-string): New argument `no-line-break'. (base64-ccl-encode-region): Ditto. --- ChangeLog | 5 +++++ mel-b-ccl.el | 12 ++++++++---- 2 files changed, 13 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 22b757e..9d8dfba 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 1999-02-19 Tanaka Akira + * mel-b-ccl.el (base64-ccl-encode-string): New argument `no-line-break'. + (base64-ccl-encode-region): Ditto. + +1999-02-19 Tanaka Akira + * 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 --- 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." -- 1.7.10.4