Mercurial > emacs

comparison lisp/mail/uudecode.el @ 86962:4a055549d556

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(uudecode): New custom group. (uudecode-decoder-program, uudecode-decoder-switches) (uudecode-use-external): Move to the uudecode custom group.
author Glenn Morris <rgm@gnu.org>
date Sun, 02 Dec 2007 18:51:38 +0000
parents 2a30481eb39c
children 107ccd98fa12
comparison
equal deleted inserted replaced
86961:c170e53aa1e9 86962:4a055549d556
33 (defalias 'uudecode-char-int 33 (defalias 'uudecode-char-int
34 (if (fboundp 'char-int) 34 (if (fboundp 'char-int)
35 'char-int 35 'char-int
36 'identity))) 36 'identity)))
37 37
38 (defgroup uudecode nil
39 "Decoding of uuencoded data."
40 :group 'mail
41 :group 'news)
42
38 (defcustom uudecode-decoder-program "uudecode" 43 (defcustom uudecode-decoder-program "uudecode"
39 "*Non-nil value should be a string that names a uu decoder. 44 "*Non-nil value should be a string that names a uu decoder.
40 The program should expect to read uu data on its standard 45 The program should expect to read uu data on its standard
41 input and write the converted data to its standard output." 46 input and write the converted data to its standard output."
42 :type 'string 47 :type 'string
43 :group 'gnus-extract) 48 :group 'uudecode)
44 49
45 (defcustom uudecode-decoder-switches nil 50 (defcustom uudecode-decoder-switches nil
46 "*List of command line flags passed to `uudecode-decoder-program'." 51 "*List of command line flags passed to `uudecode-decoder-program'."
47 :group 'gnus-extract 52 :group 'uudecode
48 :type '(repeat string)) 53 :type '(repeat string))
49 54
50 (defcustom uudecode-use-external 55 (defcustom uudecode-use-external
51 (executable-find uudecode-decoder-program) 56 (executable-find uudecode-decoder-program)
52 "*Use external uudecode program." 57 "*Use external uudecode program."
53 :version "22.1" 58 :version "22.1"
54 :group 'gnus-extract 59 :group 'uudecode
55 :type 'boolean) 60 :type 'boolean)
56 61
57 (defconst uudecode-alphabet "\040-\140") 62 (defconst uudecode-alphabet "\040-\140")
58 63
59 (defconst uudecode-begin-line "^begin[ \t]+[0-7][0-7][0-7][ \t]+\\(.*\\)$") 64 (defconst uudecode-begin-line "^begin[ \t]+[0-7][0-7][0-7][ \t]+\\(.*\\)$")