(mime-acting-situation-example-list-max-size): New variable.

(mime-reduce-acting-situation-examples): New function.
(mime-preview-play-current-entity): Change interface to add
`ignore-examples'.
(mime-raw-play-entity): Add new optional argument `ignore-examples'.
Reduce `mime-acting-situation-example-list' when loading example file.

diff --git a/mime-play.el b/mime-play.el
index 57ea22a..de83764 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -39,6 +39,8 @@
 
 (defvar mime-acting-situation-example-list nil)
 
+(defvar mime-acting-situation-example-list-max-size 16)
+
 (defun mime-save-acting-situation-examples ()
   (let* ((file mime-acting-situation-examples-file)
         (buffer (get-buffer-create " *mime-example*")))
@@ -62,25 +64,74 @@
 
 (add-hook 'kill-emacs-hook 'mime-save-acting-situation-examples)
 
-  
+(defun mime-reduce-acting-situation-examples ()
+  (let* ((rest mime-acting-situation-example-list)
+        (min-example (car rest))
+        (min-score (cdr min-example)))
+    (while rest
+      (let* ((example (car rest))
+            (score (cdr example)))
+       (cond ((< score min-score)
+              (setq min-score score
+                    min-example example)
+              )
+             ((= score min-score)
+              (if (<= (length (car example))(length (car min-example)))
+                  (setq min-example example)
+                ))
+             ))
+      (setq rest (cdr rest)))
+    (setq mime-acting-situation-example-list
+         (delq min-example mime-acting-situation-example-list))
+    (setq min-example (car min-example))
+    (let ((examples mime-acting-situation-example-list)
+         (max-score 0)
+         max-examples)
+      (while examples
+       (let* ((ret (mime-compare-situation-with-example min-example
+                                                        (caar examples)))
+              (ret-score (car ret)))
+         (cond ((> ret-score max-score)
+                (setq max-score ret-score
+                      max-examples (list (cdr ret)))
+                )
+               ((= ret-score max-score)
+                (setq max-examples (cons (cdr ret) max-examples))
+                )))
+       (setq examples (cdr examples)))
+      (while max-examples
+       (let* ((example (car max-examples))
+              (cell (assoc example mime-acting-situation-example-list)))
+         (if cell
+             (setcdr cell (1+ (cdr cell)))
+           (setq mime-acting-situation-example-list
+                 (cons (cons example 0)
+                       mime-acting-situation-example-list))
+           ))
+       (setq max-examples (cdr max-examples))
+       ))))
+
+
 ;;; @ content decoder
 ;;;
 
 (defvar mime-preview-after-decoded-position nil)
 
-(defun mime-preview-play-current-entity (&optional mode)
+(defun mime-preview-play-current-entity (&optional ignore-examples mode)
   "Play current entity.
 It decodes current entity to call internal or external method.  The
 method is selected from variable `mime-acting-condition'.
+If IGNORE-EXAMPLES (C-u prefix) is specified, this function ignores
+`mime-acting-situation-example-list'.
 If MODE is specified, play as it.  Default MODE is \"play\"."
-  (interactive)
+  (interactive "P")
   (let ((entity (get-text-property (point) 'mime-view-entity)))
     (if entity
        (let ((the-buf (current-buffer))
              (raw-buffer (mime-entity-buffer entity)))
          (setq mime-preview-after-decoded-position (point))
          (set-buffer raw-buffer)
-         (mime-raw-play-entity entity (or mode "play"))
+         (mime-raw-play-entity entity (or mode "play") nil ignore-examples)
          (when (eq (current-buffer) raw-buffer)
            (set-buffer the-buf)
            (goto-char mime-preview-after-decoded-position)
@@ -149,7 +200,7 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
     (cons match example)
     ))
 
-(defun mime-raw-play-entity (entity &optional mode situation)
+(defun mime-raw-play-entity (entity &optional mode situation ignore-examples)
   "Play entity specified by ENTITY.
 It decodes the entity to call internal or external method.  The method
 is selected from variable `mime-acting-condition'.  If MODE is
