[Mew-dist 03569] Re: b11

[OKUNISHI Fujikazu]

b11 への OS/2 パッチです。

--ふ
-------------- next part --------------
--- mew-os2.el.orig	Wed Jan 28 21:39:08 1998
+++ mew-os2.el	Thu Jan 29 22:25:38 1998
@@ -5,11 +5,11 @@
 ;; Author:  OKUNISHI Fujikazu <fuji0924 at example.com>
 ;;          Kazu Yamamoto <Kazu at example.com>
 ;; Created: Dec 18, 1996
-;; Revised: Dec 06, 1997
+;; Revised: Jan 29, 1998
 
 
 ;;; Code
-(defconst mew-os2/version "mew-os2.el v0.14")
+(defconst mew-os2/version "mew-os2.el v0.17")
 
 (defvar mew-os2-load-hook nil
  "*Hook called after mew-os2 has been loaded.")
@@ -28,7 +28,7 @@
        ?= "No conversion." nil
        '([1 23 47 346 13 18 250 10 18 1881 5 4421 19 10
          47 772 5892 49 58 0 0 14 772 49 22] . [1 4 14 775 22])))
-    (setq mew-cs-noconv-eol *noconv*dos))
+    (setq mew-cs-noconv-eol '*noconv*dos))
  ((featurep 'mew-mule3) ;; MULE 3.0
     (setq mew-cs-scan    'iso-2022-7bit-ss2-dos)
     (setq mew-cs-virtual  mew-cs-scan)
@@ -45,6 +45,7 @@
 ;(setq mew-prog-shell-arg "/c")
 
 (setq mew-prog-utime "utime.cmd")
+;(setq mew-prog-utime "utime.exe")
 (setq mew-prog-uncompface "uncompface.exe")
 
 ;; nsclient: "http://www.t3.rim.or.jp/~homy/"
@@ -82,12 +83,24 @@
 (setenv "PERL_BADLANG" "0")
 (setenv "PERL_BADFREE" "0")
 
+;; Archive interface for OS/2 imcat
+(defvar mew-os2/archive-prefix "archived")
+(defvar mew-os2/archive-suffix ".zip")
+
+(defconst mew-os2/archive
+  (concat mew-os2/archive-prefix mew-os2/archive-suffix))
+
+(defun mew-os2/archive-exist-p (fld)
+  (file-exists-p (mew-expand-folder fld mew-os2/archive)))
+
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; MIME methods
 
 (defvar mew-prog-plain '(mew-mime-text/plain () nil))
-(defvar mew-prog-html '(mew-mime-text/html () nil))
+;(defvar mew-prog-html '(mew-mime-text/html () nil))
+;; Netscape/nsclient: "x:/foo/html" => "file:///x|/foo/bar.html"
+(defvar mew-prog-html '("mew-mime.cmd" ("text/html") t))
 (defvar mew-prog-text '(mew-mime-text/plain () nil))
 (defvar mew-prog-audio
   (list mew-prog-shell (list mew-prog-shell-arg "cat - > /dev/audio") nil))
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 無し
型:         application/octet-stream
サイズ:     6404 バイト
説明:       mew-mime.cmd
URL:        <http://www.mew.org/pipermail/mew-dist/attachments/19980129/2b280c88/attachment.obj>
-------------- next part --------------
--- OS2/dot.mew-mimerc.orig	Tue Oct 28 13:08:44 1997
+++ OS2/dot.mew-mimerc	Thu Jan 29 22:33:36 1998
@@ -39,7 +39,7 @@
 image/x-os2-meta          met    d:\tool\pmview\PMView.exe   /Wpos=(,,,,For)
 video/x-msvideo           avi    PMmpeg.exe
 video/quicktime           mov    PMmpeg.exe
-application/mac-hexbin40  hqx    xbin.exe
+application/mac-binhex40  hqx    xbin.exe
 application/x-os2-inf     inf    view.exe
 application/x-os2-hlp     hlp    viewhelp.exe
 application/pdf           pdf    acroread.exe