Commits

Anonymous committed 85794dc

Mule fix

Comments (0)

Files changed (3)

 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 1.01
+VERSION = 1.02
 PACKAGE = gnus
 PKG_TYPE = regular
 REQUIRES = gnus w3 mh-e mailcrypt rmail mail-lib xemacs-base

gnus/lisp/_pkg.el

 ;;;###autoload
 (package-provide 'gnus
-		 :version 1.01
+		 :version 1.02
 		 :type 'regular)

gnus/lisp/message.el

 	(save-excursion
 	  (set-buffer errbuf)
 	  (erase-buffer))))
-    (let ((default-directory "/"))
+    (let ((default-directory "/")
+	  (coding-system-for-write 'binary))
       (apply 'call-process-region
 	     (append (list (point-min) (point-max)
 			   (if (boundp 'sendmail-program)
   (run-hooks 'message-send-mail-hook)
   ;; send the message
   (case
-      (apply
-       'call-process-region 1 (point-max) message-qmail-inject-program
-       nil nil nil
-       ;; qmail-inject's default behaviour is to look for addresses on the
-       ;; command line; if there're none, it scans the headers.
-       ;; yes, it does The Right Thing w.r.t. Resent-To and it's kin.
-       ;;
-       ;; in general, ALL of qmail-inject's defaults are perfect for simply
-       ;; reading a formatted (i. e., at least a To: or Resent-To header)
-       ;; message from stdin.
-       ;;
-       ;; qmail also has the advantage of not having been raped by
-       ;; various vendors, so we don't have to allow for that, either --
-       ;; compare this with message-send-mail-with-sendmail and weep
-       ;; for sendmail's lost innocence.
-       ;;
-       ;; all this is way cool coz it lets us keep the arguments entirely
-       ;; free for -inject-arguments -- a big win for the user and for us
-       ;; since we don't have to play that double-guessing game and the user
-       ;; gets full control (no gestapo'ish -f's, for instance).  --sj
-       message-qmail-inject-args)
+      (let ((coding-system-for-write 'binary))
+	(apply
+	 'call-process-region 1 (point-max) message-qmail-inject-program
+	 nil nil nil
+	 ;; qmail-inject's default behaviour is to look for addresses on the
+	 ;; command line; if there're none, it scans the headers.
+	 ;; yes, it does The Right Thing w.r.t. Resent-To and it's kin.
+	 ;;
+	 ;; in general, ALL of qmail-inject's defaults are perfect for simply
+	 ;; reading a formatted (i. e., at least a To: or Resent-To header)
+	 ;; message from stdin.
+	 ;;
+	 ;; qmail also has the advantage of not having been raped by
+	 ;; various vendors, so we don't have to allow for that, either --
+	 ;; compare this with message-send-mail-with-sendmail and weep
+	 ;; for sendmail's lost innocence.
+	 ;;
+	 ;; all this is way cool coz it lets us keep the arguments entirely
+	 ;; free for -inject-arguments -- a big win for the user and for us
+	 ;; since we don't have to play that double-guessing game and the user
+	 ;; gets full control (no gestapo'ish -f's, for instance).  --sj
+	 message-qmail-inject-args))
     ;; qmail-inject doesn't say anything on it's stdout/stderr,
     ;; we have to look at the retval instead
     (0 nil)