Re: Apple Mail multipart message not displayed correctly
Kazuhiro Ito <[email protected]> Sat, 03 Feb 2018 19:29:46 +0900
| Newsgroups | gmane.mail.wanderlust.general |
|---|---|
| Message-ID | <86a7wqcqn9.wl--xmue__41254.0342346348$1517653748$gmane$org@d1.dion.ne.jp> |
> Here is an expample.
>
> (defun mime-display-multipart-for-variant (entity situation)
> (let* ((original-major-mode-cell (assq 'major-mode situation))
> (default-situation (cdr (assq 'childrens-situation situation))))
> (if original-major-mode-cell
> (setq default-situation
> (cons original-major-mode-cell default-situation)))
> (mapc
> (lambda (child)
> (setq situation (copy-alist (mime-find-entity-preview-situation
> child default-situation)))
> (mime-display-entity
> child (if (eq (cdr (assq 'type situation)) 'multipart)
> (put-alist 'body-presentation-method
> 'mime-display-multipart-for-apple
> situation)
> (put-alist 'body 'invisible situation))))
> (mime-entity-children entity))))
There was a typo. Correct code is below.
(defun mime-display-multipart-for-variant (entity situation)
(let* ((original-major-mode-cell (assq 'major-mode situation))
(default-situation (cdr (assq 'childrens-situation situation))))
(if original-major-mode-cell
(setq default-situation
(cons original-major-mode-cell default-situation)))
(mapc
(lambda (child)
(setq situation (copy-alist (mime-find-entity-preview-situation
child default-situation)))
(mime-display-entity
child (if (eq (cdr (assq 'type situation)) 'multipart)
(put-alist 'body-presentation-method
'mime-display-multipart-for-variant
situation)
(put-alist 'body 'invisible situation))))
(mime-entity-children entity))))
--
Kazuhiro Ito