* imap.el: Add compiler directives.

[gnus] / lisp / uudecode.el

diff --git a/lisp/uudecode.el b/lisp/uudecode.el
index 8e2fd66..5b74b5a 100644 (file)
--- a/lisp/uudecode.el
+++ b/lisp/uudecode.el
@@ -1,11 +1,12 @@
 ;;; uudecode.el -- elisp native uudecode
 
-;; Copyright (c) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
+;; Copyright (c) 1998, 1999, 2000, 2001, 2003, 2004
+;;        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
@@ -26,8 +27,6 @@
 
 ;;; Code:
 
-(autoload 'executable-find "executable")
-
 (eval-when-compile (require 'cl))
 
 (eval-and-compile
@@ -48,7 +47,7 @@ input and write the converted data to its standard output."
   :group 'gnus-extract
   :type '(repeat string))
 
-(defcustom uudecode-use-external 
+(defcustom uudecode-use-external
   (executable-find uudecode-decoder-program)
   "*Use external uudecode program."
   :group 'gnus-extract
@@ -166,8 +165,8 @@ If FILE-NAME is non-nil, save the result to FILE-NAME."
              (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)))
@@ -183,13 +182,13 @@ If FILE-NAME is non-nil, save the result to FILE-NAME."
            ;;(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))
@@ -206,7 +205,7 @@ If FILE-NAME is non-nil, save the result to FILE-NAME."
 (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)))