[Mew-dist 626] impost de mew-summary-redist

[OKUNISHI Fujikazu]

OS/2 $B;H$$$=$N#1$G$9!#(B

mew-summary-reedit $B$K0z$-B3$-!"(Bmew-summary-redist $B$r$$$8$C$F$_$?$N$G$9(B
$B$,!"(Bmew-prog-send = impost $B$N>l9g$O(B

| (if mew-redist-needs-full-contents
|    (call-process "/bin/sh" nil nil nil "-c"
|	 (format "mhdist=1 %s %s"
|		mew-prog-send
|		(buffer-file-name)))
                ^^^^^^^^^^^^^^^^^^
|    (call-process "/bin/sh" nil nil nil "-c"
|	 (format "mhdist=1 mhaltmsg=%s %s %s"
|		file
|		mew-prog-send
|		(buffer-file-name))))
                ^^^^^^^^^^^^^^^^^^
|	(message "Redistributing ... done")

buffer-file-name $B$GE83+$5$l$k$h$&$JI=5-$ODL$5$J$$$N$G$9$h$M(B??

$B$&$A$G$O(B mew-redist-needs-full-contents $B$,(B t $B$N>l9g$O%-%e!<$K$ON/$a9~(B
$B$^$l$J$$$b$N$N%I%i%U%H%U%)%k%@$K$O$A$c$s$H$7$?%a!<%k$,J]B8$5$l$F$k$N$G!"(B
$B<jF0$G(B impost $B$KEO$7$F$d$j$5$($9$l$P(B redist$B7A<0$GAw$l$^$7$?$,!"(B
mew-redist-needs-full-contents $B$,(B nil $B$@$H(B


| AF:
| NF:0
| PS:10
| SRH:1
| SFN:
| DSR:
| MID:<19970310024024O.fuji0924 at example.com>
| CFG:
| PT:0
| S:fuji0924 at example.com
| SSV:smtp.kyoto-inet.or.jp
| NSV:news.kyoto-inet.or.jp
| R:<d:/tcpip/email/drafts/9>
  ^^^^^^^^^^^^^^^^^^^^^^^^^^^ (^_^;
| Message-Id: <19970310024024O.fuji0924 at example.com>
| Date: Mon, 10 Mar 1997 02:40:24 +0900
| From: OKUNISHI Fujikazu <fuji0924 at example.com>
| X-Dispatcher: impost version 0.99+ (Mar. 3, 1997)
| Lines: 0
| To: d:/tcpip/email/drafts/9
  ^^^^^^^^^^^^^^^^^^^^^^^^^^^ (^_^;;

$B$N$h$&$JAGE($J%a%C%;!<%8$rAw$m$&$H$7$F$7$^$$$^$9!#(B(^_^;
$B$H$$$&$o$1$G!"(B(buffer-file-name) $B$N$h$&$JI=5-$r2~$a$k$+!"(Bredist $B$K$O(B 
$BI,$:(B MH send $B$r;H$&$h$&$K$9$k$+!"(Bmew-summry-redist $B$rGQ;_$9$k$+!"$$$E(B
$B$l$K$7$F$b(B impost $B$,Ia5Z$7$@$7$F$$$k8=>u$G$O2?$i$+$NBP:v$,I,MW$H;W$$$^(B
$B$9$,$$$+$,$G$7$g$&$+(B?

$B$G!"!V<h$j$"$($:F0$1$P$$$$2sO)!W(B(^^; $B$,;OF0$7$F$3$s$J$U$&$K$7$F$_$^$7$?!#(B
OS/2 $B%7%'%kMQ%Q%C%A$H!"(BOS/2 $B$G(B redist $B$9$k:]$K$K at example.com$8$k(B reedit $B$HF1MM$N(B
$BIT6q9g$r2sHr$9$k$?$a$N%Q%C%A$b4^$s$G$$$^$9!#(B

-------------- next part --------------
--- mew-summary.el	Thu Mar 06 01:38:46 1997
+++ mew-summary.el	Mon Mar 10 13:17:24 1997
@@ -1396,7 +1396,8 @@
 	    ;; prepare draft file
 	    (switch-to-buffer 
 	     (find-file-noselect 
-	      (mew-expand-file-name rename mew-draft-folder)))
+;	      (mew-expand-file-name rename mew-draft-folder)))
+	      (mew-expand-file-name rename )))  ;; for OS/2 MH & Mule
 	    (mew-draft-mode) ;; for charset
 	    (cond
 	     (part
@@ -1632,6 +1633,7 @@
     ))
 
 (defun mew-summary-redist ()
+  (defvar mew-prog-resent-dispatcher "send") ;; 'cause impost unavailable
   (interactive)
   (cond 
    ((mew-summary-message-number)
@@ -1640,7 +1642,8 @@
 				       (mew-summary-folder-name)))
 	   (to (mew-input-address "Resent-To:"))
 	   (cc (if mew-ask-cc (mew-input-address "Resent-Cc:")))
-	   (draft (mew-expand-file-name (mew-draft-get-new) mew-draft-folder)))
+;	   (draft (mew-expand-file-name (mew-draft-get-new) mew-draft-folder)))
+	   (draft (mew-expand-file-name (mew-draft-get-new) ))) ;; OS/2 MH & Mule
       (save-excursion
 	(set-buffer (find-file-noselect draft))
 	(if mew-redist-needs-full-contents
@@ -1658,14 +1661,20 @@
 	(save-buffer) 
 	(message "Redistributing ... ")
 	(if mew-redist-needs-full-contents
-	  (call-process "/bin/sh" nil nil nil "-c"
-		         (format "mhdist=1 %s %s"
-				  mew-prog-send
+;	  (call-process "/bin/sh" nil nil nil "-c"
+	  (call-process "cmd.exe" nil nil nil "/c"
+;		         (format "mhdist=1 %s %s"
+		         (format "set mhdist=1 & %s %s"
+;				  mew-prog-send
+				  mew-prog-resent-dispatcher ;; 'cause impost unavailable for this purpose
 				  (buffer-file-name)))
-	  (call-process "/bin/sh" nil nil nil "-c"
-		         (format "mhdist=1 mhaltmsg=%s %s %s"
+;	  (call-process "/bin/sh" nil nil nil "-c"
+	  (call-process "cmd.exe" nil nil nil "/c"
+;		         (format "mhdist=1 mhaltmsg=%s %s %s"
+		         (format "set mhdist=1 & set mhaltmsg=%s & %s %s"
 				  file
-				  mew-prog-send
+;				  mew-prog-send
+				  mew-prog-resent-dispatcher ;; MH send
 				  (buffer-file-name))))
 	(message "Redistributing ... done")
 	(kill-buffer (current-buffer))
-------------- next part --------------
----
$B1|@>F#OB(B / OKUNISHI Fujikazu
mailto:fuji0924 at example.com
# PGP Public Key: mailto:pgp-public-keys at example.com /Subject:GET 0x1B8BF431
-------------- next part --------------
$B%F%-%9%H7A<00J30$NE:IU%U%!%$%k$rJ]4I$7$^$7$?(B...
$B%U%!%$%kL>(B: $BL5$7(B
$B7?(B:         application/pgp-signature
$B%5%$%:(B:     369 $B%P%$%H(B
$B at example.com@(B:       $BL5$7(B
URL:        <http://www.mew.org/pipermail/mew-dist/attachments/19970310/ad672fdb/attachment.bin>