EOL bug in attaching binary file

EOL bug in attaching binary file

[Shenghuo ZHU]

[-- Attachment #1: Type: text/plain, Size: 316 bytes --]


pGnus in XEmacs may corrupt attached binary file. It seems OK for
pGnus in Emacs.

This (committed) patch is highly recommended if you are using pGnus in
XEmacs. 

-- 
Shenghuo

1999-11-04 22:20:35  Shenghuo ZHU  <zsh@cs.rochester.edu>

	* mml.el (mml-generate-mime-1): Read attached binary file in
 	binary mode.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 97-122.diff --]
[-- Type: text/x-patch, Size: 740 bytes --]

Index: mml.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mml.el,v
retrieving revision 5.29
retrieving revision 5.30
diff -u -r5.29 -r5.30
--- mml.el	1999/09/27 15:19:03	5.29
+++ mml.el	1999/11/05 03:36:48	5.30
@@ -242,7 +242,8 @@
 	    (insert-buffer-substring (cdr (assq 'buffer cont))))
 	   ((and (setq filename (cdr (assq 'filename cont)))
 		 (not (equal (cdr (assq 'nofile cont)) "yes")))
-	    (mm-insert-file-contents filename nil nil nil nil t))
+	    (let ((coding-system-for-read mm-binary-coding-system))
+	      (mm-insert-file-contents filename nil nil nil nil t)))
 	   (t
 	    (insert (cdr (assq 'contents cont)))))
 	  (setq encoding (mm-encode-buffer type)