-(cond
- ((fboundp 'base64-dl-encode-string)
- (defalias 'base64-encode-string 'base64-dl-encode-string))
- ((fboundp 'base64-ccl-encode-string)
- (defalias 'base64-encode-string 'base64-ccl-encode-string))
- (t
- (defalias 'base64-encode-string 'base64-internal-encode-string)))
-
-(cond
- ((fboundp 'base64-dl-decode-string)
- (defalias 'base64-decode-string 'base64-dl-decode-string))
- ((fboundp 'base64-ccl-decode-string)
- (defalias 'base64-decode-string 'base64-ccl-decode-string))
- (t
- (defun base64-decode-string (string)
- "Decode STRING which is encoded in base64, and return the result.
-This function calls internal base64 decoder if size of STRING is
-smaller than `base64-internal-decoding-limit', otherwise it calls
-external base64 decoder specified by `base64-external-decoder'. In
-this case, you must install the program (maybe mmencode included in
-metamail or XEmacs package)."
- (interactive "r")
- (if (and base64-internal-decoding-limit
- (> (length string) base64-internal-decoding-limit))
- (base64-external-decode-string string)
- (base64-internal-decode-string string)))))
-
-(cond
- ((fboundp 'base64-dl-encode-region)
- (defalias 'base64-encode-region 'base64-dl-encode-region)) ; no fold
- ((fboundp 'base64-ccl-encode-region)
- (defalias 'base64-encode-region 'base64-ccl-encode-region)) ; no fold
- (t
- (defun base64-encode-region (start end)
- "Encode current region by base64.
-START and END are buffer positions.
-This function calls internal base64 encoder if size of region is
-smaller than `base64-internal-encoding-limit', otherwise it calls
-external base64 encoder specified by `base64-external-encoder'. In
-this case, you must install the program (maybe mmencode included in
-metamail or XEmacs package)."
- (interactive "r")
- (if (and base64-internal-encoding-limit
- (> (- end start) base64-internal-encoding-limit))
- (base64-external-encode-region start end)
- (base64-internal-encode-region start end))))) ; LF fold
-
-(cond
- ((fboundp 'base64-dl-decode-region)
- (defalias 'base64-decode-region 'base64-dl-decode-region))
- ((fboundp 'base64-ccl-decode-region)
- (defalias 'base64-decode-region 'base64-ccl-decode-region))
- (t
- (defun base64-decode-region (start end)
- "Decode current region by base64.
-START and END are buffer positions.
-This function calls internal base64 decoder if size of region is
-smaller than `base64-internal-decoding-limit', otherwise it calls
-external base64 decoder specified by `base64-external-decoder'. In
-this case, you must install the program (maybe mmencode included in
-metamail or XEmacs package)."
- (interactive "r")
- (if (and base64-internal-decoding-limit
- (> (- end start) base64-internal-decoding-limit))
- (base64-external-decode-region start end)
- (base64-internal-decode-region start end)))))
-
-(cond
- ((fboundp 'base64-ccl-insert-encoded-file)
- (defalias 'base64-insert-encoded-file 'base64-ccl-insert-encoded-file))
- (t
- (defalias 'base64-insert-encoded-file 'base64-external-insert-encoded-file)))
-
-(cond
- ((fboundp 'base64-ccl-write-decoded-region)
- (defalias 'base64-write-decoded-region 'base64-ccl-write-decoded-region))
- (t
- (defalias 'base64-write-decoded-region 'base64-external-write-decoded-region)))
-
-(cond
- (t
- (defalias 'base64-encoded-length 'base64-internal-encoded-length)))
-
-(cond
- ((fboundp 'quoted-printable-ccl-encode-string)
- (defalias 'quoted-printable-encode-string 'quoted-printable-ccl-encode-string))
- (t
- (defun quoted-printable-encode-string (string)
- "Encode STRING to quoted-printable, and return the result."
- (if (and quoted-printable-internal-encoding-limit
- (> (length string) quoted-printable-internal-encoding-limit))
- (quoted-printable-external-encode-string string)
- (quoted-printable-internal-encode-string string)))))
-
-(cond
- ((fboundp 'quoted-printable-ccl-decode-string)
- (defalias 'quoted-printable-decode-string 'quoted-printable-ccl-decode-string))
- (t
- (defun quoted-printable-decode-string (string)
- "Decode STRING which is encoded in quoted-printable, and return the result."
- (if (and quoted-printable-internal-decoding-limit
- (> (length string) quoted-printable-internal-decoding-limit))
- (quoted-printable-external-decode-string string)
- (quoted-printable-internal-decode-string string)))))
-
-(cond
- ((fboundp 'quoted-printable-ccl-encode-region)
- (defalias 'quoted-printable-encode-region 'quoted-printable-ccl-encode-region))
- (t
- (defun quoted-printable-encode-region (start end)
- "Encode current region by quoted-printable.
-START and END are buffer positions.
-This function calls internal quoted-printable encoder if size of
-region is smaller than `quoted-printable-internal-encoding-limit',
-otherwise it calls external quoted-printable encoder specified by
-`quoted-printable-external-encoder'. In this case, you must install
-the program (maybe mmencode included in metamail or XEmacs package)."
- (interactive "r")
- (if (and quoted-printable-internal-encoding-limit
- (> (- end start) quoted-printable-internal-encoding-limit))
- (quoted-printable-external-encode-region start end)
- (quoted-printable-internal-encode-region start end)
- ))))
-
-(cond
- ((fboundp 'quoted-printable-ccl-decode-region)
- (defalias 'quoted-printable-decode-region 'quoted-printable-ccl-decode-region))
- (t
- (defun quoted-printable-decode-region (start end)
- "Decode current region by quoted-printable.
-START and END are buffer positions.
-This function calls internal quoted-printable decoder if size of
-region is smaller than `quoted-printable-internal-decoding-limit',
-otherwise it calls external quoted-printable decoder specified by
-`quoted-printable-external-decoder'. In this case, you must install
-the program (maybe mmencode included in metamail or XEmacs package)."
- (interactive "r")
- (if (and quoted-printable-internal-decoding-limit
- (> (- end start) quoted-printable-internal-decoding-limit))
- (quoted-printable-external-decode-region start end)
- (quoted-printable-internal-decode-region start end)
- ))))
-
-(cond
- ((fboundp 'quoted-printable-ccl-insert-encoded-file)
- (defalias 'quoted-printable-insert-encoded-file 'quoted-printable-ccl-insert-encoded-file))
- (t
- (defalias 'quoted-printable-insert-encoded-file 'quoted-printable-external-insert-encoded-file)))
-
-(cond
- ((fboundp 'quoted-printable-ccl-write-decoded-region)
- (defalias 'quoted-printable-write-decoded-region 'quoted-printable-ccl-write-decoded-region))
- (t
- (defalias 'quoted-printable-write-decoded-region 'quoted-printable-external-write-decoded-region)))
-
-(cond
- ((fboundp 'q-encoding-ccl-encode-string)
- (defalias 'q-encoding-encode-string 'q-encoding-ccl-encode-string))
- (t
- (defalias 'q-encoding-encode-string 'q-encoding-internal-encode-string)))
-
-(cond
- ((fboundp 'q-encoding-ccl-decode-string)
- (defalias 'q-encoding-decode-string 'q-encoding-ccl-decode-string))
- (t
- (defalias 'q-encoding-decode-string 'q-encoding-internal-decode-string)))
-
-(cond
- (t
- (defalias 'q-encoding-encoded-length 'q-encoding-internal-encoded-length)))
-
-(cond
- (t
- (defalias 'uuencode-encode-region 'uuencode-external-encode-region)))
-
-(cond
- (t
- (defalias 'uuencode-decode-region 'uuencode-external-decode-region)))
-
-(cond
- (t
- (defalias 'uuencode-insert-encoded-file 'uuencode-external-insert-encoded-file)))
-
-(cond
- (t
- (defalias 'uuencode-write-decoded-region 'uuencode-external-write-decoded-region)))
-
-(cond
- (t
- (defalias 'gzip64-encode-region 'gzip64-external-encode-region)))
-
-(cond
- (t
- (defalias 'gzip64-decode-region 'gzip64-external-decode-region)))
-
-(cond
- (t
- (defalias 'gzip64-insert-encoded-file 'gzip64-external-insert-encoded-file)))
-
-(cond
- (t
- (defalias 'gzip64-write-decoded-region 'gzip64-external-write-decoded-region)))