- ;; Guess Content-Type from the file name extention.
- ;; Some mailer sends a part without type like this:
- ;; Content-Type: ; name="IMG_3156.JPG"
- ;; Content-Disposition: attachment; filename="IMG_3156.JPG"
- (list (or
- (let ((tem
- (or (mail-content-type-get cdl 'filename)
- (and ct
- (with-temp-buffer
- (insert ct)
- (goto-char (point-min))
- (and (re-search-forward "\
-;[\t\n ]*name=\\([\"']\\|\\([^\t\n\r ]+\\)\\)" nil t)
- (or (match-string 2)
- (progn
- (goto-char (match-beginning 1))
- (condition-case nil
- (progn
- (forward-sexp 1)
- (buffer-substring
- (1+ (match-beginning 1))
- (1- (point))))
- (error nil))))))))))
- (and tem
- (setq tem (file-name-extension tem))
- (require 'mailcap)
- (cdr (assoc (concat "." (downcase tem))
- mailcap-mime-extensions))))
- mm-dissect-default-type))