Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
946 (let (size) 946 (let (size)
947 (goto-char (point-max)) 947 (goto-char (point-max))
948 (if (not (featurep 'mule)) 948 (if (not (featurep 'mule))
949 (setq size (nth 1 (insert-file-contents tofile))) 949 (setq size (nth 1 (insert-file-contents tofile)))
950 ;; At first, read the file without converting coding-system. 950 ;; At first, read the file without converting coding-system.
951 (setq size (nth 1 (let (file-coding-system-for-read) 951 (setq size (nth 1 (let ((coding-system-for-read 'no-conversion))
952 (insert-file-contents tofile)))) 952 (insert-file-contents tofile))))
953 ;; 1996/12/9 by MORIOKA Tomohiko <morioka@jaist.ac.jp> 953 ;; 1996/12/9 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
954 ;; Don't code-convert for RMAIL file 954 ;; Don't code-convert for RMAIL file
955 ;; Then, convert the contents if necessary. 955 ;; Then, convert the contents if necessary.
956 ;; (if (> size 0) 956 ;; (if (> size 0)