From: yamaoka <yamaoka>
Date: Wed, 14 Oct 1998 05:30:21 +0000 (+0000)
Subject: 	Sync up with SEMI 1.9.1.
X-Git-Tag: wemi-1_9_1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b30376cc656e6c35f4b0bfc4272e9eb7d68907da;p=elisp%2Fsemi.git

	Sync up with SEMI 1.9.1.
---

diff --git a/ChangeLog b/ChangeLog
index 0f61ef8..df71b4e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+1998-10-14  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* WEMI: Version 1.9.1 (Fujikawa) released.
+
+1998-10-14  Jari Aalto        <jari.aalto@poboxes.com>
+
+	* mime-edit.el (mime-file-types): Add some new mime types, and
+	rearrange the types to logical sections: text; octext text and
+	binary. <cf. [tm-en:1856]>
+
 1998-10-12  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* README.en: Add explanation about `VERSION_SPECIFIC_LISPDIR'.
diff --git a/Makefile b/Makefile
index 6075230..e8bb51c 100644
--- a/Makefile
+++ b/Makefile
@@ -3,7 +3,7 @@
 #
 
 PACKAGE = wemi
-VERSION = 1.9.0
+VERSION = 1.9.1
 
 TAR	= tar
 RM	= /bin/rm -f
diff --git a/README.en b/README.en
index 187752d..12efc58 100644
--- a/README.en
+++ b/README.en
@@ -255,4 +255,4 @@ Other authors
     Artur Pioro <artur@flugor.if.uj.edu.pl>
     Dan Rich <drich@morpheus.corp.sgi.com>
         (contribute to evolve mime-image.el with XEmacs)
-    Katsumi Yamaoka <yamaoka@ga.sony.co.jp>
+    Katsumi Yamaoka <yamaoka@jpl.org>
diff --git a/VERSION b/VERSION
index 16b6b81..4d0280b 100644
--- a/VERSION
+++ b/VERSION
@@ -66,7 +66,7 @@
 1.8.5	Nishi-Takaoka		$(B@>9b2,(B
 1.8.6	Fukuoka			$(BJ!2,(B
 1.9.0	Isurugi			$(B@PF0(B
------	Kurikara		$(B6fMx2@Me(B
+1.9.1	Kurikara		$(B6fMx2@Me(B
 -----	Tsubata			$(BDEH((B
 -----	Morimoto		$(B?9K\(B
 -------	Higashi-Kanazawa	$(BEl6bBt(B
@@ -127,7 +127,7 @@
 1.8.5	Higashi-Tagonoura	$(BElED;R%N1:(B
 1.8.6	Yoshiwara		$(B5H86(B	; = $(B3YFnE4F;(B
 1.9.0	Fuji			$(BIY;N(B	; = JR $(B?H1d@~(B
------	Fujikawa		$(BIY;N@n(B
+1.9.1	Fujikawa		$(BIY;N@n(B
 -----	Shin-Kambara		$(B?73w86(B
 -----	Kambara			$(B3w86(B
 -----	Yui			$(BM3Hf(B
diff --git a/mime-edit.el b/mime-edit.el
index 7a7d682..eab91e7 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -239,25 +239,87 @@ To insert a signature file automatically, call the function
   "*Alist of content-type, subtype, parameters and its values.")
 
 (defcustom mime-file-types
-  '(("\\.txt$"
+  '(
+
+    ;; Programming languages
+
+    ("\\.cc$"
+     "application" "octet-stream" (("type" . "C++"))
+     "7bit"
+     "attachment"	(("filename" . file))
+     )
+
+    ("\\.el$"
+     "application" "octet-stream" (("type" . "emacs-lisp"))
+     "7bit"
+     "attachment"	(("filename" . file))
+     )
+
+    ("\\.lsp$"
+     "application" "octet-stream" (("type" . "common-lisp"))
+     "7bit"
+     "attachment"	(("filename" . file))
+     )
+
+    ("\\.pl$"
+     "application" "octet-stream" (("type" . "perl"))
+     "7bit"
+     "attachment"	(("filename" . file))
+     )
+
+    ;; Text or translated text
+
+    ("\\.txt$"
      "text"	"plain"		nil
      nil
      "inline"		(("filename" . file))
      )
-    ("\\.pln$"
+
+     ;; .rc : procmail modules pm-xxxx.rc
+     ;; *rc : other resource files
+
+    ("\\.\\(rc\\|lst\\|log\\|sql\\|mak\\)$\\|\\..*rc$"
      "text"	"plain"		nil
      nil
-     "inline"		(("filename" . file))
+     "attachment"	(("filename" . file))
      )
+
     ("\\.html$"
      "text"	"html"		nil
      nil
      nil		nil)
+
+    ("\\.diff$\\|\\.patch$"
+     "application" "octet-stream" (("type" . "patch"))
+     nil
+     "attachment"	(("filename" . file))
+     )
+
+    ("\\.signature"
+     "text"	"plain"		nil	nil	nil	nil)
+
+
+    ;;  Octect binary text
+
+    ("\\.doc$"				;MS Word
+     "application" "winword" nil
+     "base64"
+     "attachment" (("filename" . file))
+     )
+
+    ("\\.pln$"
+     "text"	"plain"		nil
+     nil
+     "inline"		(("filename" . file))
+     )
     ("\\.ps$"
      "application" "postscript"	nil
      "quoted-printable"
      "attachment"	(("filename" . file))
      )
+
+    ;;  Pure binary
+
     ("\\.jpg$"
      "image"	"jpeg"		nil
      "base64"
@@ -308,16 +370,6 @@ To insert a signature file automatically, call the function
      "base64"
      "attachment"	(("filename" . file))
      )
-    ("\\.el$"
-     "application" "octet-stream" (("type" . "emacs-lisp"))
-     "7bit"
-     "attachment"	(("filename" . file))
-     )
-    ("\\.lsp$"
-     "application" "octet-stream" (("type" . "common-lisp"))
-     "7bit"
-     "attachment"	(("filename" . file))
-     )
     ("\\.tar\\.gz$"
      "application" "octet-stream" (("type" . "tar+gzip"))
      "base64"
@@ -358,18 +410,9 @@ To insert a signature file automatically, call the function
      "base64"
      "attachment"	(("filename" . file))
      )
-    ("\\.diff$"
-     "application" "octet-stream" (("type" . "patch"))
-     nil
-     "attachment"	(("filename" . file))
-     )
-    ("\\.patch$"
-     "application" "octet-stream" (("type" . "patch"))
-     nil
-     "attachment"	(("filename" . file))
-     )
-    ("\\.signature"
-     "text"	"plain"		nil	nil	nil	nil)
+
+    ;; Rest
+
     (".*"
      "application" "octet-stream" nil
      nil
diff --git a/semi-def.el b/semi-def.el
index 8b21947..aefe191 100644
--- a/semi-def.el
+++ b/semi-def.el
@@ -30,7 +30,7 @@
 
 (require 'custom)
 
-(defconst mime-user-interface-product '["WEMI" (1 9 0) "Fuji"]
+(defconst mime-user-interface-product '["WEMI" (1 9 1) "Fujikawa"]
   "Implementation name, version name and numbers of MIME-kernel package.")
 
 (autoload 'mule-caesar-region "mule-caesar"