X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fbinhex.el;h=1a181a3db36a4b607d0d68c9bfd9f96fb565df61;hb=0651fabaac80cf08698f066dae0af33f29b91a9a;hp=c7fb2438e46d0919fb40fb516630a5c54630f7b1;hpb=1a97c4c8c064d8f8c9f63ab9a95a944810184223;p=gnus

diff --git a/lisp/binhex.el b/lisp/binhex.el
index c7fb2438e..1a181a3db 100644
--- a/lisp/binhex.el
+++ b/lisp/binhex.el
@@ -29,7 +29,7 @@
 (eval-when-compile (require 'cl))
 
 (if (not (fboundp 'char-int))
-    (fset 'char-int 'identity))
+    (defalias 'char-int 'identity))
 
 (defvar binhex-decoder-program "hexbin"
   "*Non-nil value should be a string that names a uu decoder.
@@ -198,15 +198,8 @@ If HEADER-ONLY is non-nil only decode header and return filename."
 	(save-excursion
 	  (goto-char start)
 	  (when (re-search-forward binhex-begin-line end t)
-	    (if (and (not (featurep 'xemacs))
-		     (boundp 'enable-multibyte-characters))
-		(let ((multibyte
-		       (default-value 'enable-multibyte-characters)))
-		  (setq-default enable-multibyte-characters nil)
-		  (setq work-buffer (generate-new-buffer " *binhex-work*"))
-		  (setq-default enable-multibyte-characters multibyte))
+	    (let (default-enable-multibyte-characters)
 	      (setq work-buffer (generate-new-buffer " *binhex-work*")))
-	    (buffer-disable-undo work-buffer)
 	    (beginning-of-line)
 	    (setq bits 0 counter 0)
 	    (while tmp