Sync up with SEMI 1.9.1.

diff --git a/ChangeLog b/ChangeLog
index 0f61ef8..df71b4e 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- a/VERSION
+++ b/VERSION
@@ -66,7 +66,7 @@
 1.8.5  Nishi-Takaoka           \e$(B@>9b2,\e(B
 1.8.6  Fukuoka                 \e$(BJ!2,\e(B
 1.9.0  Isurugi                 \e$(B@PF0\e(B
------  Kurikara                \e$(B6fMx2@Me\e(B
+1.9.1  Kurikara                \e$(B6fMx2@Me\e(B
 -----  Tsubata                 \e$(BDEH(\e(B
 -----  Morimoto                \e$(B?9K\\e(B
 -------        Higashi-Kanazawa        \e$(BEl6bBt\e(B
@@ -127,7 +127,7 @@
 1.8.5  Higashi-Tagonoura       \e$(BElED;R%N1:\e(B
 1.8.6  Yoshiwara               \e$(B5H86\e(B     ; = \e$(B3YFnE4F;\e(B
 1.9.0  Fuji                    \e$(BIY;N\e(B     ; = JR \e$(B?H1d@~\e(B
------  Fujikawa                \e$(BIY;N@n\e(B
+1.9.1  Fujikawa                \e$(BIY;N@n\e(B
 -----  Shin-Kambara            \e$(B?73w86\e(B
 -----  Kambara                 \e$(B3w86\e(B
 -----  Yui                     \e$(BM3Hf\e(B

diff --git a/mime-edit.el b/mime-edit.el
index 7a7d682..eab91e7 100644 (file)
--- 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 (file)
--- 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"