From: yamaoka <yamaoka>
Date: Tue, 21 Dec 1999 01:44:52 +0000 (+0000)
Subject: (base64-encode-string, base64-decode-string): Autoload "base64" instead of
X-Git-Tag: t-gnus-6_14_0-13~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=61df08f6eab0359a3106fe7e3dd4305e1fef5996;p=elisp%2Fgnus.git-

(base64-encode-string, base64-decode-string): Autoload "base64" instead of
the tricky definitions.
---

diff --git a/lisp/imap.el b/lisp/imap.el
index 1007d0b..bd6665b 100644
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -139,6 +139,8 @@
 
 (eval-and-compile
   (autoload 'open-ssl-stream "ssl")
+  (autoload 'base64-decode-string "base64")
+  (autoload 'base64-encode-string "base64")
   (autoload 'starttls-open-stream "starttls")
   (autoload 'starttls-negotiate "starttls")
   (autoload 'digest-md5-parse-digest-challenge "digest-md5")
@@ -147,35 +149,7 @@
   (autoload 'utf7-encode "utf7")
   (autoload 'utf7-decode "utf7")
   (autoload 'format-spec "format-spec")
-  (autoload 'format-spec-make "format-spec")
-  (require 'mel))
-
-(defun-maybe base64-decode-string (string)
-  "Base64-decode STRING and return the result."
-  (fset 'base64-decode-string
-	(symbol-function (mel-find-function 'mime-decode-string "base64")))
-  (base64-decode-string string))
-
-(eval-and-compile
-  (condition-case nil
-      (base64-encode-string "" 'no-line-break)
-    (error
-     (condition-case nil
-	 (let ((fn (mel-find-function 'mime-encode-string "base64")))
-	   (funcall fn "" 'no-line-break)
-	   (fset 'base64-encode-string (symbol-function fn)))
-       (wrong-number-of-arguments
-	(defun base64-encode-string (string &optional no-line-break)
-	  "Base64-encode STRING and return the result.
-Optional second argument NO-LINE-BREAK means do not break long lines
-into shorter lines."
-	  (let ((fn (mel-find-function 'mime-encode-string "base64")))
-	    (if no-line-break
-		(mapconcat 'identity
-			   (split-string (funcall fn string) "\n")
-			   "")
-		(funcall fn string))))))
-     )))
+  (autoload 'format-spec-make "format-spec"))
 
 (autoload 'md5 "md5")