(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 (file)
--- 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 (file)
--- 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))