From: morioka <morioka>
Date: Thu, 2 Oct 1997 07:48:02 +0000 (+0000)
Subject: (mime-edit-insert-text): Rename `second' -> `cadr' (Don't use cl
X-Git-Tag: XEmacs-20_3-b27-viet~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e93d4a6ae1f8d19485c06170ef38225b34eadbed;p=elisp%2Fsemi.git

(mime-edit-insert-text): Rename `second' -> `cadr' (Don't use cl
function).
---

diff --git a/mime-edit.el b/mime-edit.el
index 613e401..70deaaf 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -7,7 +7,7 @@
 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1994/08/21 renamed from mime.el
 ;;	Renamed: 1997/2/21 from tm-edit.el
-;; Version: $Revision: 0.91 $
+;; Version: $Revision: 0.92 $
 ;; Keywords: MIME, multimedia, multilingual, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -122,7 +122,7 @@
 ;;;
 
 (defconst mime-edit-RCS-ID
-  "$Id: mime-edit.el,v 0.91 1997-09-18 03:01:52 morioka Exp $")
+  "$Id: mime-edit.el,v 0.92 1997-10-02 07:48:02 morioka Exp $")
 
 (defconst mime-edit-version `,(get-version-string mime-edit-RCS-ID))
 
@@ -949,7 +949,7 @@ Charset is automatically obtained from the `charsets-mime-charset-alist'."
 	      (insert "\n")
 	      (forward-char -1)
 	      ))
-	(if (and (member (second ret) '("enriched" "richtext"))
+	(if (and (member (cadr ret) '("enriched" "richtext"))
 		 (fboundp 'enriched-mode)
 		 )
 	    (enriched-mode t)