[mew-win32 4476] Re: Meadow + mew-5.2.53 で mewe st が動かない？

From: Kazumi HARA <[email protected]> 
Subject: [mew-win32 4475] Re: Meadow + mew-5.2.53  mewest 
Message-ID: <[email protected]>
Date: Mon, 17 Mar 2008 16:14:23 +0900 (JST)

>  (^o^;
> 
> 5.2.53  00changes  Obsoleted 
> 



NT Emacs > 

Index: mew-win32.el
===================================================================
RCS file: /cvsmew/mew/mew-win32.el,v
retrieving revision 1.62
diff -u -r1.62 mew-win32.el
--- mew-win32.el	10 Mar 2008 09:17:58 -0000	1.62
+++ mew-win32.el	17 Mar 2008 07:02:47 -0000
@@ -45,6 +45,41 @@
 
 (setq mew-delete-temp-file  nil)
 
+;; Emacs version dependent variables.
+(cond
+ ((featurep 'meadow) ;; Meadow
+  (require 'mw32script)
+  (mw32script-init))
+ ((condition-case nil
+      (require 'mw32script)
+    (file-error nil)) ;; NTEmacs
+  (mw32script-make-pathext-regexp)
+  (defalias 'call-process-original 'call-process)
+  (defun call-process (PROGRAM INFILE BUFFER DISPLAY &rest PROGRAM-ARGS)
+    (let (prog sargs)
+      (setq prog (mw32script-openp PROGRAM))
+      (unless prog
+	(setq prog (mew-which-exec PROGRAM))
+	(setq sargs (mw32script-resolve-script prog)))
+      (if sargs
+	  (apply 'call-process-original
+		 (car sargs) INFILE BUFFER DISPLAY
+		 prog PROGRAM-ARGS)
+	(apply 'call-process-original
+	       PROGRAM INFILE BUFFER DISPLAY PROGRAM-ARGS))))
+  (defalias 'start-process-original 'start-process)
+  (defun start-process (NAME BUFFER PROGRAM &rest PROGRAM-ARGS)
+    (let (prog sargs)
+      (setq prog (mw32script-openp PROGRAM))
+      (unless prog
+	(setq prog (mew-which-exec PROGRAM))
+	(setq sargs (mw32script-resolve-script prog)))
+      (if sargs
+	  (apply 'start-process-original
+		 NAME BUFFER (car sargs) prog PROGRAM-ARGS)
+	(apply 'start-process-original
+	       NAME BUFFER PROGRAM PROGRAM-ARGS))))))
+
 ;; printing
 (defun mew-w32-print-buffer ()
   (let ((tempfile (mew-make-temp-name)))