(if required-name
(setq ret (mime-delq-null-situation ret required-name ignored-value)))
(or (assq 'ignore-examples entity-situation)
(if required-name
(setq ret (mime-delq-null-situation ret required-name ignored-value)))
(or (assq 'ignore-examples entity-situation)