From: yamaoka <yamaoka>
Date: Tue, 28 Dec 1999 07:14:10 +0000 (+0000)
Subject: (mime-edit-user-agent-value): Use `error' instead of `file-error' for the
X-Git-Tag: remi-1_14_0~62
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=be81ccfb11930cab5add278834b832d9440df7d2;p=elisp%2Fsemi.git

(mime-edit-user-agent-value): Use `error' instead of `file-error' for the
handler of `condition-case' because XEmacs does not signal an error named
`file-error' if the required feature is not provided.
---

diff --git a/ChangeLog b/ChangeLog
index 8a606ed..ac38951 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+1999-12-28  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* mime-edit.el (mime-edit-user-agent-value): Use `error' instead of
+	`file-error' for the handler of `condition-case' because XEmacs
+	does not signal an error named `file-error' if the required feature
+	is not provided.
+
 1999-12-16  MORIOKA Tomohiko  <tomo@m17n.org>
 
 	* semi-setup.el (mime-setup-decode-message-header): Comment out.
@@ -7,9 +14,9 @@
 
 1999-12-14  Akihiro Arisawa   <ari@atesoft.advantest.co.jp>
 
-	* mime-view.el (mime-preview-follow-current-entity): Fetch field
-	of `mime-view-following-required-fields-list' from parent entity
-	if it is not exist in current entity.
+	* mime-view.el (mime-preview-follow-current-entity): Fetch field of
+	`mime-view-following-required-fields-list' from parent entity if it
+	is not exist in current entity.
 
 1999-12-13  Katsumi Yamaoka   <yamaoka@jpl.org>
 
diff --git a/mime-edit.el b/mime-edit.el
index c49d605..3eb5b08 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -650,7 +650,7 @@ If it is not specified for a major-mode,
 	      (progn
 		(require 'apel-ver)
 		(concat (apel-version) " "))
-	    (file-error nil))
+	    (error nil))
 	  (if (featurep 'xemacs)
 	      (concat (cond ((featurep 'utf-2000)
 			     (concat "UTF-2000-MULE/" utf-2000-version))