From: morioka <morioka>
Date: Tue, 21 Apr 1998 17:28:54 +0000 (+0000)
Subject: Use 'ctree-set-calist-strictly instead of 'set-atype to set up for
X-Git-Tag: emh-1_3_0~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0075d474f0f1cdc4f0d6fb3ce010ad1b5ca384e6;p=elisp%2Femh.git

Use 'ctree-set-calist-strictly instead of 'set-atype to set up for
'mime-acting-condition.
---

diff --git a/emh.el b/emh.el
index ae51877..77f868f 100644
--- a/emh.el
+++ b/emh.el
@@ -31,8 +31,6 @@
 
 (require 'mh-e)
 (require 'mime-view)
-(or (get-unified-alist mime-acting-condition '((type . text)))
-    (error "Please install latest SEMI."))
 (eval-when-compile (require 'mime-text))
 
 
@@ -301,18 +299,19 @@ It is registered to variable `mime-view-content-header-filter-alist'."
   "mime-partial"
   "Internal method to combine message/partial messages automatically.")
 
-(set-atype 'mime-acting-condition
-	   '((type . message)(subtype . partial)
-	     (method . mime-method-to-combine-message/partial-pieces)
-	     (major-mode . mh-show-mode)
-	     (summary-buffer-exp
-	      . (and (or (string-match "^article-\\(.+\\)$"
-				       article-buffer)
-			 (string-match "^show-\\(.+\\)$" article-buffer))
-		     (substring article-buffer
-				(match-beginning 1) (match-end 1))
-		     ))
-	     ))
+(ctree-set-calist-strictly
+ 'mime-acting-condition
+ '((type . message)(subtype . partial)
+   (method . mime-method-to-combine-message/partial-pieces)
+   (major-mode . mh-show-mode)
+   (summary-buffer-exp
+    . (and (or (string-match "^article-\\(.+\\)$"
+			     article-buffer)
+	       (string-match "^show-\\(.+\\)$" article-buffer))
+	   (substring article-buffer
+		      (match-beginning 1) (match-end 1))
+	   ))
+   ))
 
 (set-alist 'mime-view-partial-message-method-alist
 	   'mh-show-mode