- (and work-buffer (kill-buffer work-buffer))
- (condition-case ()
- (or file-name (delete-file tempfile))
- (error))
- )))
-
-(if (string-match "XEmacs" emacs-version)
- (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)))))