`mime-acting-situation-example-list-max-size'.
(eval-buffer)
;; format check
(condition-case nil
- (if (> (length mime-acting-situation-example-list)
- mime-acting-situation-example-list-max-size)
+ (let ((i 0))
+ (while (and (> (length mime-acting-situation-example-list)
+ mime-acting-situation-example-list-max-size)
+ (< i 16))
(mime-reduce-acting-situation-examples)
- )
+ (setq i (1+ i))
+ ))
(error (setq mime-acting-situation-example-list nil)))
)
(kill-buffer buffer))))