;;; uudecode.el -- elisp native uudecode
-;; Copyright (c) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
+;; Copyright (c) 1998, 1999, 2000, 2001, 2003 Free Software Foundation, Inc.
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
;; Keywords: uudecode news
-;; This file is a part of GNU Emacs.
+;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;;; Code:
-(autoload 'executable-find "executable")
-
(eval-when-compile (require 'cl))
+(require 'path-util)
+
(eval-and-compile
(defalias 'uudecode-char-int
(if (fboundp 'char-int)
:group 'gnus-extract
:type '(repeat string))
-(defcustom uudecode-use-external
- (executable-find uudecode-decoder-program)
+(defcustom uudecode-use-external
+ (exec-installed-p uudecode-decoder-program)
"*Use external uudecode program."
:group 'gnus-extract
:type 'boolean)
(match-string 1)))))
(setq tempfile (if file-name
(expand-file-name file-name)
- (if (fboundp 'make-temp-file)
- (let ((temporary-file-directory
- uudecode-temporary-file-directory))
- (make-temp-file "uu"))
- (expand-file-name
- (make-temp-name "uu")
- uudecode-temporary-file-directory))))
+ (if (fboundp 'make-temp-file)
+ (let ((temporary-file-directory
+ uudecode-temporary-file-directory))
+ (make-temp-file "uu"))
+ (expand-file-name
+ (make-temp-name "uu")
+ uudecode-temporary-file-directory))))
(let ((cdir default-directory)
default-process-coding-system)
(unwind-protect
(setq counter (1+ counter)
inputpos (1+ inputpos))
(cond ((= counter 4)
- (setq result (cons
- (concat
+ (setq result (cons
+ (concat
(char-to-string (lsh bits -16))
(char-to-string (logand (lsh bits -8) 255))
(char-to-string (logand bits 255)))
;;(error "uucode ends unexpectly")
(setq done t))
((= counter 3)
- (setq result (cons
- (concat
+ (setq result (cons
+ (concat
(char-to-string (logand (lsh bits -16) 255))
(char-to-string (logand (lsh bits -8) 255)))
result)))
((= counter 2)
- (setq result (cons
+ (setq result (cons
(char-to-string (logand (lsh bits -10) 255))
result))))
(skip-chars-forward non-data-chars end))
(defun uudecode-decode-region (start end &optional file-name)
"Uudecode region between START and END.
If FILE-NAME is non-nil, save the result to FILE-NAME."
- (if uudecode-use-external
+ (if uudecode-use-external
(uudecode-decode-region-external start end file-name)
(uudecode-decode-region-internal start end file-name)))