;;; Code:
(require 'emu)
-(or (fboundp 'write-region-as-binary)
- (error "Please install latest APEL."))
-
-(defconst mel-version "7.2")
+(defconst mel-version "7.5")
;;; @ variable
;;;
-(defvar mime-temp-directory (or (getenv "MIME_TMP_DIR")
- (getenv "TM_TMP_DIR")
- "/tmp/")
- "*Directory for temporary files.")
-
(defvar base64-dl-module
(and (fboundp 'dynamic-link)
- (expand-file-name "base64.so" exec-directory)))
+ (let ((path (expand-file-name "base64.so" exec-directory)))
+ (and (file-exists-p path)
+ path))))
;;; @ autoload