@@ -165,45 +216,56 @@ specified, play as it.  Default MODE is \"play\"."
           (ctree-find-calist mime-acting-condition situation
                              mime-view-find-every-acting-situation)
           'method))
-    (if (cdr ret)
-       (let ((rest ret)
-             (max-score 0)
-             max-examples
-             max-situations)
-         (while rest
-           (let ((situation (car rest))
-                 (examples mime-acting-situation-example-list))
-             (while examples
-               (let* ((ret
-                       (mime-compare-situation-with-example situation
-                                                            (caar examples)))
-                      (ret-score (car ret)))
-                 (cond ((> ret-score max-score)
-                        (setq max-score ret-score
-                              max-examples (list (cdr ret))
-                              max-situations (list situation))
-                        )
-                       ((= ret-score max-score)
-                        (setq max-examples (cons (cdr ret) max-examples))
-                        (or (member situation max-situations)
-                            (setq max-situations
-                                  (cons situation max-situations)))
-                        )))
-               (setq examples (cdr examples))))
-           (setq rest (cdr rest)))
-         (when max-situations
-           (setq ret max-situations)
-           (while max-examples
-             (let* ((example (car max-examples))
-                    (cell (assoc example mime-acting-situation-example-list)))
-               (if cell
-                   (setcdr cell (1+ (cdr cell)))
-                 (setq mime-acting-situation-example-list
-                       (cons (cons example 0)
-                             mime-acting-situation-example-list))
-                 ))
-             (setq max-examples (cdr max-examples))
-             ))))
+    (or ignore-examples
+       (if (cdr ret)
+           (let ((rest ret)
+                 (max-score 0)
+                 max-escore
+                 max-examples
+                 max-situations)
+             (while rest
+               (let ((situation (car rest))
+                     (examples mime-acting-situation-example-list))
+                 (while examples
+                   (let* ((ret
+                           (mime-compare-situation-with-example
+                            situation (caar examples)))
+                          (ret-score (car ret)))
+                     (cond ((> ret-score max-score)
+                            (setq max-score ret-score
+                                  max-escore (cdar examples)
+                                  max-examples (list (cdr ret))
+                                  max-situations (list situation))
+                            )
+                           ((= ret-score max-score)
+                            (cond ((> (cdar examples) max-escore)
+                                   (setq max-escore (cdar examples)
+                                         max-examples (list (cdr ret))
+                                         max-situations (list situation))
+                                   )
+                                  ((= (cdar examples) max-escore)
+                                   (setq max-examples
+                                         (cons (cdr ret) max-examples))
+                                   (or (member situation max-situations)
+                                       (setq max-situations
+                                             (cons situation max-situations)))
+                                   )))))
+                   (setq examples (cdr examples))))
+               (setq rest (cdr rest)))
+             (when max-situations
+               (setq ret max-situations)
+               (while max-examples
+                 (let* ((example (car max-examples))
+                        (cell
+                         (assoc example mime-acting-situation-example-list)))
+                   (if cell
+                       (setcdr cell (1+ (cdr cell)))
+                     (setq mime-acting-situation-example-list
+                           (cons (cons example 0)
+                                 mime-acting-situation-example-list))
+                     ))
+                 (setq max-examples (cdr max-examples))
+                 )))))
     (cond ((cdr ret)
           (setq ret (select-menu-alist
                      "Methods"
@@ -657,8 +719,12 @@ It is registered to variable `mime-preview-quitting-method-alist'."
            (insert-file-contents file)
            (eval-buffer)
            ;; format check
-           (or (consp (car (car mime-acting-situation-example-list)))
-               (setq mime-acting-situation-example-list nil))
+           (condition-case nil
+               (if (> (length mime-acting-situation-example-list)
+                      mime-acting-situation-example-list-max-size)
+                   (mime-reduce-acting-situation-examples)
+                 )
+             (error (setq mime-acting-situation-example-list nil)))
            )
        (kill-buffer buffer))))