From: morioka <morioka>
Date: Thu, 9 Jul 1998 06:59:39 +0000 (+0000)
Subject: Reduce `mime-acting-situation-example-list' while it is bigger than
X-Git-Tag: remi-1_8-199811302358~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fafbc387ce0b13cfaf36f6028d6b0d7aafd9b332;p=elisp%2Fsemi.git

Reduce `mime-acting-situation-example-list' while it is bigger than
`mime-acting-situation-example-list-max-size'.
---

diff --git a/mime-play.el b/mime-play.el
index 625b628..bb5870b 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -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))))