1999-12-18 Simon Josefsson <jas@pdc.kth.se>

[gnus] / lisp / base64.el

diff --git a/lisp/base64.el b/lisp/base64.el
index 65c458d..2635349 100644 (file)
--- a/lisp/base64.el
+++ b/lisp/base64.el
@@ -245,12 +245,12 @@ base64-encoder-program.")
       (and work-buffer (kill-buffer work-buffer))))
   (message "Encoding base64... done"))
 
-(defun base64-encode (string)
+(defun base64-encode (string &optional no-line-break)
   (save-excursion
     (set-buffer (get-buffer-create " *base64-encode*"))
     (erase-buffer)
     (insert string)
-    (base64-encode-region (point-min) (point-max))
+    (base64-encode-region (point-min) (point-max) no-line-break)
     (skip-chars-backward " \t\r\n")
     (delete-region (point-max) (point))
     (prog1