Mercurial > hg > xemacs-beta

diff lisp/rmail/rmail.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children 6608ceec7cf8
line wrap: on
line diff
--- a/lisp/rmail/rmail.el	Mon Aug 13 09:18:41 2007 +0200
+++ b/lisp/rmail/rmail.el	Mon Aug 13 09:19:45 2007 +0200
@@ -948,7 +948,7 @@
 	    (if (not (featurep 'mule))
 		(setq size (nth 1 (insert-file-contents tofile)))
 	      ;; At first, read the file without converting coding-system.
-	      (setq size (nth 1 (let (file-coding-system-for-read)
+	      (setq size (nth 1 (let ((coding-system-for-read 'no-conversion))
 				  (insert-file-contents tofile))))
 	      ;; 1996/12/9 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
 	      ;;	Don't code-convert for RMAIL file