* elmo2.el (elmo-error): Define.

(elmo-open-error): Define.
(elmo-authenticate-error): Define.

diff --git a/elmo/elmo2.el b/elmo/elmo2.el
index 7a0373c..2461b42 100644 (file)
--- a/elmo/elmo2.el
+++ b/elmo/elmo2.el
@@ -54,6 +54,10 @@
        (featurep 'berkeley-db))
     (require 'elmo-database))
 
+(elmo-define-error 'elmo-error "error" 'error)
+(elmo-define-error 'elmo-open-error "Cannot open" 'elmo-error)
+(elmo-define-error 'elmo-authenticate-error "Login failed" 'elmo-open-error)
+
 (defun elmo-quit ()
   (interactive)
   (if (featurep 'elmo-imap4)