From: morioka <morioka>
Date: Sun, 21 Sep 1997 17:40:42 +0000 (+0000)
Subject: Don't use cl.
X-Git-Tag: semi-0_115~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=79da7f08d9818a669ca63537519e65ffdf3ed265;p=elisp%2Fsemi.git

Don't use cl.
(mime-article/rcnum-to-cinfo): New implementation (use function
`mime-article/cnum-to-cinfo'); use `defsubst'.
---

diff --git a/mime-view.el b/mime-view.el
index 41264b4..b61669d 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -6,7 +6,7 @@
 ;; Created: 1994/7/13
 ;;	Renamed: 1994/8/31 from tm-body.el
 ;;	Renamed: 1997/02/19 from tm-view.el
-;; Version: $Revision: 0.112 $
+;; Version: $Revision: 0.113 $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -28,7 +28,6 @@
 
 ;;; Code:
 
-(require 'cl)
 (require 'std11)
 (require 'mel)
 (require 'eword-decode)
@@ -40,7 +39,7 @@
 ;;;
 
 (defconst mime-view-RCS-ID
-  "$Id: mime-view.el,v 0.112 1997-09-05 16:56:00 morioka Exp $")
+  "$Id: mime-view.el,v 0.113 1997-09-21 17:40:42 morioka Exp $")
 
 (defconst mime-view-version
   `,(get-version-string mime-view-RCS-ID))
@@ -638,7 +637,7 @@ The compressed face will be piped to this command.")
       ""))
 
 
-;;; @ content information
+;;; @ entity information
 ;;;
 
 (defun mime-article/point-content-number (p &optional cinfo)
@@ -663,16 +662,9 @@ The compressed face will be piped to this command.")
 		  )))
 	    t))))
 
-(defun mime-article/rcnum-to-cinfo (rcnum &optional cinfo)
-  (or cinfo
-      (setq cinfo mime::article/content-info)
-      )
-  (find-if (function
-	    (lambda (ci)
-	      (equal (mime-entity-info-rnum ci) rcnum)
-	      ))
-	   (mime/flatten-content-info cinfo)
-	   ))
+(defsubst mime-article/rcnum-to-cinfo (rnum &optional cinfo)
+  (mime-article/cnum-to-cinfo (reverse rnum) cinfo)
+  )
 
 (defun mime-article/cnum-to-cinfo (cn &optional cinfo)
   (or cinfo