X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmail-source.el;h=587cb9ea4c8e32dd228f266e5c55d51612f0c727;hb=874e8b557e911b10c15acc68ed83001be480a89b;hp=2429cb493eaba8bd7e58038c1d576bb57a315dc3;hpb=71f8d6411be63f82902ac4d5861f9283dc18185f;p=elisp%2Fgnus.git-

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 2429cb4..587cb9e 100644
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -312,7 +312,7 @@ If ARGS, PROMPT is used as an argument to `format'."
     (when prescript
       (if (and (symbolp prescript) (fboundp prescript))
 	  (funcall prescript)
-	(call-process shell-file-name nil nil nil
+	(call-process shell-file-name nil 0 nil
 		      shell-command-switch 
 		      (format-spec
 		       prescript
@@ -324,7 +324,7 @@ If ARGS, PROMPT is used as an argument to `format'."
 	    (when prescript
 	      (if (and (symbolp prescript) (fboundp prescript))
 		  (funcall prescript)
-		(call-process shell-file-name nil nil nil
+		(call-process shell-file-name nil 0 nil
 			      shell-command-switch 
 			      (format-spec
 			       postscript