Reduce `mime-acting-situation-example-list' while it is bigger than
authormorioka <morioka>
Thu, 9 Jul 1998 06:59:39 +0000 (06:59 +0000)
committermorioka <morioka>
Thu, 9 Jul 1998 06:59:39 +0000 (06:59 +0000)
`mime-acting-situation-example-list-max-size'.

mime-play.el

index 625b628..bb5870b 100644 (file)
@@ -732,10 +732,13 @@ It is registered to variable `mime-preview-quitting-method-alist'."
            (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))))