MIME message WL/SEMI doesn't display properly

[Robert Spier]

Argh.  Looks like it got expanded.

I did more digging, and mime-display-multipart/related was only
displaying the first related part.  It looks like there was some
intent to display more, but it was never coded.

Here's my modified version that will display all related entities.

(defun mime-display-multipart/related (entity situation)
  (let* ((param-start (mime-parse-msg-id
                       (std11-lexical-analyze
                        (cdr (assoc "start"
                                    (mime-content-type-parameters
                                     (mime-entity-content-type entity)))))))
         (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)))
    (dolist (ent 
             (or (and param-start (mime-find-entity-from-content-id
                                   param-start
                                   entity))
                 (mime-entity-children entity)))
      (mime-display-entity ent nil default-situation))))

Patch version is attached.

-R

-------------- next part --------------
A non-text attachment was scrubbed...
Name: related.patch
Type: application/octet-stream
Size: 1636 bytes
Desc: not available
URL: <http://lists.chise.org/pipermail/emacs-mime-en/attachments/20050405/67f8991d/attachment.obj>