X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fuudecode.el;h=3d6473413e35788370df72457ce222cff7613dde;hb=1c2ed0ce5abe2181e51f777171f8cd40a547e5a9;hp=b1c2a7be41d5d661416c7f17d047e71a8816890b;hpb=bda3e8962af0aee90144c3ae8c5360aa4c106d94;p=gnus diff --git a/lisp/uudecode.el b/lisp/uudecode.el index b1c2a7be4..3d6473413 100644 --- a/lisp/uudecode.el +++ b/lisp/uudecode.el @@ -1,7 +1,6 @@ ;;; uudecode.el -- elisp native uudecode -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1998-2014 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu ;; Keywords: uudecode news @@ -39,20 +38,20 @@ :group 'news) (defcustom uudecode-decoder-program "uudecode" - "*Non-nil value should be a string that names a uu decoder. + "Non-nil value should be a string that names a uu decoder. The program should expect to read uu data on its standard input and write the converted data to its standard output." :type 'string :group 'uudecode) (defcustom uudecode-decoder-switches nil - "*List of command line flags passed to `uudecode-decoder-program'." + "List of command line flags passed to `uudecode-decoder-program'." :group 'uudecode :type '(repeat string)) (defcustom uudecode-use-external (executable-find uudecode-decoder-program) - "*Use external uudecode program." + "Use external uudecode program." :version "22.1" :group 'uudecode :type 'boolean) @@ -198,10 +197,10 @@ If FILE-NAME is non-nil, save the result to FILE-NAME." (cond (done) ((> 0 remain) - (error "uucode line ends unexpectly") + (error "uucode line ends unexpectedly") (setq done t)) ((and (= (point) end) (not done)) - ;;(error "uucode ends unexpectly") + ;;(error "uucode ends unexpectedly") (setq done t)) ((= counter 3) (setq result (cons @@ -236,5 +235,4 @@ If FILE-NAME is non-nil, save the result to FILE-NAME." (provide 'uudecode) -;; arch-tag: e1f09ed5-62b4-4677-9f13-4e81c4fe8ce3 ;;; uudecode.el ends here