# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 973697250 0
# Node ID 8a75bc99cf0b7fca8dcc75fda54cb01dbd2717b0
# Parent  6e2421694ff5f750f0ff62a9faf3822d81d22a5f
Avoid compiler warnings.

Use (featurep 'xemacs).  Require cl when compiling.
(uudecode-char-int): New alias, replacing char-int.
(uudecode-decode-region): Don't call buffer-disable-undo.

diff -r 6e2421694ff5 -r 8a75bc99cf0b lisp/gnus/uudecode.el
--- a/lisp/gnus/uudecode.el	Wed Nov 08 15:24:27 2000 +0000
+++ b/lisp/gnus/uudecode.el	Wed Nov 08 15:27:30 2000 +0000
@@ -36,10 +36,19 @@
 
 (eval-when-compile (require 'cl))
 
-(defalias 'uudecode-char-int
-  (if (fboundp 'char-int)
-      'char-int
-    'identity))
+(eval-and-compile
+  (defalias 'uudecode-char-int
+    (if (fboundp 'char-int)
+	'char-int
+      'identity))
+
+  (if (fboundp 'insert-char)
+      (defalias 'uudecode-insert-char 'insert-char)
+    (defun uudecode-insert-char (char &optional count ignored buffer)
+      (if (or (null buffer) (eq buffer (current-buffer)))
+	  (insert-char char count)
+	(with-current-buffer buffer
+	  (insert-char char count))))))
 
 (defcustom uudecode-decoder-program "uudecode"
   "*Non-nil value should be a string that names a uu decoder.
@@ -121,14 +130,6 @@
       (and work-buffer (kill-buffer work-buffer))
       (ignore-errors (or file-name (delete-file tempfile))))))
 
-(if (featurep 'xemacs)
-    (defalias 'uudecode-insert-char 'insert-char)
-  (defun uudecode-insert-char (char &optional count ignored buffer)
-    (if (or (null buffer) (eq buffer (current-buffer)))
-	(insert-char char count)
-      (with-current-buffer buffer
-	(insert-char char count)))))
-
 ;;;###autoload
 
 (defun uudecode-decode-region (start end &optional file-name)