X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fuudecode.el;h=7b709e201649c685e7cc526a69184ada8eedf92c;hb=f49b6e4dfa0b6b8d88e12de4161c30613bc4410c;hp=299f83b914132aa03b2d3d31083e7f5a39a021f6;hpb=30d9f23f0291edcefeca1958befadb992d2982b5;p=elisp%2Fgnus.git-

diff --git a/lisp/uudecode.el b/lisp/uudecode.el
index 299f83b..7b709e2 100644
--- a/lisp/uudecode.el
+++ b/lisp/uudecode.el
@@ -1,12 +1,10 @@
 ;;; uudecode.el -- elisp native uudecode
-;; Copyright (c) 1998 by Shenghuo Zhu <zsh@cs.rochester.edu>
+;; Copyright (c) 1998,99 Free Software Foundation, Inc.
 
 ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
-;; $Revision: 5.7 $
-;; Keywords: uudecode
+;; Keywords: uudecode news
 
-;; This file is not part of GNU Emacs, but the same permissions
-;; apply.
+;; This file is a 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
@@ -169,25 +167,25 @@ If FILE-NAME is non-nil, save the result to FILE-NAME."
 			 (uudecode-insert-char
 			  (logand (lsh bits -8) 255) 1 nil work-buffer)
 			 (uudecode-insert-char (logand bits 255) 1 nil
-					 work-buffer)
+					       work-buffer)
 			 (setq bits 0 counter 0))
 			(t (setq bits (lsh bits 6)))))))
 	      (cond
-		 (done)
-		 ((> 0 remain)
-		  (error "uucode line ends unexpectly")
-		  (setq done t))
-		 ((and (= (point) end) (not done))
-		  ;(error "uucode ends unexpectly")
-		  (setq done t))
-		 ((= counter 3)
-		  (uudecode-insert-char (logand (lsh bits -16) 255) 1 nil
-				  work-buffer)
-		  (uudecode-insert-char (logand (lsh bits -8) 255) 1 nil
-				  work-buffer))
-		 ((= counter 2)
-		  (uudecode-insert-char (logand (lsh bits -10) 255) 1 nil
-				  work-buffer)))
+	       (done)
+	       ((> 0 remain)
+		(error "uucode line ends unexpectly")
+		(setq done t))
+	       ((and (= (point) end) (not done))
+		;;(error "uucode ends unexpectly")
+		(setq done t))
+	       ((= counter 3)
+		(uudecode-insert-char (logand (lsh bits -16) 255) 1 nil
+				      work-buffer)
+		(uudecode-insert-char (logand (lsh bits -8) 255) 1 nil
+				      work-buffer))
+	       ((= counter 2)
+		(uudecode-insert-char (logand (lsh bits -10) 255) 1 nil
+				      work-buffer)))
 	      (skip-chars-forward non-data-chars end))
 	    (if file-name
 		(save-excursion