Definition of `mime-edit-mode' must be previous to `add-minor-mode'.

diff --git a/mime-edit.el b/mime-edit.el
index fda8ace..3d1d164 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -7,7 +7,7 @@
 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1994/08/21 renamed from mime.el
 ;;     Renamed: 1997/2/21 from tm-edit.el
-;; Version: $Revision: 0.71 $
+;; Version: $Revision: 0.72 $
 ;; Keywords: MIME, multimedia, multilingual, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -122,7 +122,7 @@
 ;;;
 
 (defconst mime-edit-RCS-ID
-  "$Id: mime-edit.el,v 0.71 1997-03-14 04:49:04 morioka Exp $")
+  "$Id: mime-edit.el,v 0.72 1997-03-14 06:09:23 morioka Exp $")
 
 (defconst mime-edit-version (get-version-string mime-edit-RCS-ID))
 
@@ -678,22 +678,6 @@ Tspecials means any character that matches with it in header must be quoted.")
               )
        ))
 
-(cond (running-xemacs
-       (add-minor-mode 'mime-edit-mode-flag
-                      '((" MIME-Edit "  mime-transfer-level-string))
-                      mime-edit-mode-map
-                      nil
-                      'mime-edit-mode)
-       )
-      (t
-       (set-alist 'minor-mode-alist
-                 'mime-edit-mode-flag
-                 '((" MIME-Edit "  mime-transfer-level-string)))
-       (set-alist 'minor-mode-map-alist
-                 'mime-edit-mode-flag
-                 mime-edit-mode-map)
-       ))
-
 
 ;;; @ functions
 ;;;
@@ -841,6 +825,24 @@ User customizable variables (not documented all of them):
       (turn-on-mime-edit)
       )))
 
+
+(cond (running-xemacs
+       (add-minor-mode 'mime-edit-mode-flag
+                      '((" MIME-Edit "  mime-transfer-level-string))
+                      mime-edit-mode-map
+                      nil
+                      'mime-edit-mode)
+       )
+      (t
+       (set-alist 'minor-mode-alist
+                 'mime-edit-mode-flag
+                 '((" MIME-Edit "  mime-transfer-level-string)))
+       (set-alist 'minor-mode-map-alist
+                 'mime-edit-mode-flag
+                 mime-edit-mode-map)
+       ))
+
+
 ;;;###autoload
 (defun turn-on-mime-edit ()
   "Unconditionally turn on MIME-Edit mode."
@@ -878,6 +880,7 @@ User customizable variables (not documented all of them):
 ;;;###autoload
 (defalias 'edit-mime 'turn-on-mime-edit) ; for convenience
 
+
 (defun mime-edit-exit (&optional nomime no-error)
   "Translate the tagged MIME message into a MIME compliant message.
 With no argument encode a message in the buffer into MIME, otherwise