((mm-text-parts
(handle)
(cond ((stringp (car handle))
- (let ((parts (mapcan #'mm-text-parts (cdr handle))))
+ (let ((parts (apply #'append
+ (mapcar #'mm-text-parts (cdr handle)))))
(if (equal "multipart/alternative" (car handle))
;; pick the first supported alternative
(list (car parts))
(when (string-match "^text/" (mm-handle-media-type handle))
(list handle)))
- (t (mapcan #'mm-text-parts handle))))
+ (t (apply #'append (mapcar #'mm-text-parts handle)))))
(my-mm-display-part
(handle)
(when handle