Mercurial > emacs
comparison lib-src/b2m.pl @ 53224:f0eb34e60705
tag of miles@gnu.org--gnu-2003/emacs--cvs-trunk--0--patch-137
(automatically generated log message)
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--base-0
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Wed, 24 Dec 2003 16:09:13 +0000 |
parents | 695cf19ef79e |
children | eb7e8d483840 |
comparison
equal
deleted
inserted
replaced
53223:1fa5a4fc03e5 | 53224:f0eb34e60705 |
---|---|
28 use Getopt::Long; | 28 use Getopt::Long; |
29 use Mail::Address; | 29 use Mail::Address; |
30 use Date::Parse; | 30 use Date::Parse; |
31 | 31 |
32 my($whoami) = basename $0; | 32 my($whoami) = basename $0; |
33 my($version) = '$Revision: 1.5 $'; | 33 my($version) = '$Revision: 1.6 $'; |
34 my($usage) = "Usage: $whoami [--help] [--version] [--[no]full-headers] [Babyl-file] | 34 my($usage) = "Usage: $whoami [--help] [--version] [--[no]full-headers] [Babyl-file] |
35 \tBy default, full headers are printed.\n"; | 35 \tBy default, full headers are printed.\n"; |
36 | 36 |
37 my($opt_help, $opt_version); | 37 my($opt_help, $opt_version); |
38 my($opt_full_headers) = 1; | 38 my($opt_full_headers) = 1; |