From c00a2a51f691fdd8513e9e6a8f3f6623d0200b15 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Tue, 22 Aug 2000 09:26:00 +0000
Subject: [PATCH] * elmo-util.el (elmo-define-error): New function.

---
 elmo/elmo-util.el |   12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index e79bcee..f8e1ee4 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -1484,6 +1484,18 @@ Otherwise treat \\ in NEWTEXT string as special:
 	(setq first nil))
       (princ err-mes stream))))
 
+(if (fboundp 'define-error)
+    (defalias 'elmo-define-error 'define-error)
+  (defun elmo-define-error (error doc &optional parents)
+    (or parents
+	(setq parents 'error))
+    (let ((conds (get parents 'error-conditions)))
+      (or conds
+	  (error "Not an error symbol: %s" error))
+      (setplist error
+		(list 'error-message doc
+		      'error-conditions (cons error conds))))))
+
 (cond ((fboundp 'lprogress-display)
        (defalias 'elmo-display-progress 'lprogress-display))
       ((fboundp 'progress-feedback-with-label)
-- 
1.7.10.4