From: morioka <morioka>
Date: Fri, 14 Mar 1997 06:09:23 +0000 (+0000)
Subject: Definition of `mime-edit-mode' must be previous to `add-minor-mode'.
X-Git-Tag: Hokutetsu-Ishikawa-new~154
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=10f0bb908ba5e5e8a153ad8f98a681ff52c696bc;p=elisp%2Fsemi.git

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
--- 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