From: yamaoka <yamaoka>
Date: Fri, 19 Nov 1999 13:15:27 +0000 (+0000)
Subject: (gnus-site-init-file): Use `condition-case' instead of `ignore-errors'.
X-Git-Tag: t-gnus-6_13_3-01~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e2143e521c89919620c9fea7810e7b65f63733db;p=elisp%2Fgnus.git-

(gnus-site-init-file): Use `condition-case' instead of `ignore-errors'.
---

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index e97de78..f2b28fb 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -49,10 +49,11 @@ If a file with the `.el' or `.elc' suffixes exists, it will be read instead."
   :type 'file)
 
 (defcustom gnus-site-init-file
-  (ignore-errors
-    (concat (file-name-directory
-	     (directory-file-name installation-directory))
-	    "site-lisp/gnus-init"))
+  (condition-case nil
+      (concat (file-name-directory
+	       (directory-file-name installation-directory))
+	      "site-lisp/gnus-init")
+    (error nil))
   "*The site-wide Gnus Emacs-Lisp startup file name, or nil if none.
 If a file with the `.el' or `.elc' suffixes exists, it will be read instead."
   :group 'gnus-start