diff lisp/mail/uudecode.el @ 109853:fe07c47cf7a7

merge and fixes
author Joakim <joakim@localhost.localdomain>
date Thu, 13 May 2010 15:13:52 +0200
parents c0d13767677a
children 8d09094063d0
line wrap: on
line diff
--- a/lisp/mail/uudecode.el	Wed May 12 14:32:06 2010 +0200
+++ b/lisp/mail/uudecode.el	Thu May 13 15:13:52 2010 +0200
@@ -216,7 +216,7 @@
 	  (skip-chars-forward non-data-chars end))
 	(if file-name
             (with-temp-file file-name
-              (set-buffer-multibyte nil)
+              (unless (featurep 'xemacs) (set-buffer-multibyte nil))
               (insert (apply 'concat (nreverse result))))
 	  (or (markerp end) (setq end (set-marker (make-marker) end)))
 	  (goto-char start)