From: tomo <tomo>
Date: Sun, 16 Jan 2000 07:08:52 +0000 (+0000)
Subject: (mime-delq-null-situation): Moved to mime-view.el.
X-Git-Tag: remi-1_14_0~57
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=17af94b72778ce9327d90a8aeeba8463433fe57e;p=elisp%2Fsemi.git

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

diff --git a/mime-play.el b/mime-play.el
index b98ccea..9e258c0 100644
--- 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))