projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(mm-codepage-setup): New helper function.
[gnus]
/
lisp
/
uudecode.el
diff --git
a/lisp/uudecode.el
b/lisp/uudecode.el
index
8e2fd66
..
2c846b3
100644
(file)
--- a/
lisp/uudecode.el
+++ b/
lisp/uudecode.el
@@
-1,11
+1,12
@@
;;; uudecode.el -- elisp native uudecode
;;; uudecode.el -- elisp native uudecode
-;; Copyright (c) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+;; 2005 Free Software Foundation, Inc.
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
;; Keywords: uudecode news
;; 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
;; 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
@@
-19,15
+20,13
@@
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 5
9 Temple Place - Suite 330
,
-;; Boston, MA 0211
1-1307
, USA.
+;; Free Software Foundation, Inc., 5
1 Franklin Street, Fifth Floor
,
+;; Boston, MA 0211
0-1301
, USA.
;;; Commentary:
;;; Code:
;;; Commentary:
;;; Code:
-(autoload 'executable-find "executable")
-
(eval-when-compile (require 'cl))
(eval-and-compile
(eval-when-compile (require 'cl))
(eval-and-compile
@@
-48,9
+47,10
@@
input and write the converted data to its standard output."
:group 'gnus-extract
:type '(repeat string))
:group 'gnus-extract
:type '(repeat string))
-(defcustom uudecode-use-external
+(defcustom uudecode-use-external
(executable-find uudecode-decoder-program)
"*Use external uudecode program."
(executable-find uudecode-decoder-program)
"*Use external uudecode program."
+ :version "22.1"
:group 'gnus-extract
:type 'boolean)
:group 'gnus-extract
:type 'boolean)
@@
-166,8
+166,8
@@
If FILE-NAME is non-nil, save the result to FILE-NAME."
(setq counter (1+ counter)
inputpos (1+ inputpos))
(cond ((= counter 4)
(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)))
(char-to-string (lsh bits -16))
(char-to-string (logand (lsh bits -8) 255))
(char-to-string (logand bits 255)))
@@
-183,13
+183,13
@@
If FILE-NAME is non-nil, save the result to FILE-NAME."
;;(error "uucode ends unexpectly")
(setq done t))
((= counter 3)
;;(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)
(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))
(char-to-string (logand (lsh bits -10) 255))
result))))
(skip-chars-forward non-data-chars end))
@@
-206,10
+206,11
@@
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."
(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)))
(provide 'uudecode)
(uudecode-decode-region-external start end file-name)
(uudecode-decode-region-internal start end file-name)))
(provide 'uudecode)
+;;; arch-tag: e1f09ed5-62b4-4677-9f13-4e81c4fe8ce3
;;; uudecode.el ends here
;;; uudecode.el ends here