(require 'semi-def)
(require 'calist)
(require 'alist)
-(require 'mailcap)
+(require 'mime-conf)
;;; @ version
(defvar mime-acting-condition nil
"Condition-tree about how to process entity.")
-(if (file-readable-p mailcap-file)
- (let ((entries (mailcap-parse-file)))
+(if (file-readable-p mime-mailcap-file)
+ (let ((entries (mime-parse-mailcap-file)))
(while entries
(let ((entry (car entries))
view print shared)