(mel-define-service): Change size of obarray to 7.

diff --git a/mime-def.el b/mime-def.el
index abaaed1..8720db1 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -443,7 +443,7 @@ If ARGS is specified, NAME is defined as a generic function for the
 service."
   `(progn
      (add-to-list 'mel-service-list ',name)
-     (defvar ,(intern (format "%s-obarray" name)) (make-vector 1 nil))
+     (defvar ,(intern (format "%s-obarray" name)) (make-vector 7 0))
      ,@(if args
           `((defun ,name ,args
               ,@rest