(mime-delq-null-situation): Moved to mime-view.el.

diff --git a/mime-play.el b/mime-play.el
index b98ccea..9e258c0 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -217,19 +217,6 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
              )))
   )
 
-(defsubst mime-delq-null-situation (situations field
-                                              &optional ignored-value)
-  (let (dest)
-    (while situations
-      (let* ((situation (car situations))
-            (cell (assq field situation)))
-       (if cell
-           (or (eq (cdr cell) ignored-value)
-               (setq dest (cons situation dest))
-               )))
-      (setq situations (cdr situations)))
-    dest))
-
 (defun mime-compare-situation-with-example (situation example)
   (let ((example (copy-alist example))
        (match 0))