[Mew-dist 1819] mew-mime.cmd patch

[OKUNISHI Fujikazu]

OS/2 パッチです。

[変更点]
A. mew-mime.cmd
	1. tm-MUA から送られてくる CTE:x-uue 対策 (REXXで対応)
	2. ~/.mew-mimerc が EOL=LF でも大丈夫なようにしたはずなのに何
	   故か無条件に SAVE: へ飛んでしまう(T_T) のでコメントアウト
B. mew-os2.el
   バイトコンパイルできないのを修正

ところで，僕は伝統的REXX のままで使っていて switchrx（だったっけ）で 
ObjectREXX に切り換えての動作確認はしたことは実はないのですが，特殊な
ことはしてないので大丈夫ですよね? > OS/2 な人
--
(ふ)

;; なお ほりけ＠DTI さんの xv.c なら emx/gcc でも問題なくコンパイルで
;; きてちゃんと使えます。けど XFree86 for OS/2 を入れてる人が多いと思
;; うので mew-mime.cmd を使ってください。(^_^;
-------------- next part --------------
--- f:mew-mime.cmd	Sun Aug 24 20:13:32 1997
+++ mew-mime.cmd	Sun Aug 30 23:50:44 1997
@@ -8,7 +8,7 @@
  *         KONDO Hiroyasu    <hirokon at example.com>
  *
  * Version:
- *     $Id: mew-mime.cmd,v0.7 1997/08/12 22:44:12 F.OKUNISHI Exp $
+ *     $Id: mew-mime.cmd,v0.8 1997/08/30 23:50:44 F.OKUNISHI Exp $
  * ----------------------------------------------------------------- */
 
   Trace Off; '@echo off'
@@ -46,9 +46,9 @@
  *  get progname from initfile
  * ----------------------------------------------------------------- */
   /* SysFileSearch cannot understand EOL=LF (T_T) */
-  Call SysFileSearch ct,initfile,'def.'
-  If def.0 = 0 Then Signal SAVE
-
+/*Call SysFileSearch ct,initfile,'def.'
+ *If def.0 = 0 Then Signal SAVE
+ */
    Do While Lines(initfile)
       def = Translate(Linein(initfile),'',D2C(9))  /*TAB=>[white space]*/
       If Translate(Word(def,1)) = ct Then
@@ -74,10 +74,25 @@
  * ----------------------------------------------------------------- */
 EXEC:
 	Call LineOut(initfile)  /*close*/
+	/* -------------------------------------------------------- *
+	 *  CTE: x-uue	  `begin 644 foo.tar.gz'
+	 * -------------------------------------------------------- */
+	head = Linein(target)
+	Call Lineout target  /*close*/
+	If Translate(Word(head,1))='BEGIN' & Datatype(Word(head,2),'W')=1
+	  Then Do
+	    Parse Var head . . uufname .
+	    'call uumerge -d' savedir target
+	    If rc<>0 Then EMSG(1 'uumerge error!')
+	             Else fname=savedir'\'uufname
+	  End
+	  Else Do
+	    fname = fname || '.' || suffix
+	    'copy' target fname '>nul'
+	  End
+
 	progname = Translate(progname,'\','/')
 	args = Space(args)
-	fname = fname || '.' || suffix
-		'copy' target fname '>nul'
 		'detach' progname args fname
 		Call SysSleep 2
 		rc=SysFileDelete(fname)
-------------- next part --------------
--- mew-os2.el.orig	Sun Aug 24 20:13:10 1997
+++ mew-os2.el	Thu Aug 28 20:07:32 1997
@@ -1,6 +1,7 @@
 ;;  mew-os2.el  - external/internal MIME methods for OS/2
 
 (defconst mew-os2/version "mew-os2.el v0.08")
+(eval-when-compile  (require 'mew-mime))
 
 ;; for *.cmd (by NAKAGAWA Takayuki)
  (if (featurep 'mule) (require 'os2-process))
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 無し
型:         application/pgp-signature
サイズ:     368 バイト
説明:       無し
URL:        <http://www.mew.org/pipermail/mew-dist/attachments/19970831/42e5523a/attachment.bin>