From fafbc387ce0b13cfaf36f6028d6b0d7aafd9b332 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 9 Jul 1998 06:59:39 +0000 Subject: [PATCH] Reduce `mime-acting-situation-example-list' while it is bigger than `mime-acting-situation-example-list-max-size'. --- mime-play.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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)))) -- 1.7.10.4