Mercurial > emacs
comparison lib-src/b2m.pl @ 89909:68c22ea6027c
Sync to HEAD
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 16 Apr 2004 12:51:06 +0000 |
parents | 375f2633d815 |
children | f9a65d7ebd29 |
comparison
equal
deleted
inserted
replaced
89908:ee1402f7b568 | 89909:68c22ea6027c |
---|---|
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.4 $'; | 33 my($version) = '$Revision: 1.5 $'; |
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; |
150 ($labels ? "X-Babyl-Labels: $labels\n" : ""), "\n", | 150 ($labels ? "X-Babyl-Labels: $labels\n" : ""), "\n", |
151 $_) || die "$whoami: error writing to stdout: $!\n"; | 151 $_) || die "$whoami: error writing to stdout: $!\n"; |
152 } | 152 } |
153 | 153 |
154 close(STDOUT) || die "$whoami: Error closing stdout: $!\n"; | 154 close(STDOUT) || die "$whoami: Error closing stdout: $!\n"; |
155 | |
156 # arch-tag: 8c7c8ab0-721c-46d7-ba3e-139801240aa8 |