mirror of
https://github.com/MidnightCommander/mc
synced 2024-12-22 20:36:50 +03:00
* extfs/mailfs: Strip trailing DOS newlines from mail files.
From Christian Gennerat <christian.gennerat@vz.cit.alcatel.fr>
This commit is contained in:
parent
80f37db22b
commit
e1d5a8250d
@ -1,5 +1,8 @@
|
||||
2001-07-09 Pavel Roskin <proski@gnu.org>
|
||||
|
||||
* extfs/mailfs: Strip trailing DOS newlines from mail files.
|
||||
From Christian Gennerat <christian.gennerat@vz.cit.alcatel.fr>
|
||||
|
||||
* fish.c (fish_chown): Do nothing and return success if
|
||||
getpwuid() or getgrgid() fails.
|
||||
|
||||
|
@ -44,6 +44,7 @@ if (eval "require Date::Parse") { # fancy date parsing available?
|
||||
|
||||
sub process_header {
|
||||
while (<IN>) {
|
||||
s/\r$//;
|
||||
last if /^$/;
|
||||
die "unexpected EOF\n" if eof;
|
||||
if (/^Date:\s(.*)$/) {
|
||||
@ -72,6 +73,7 @@ sub mailfs_list {
|
||||
|
||||
while(1) {
|
||||
$_=<IN>;
|
||||
s/\r$//;
|
||||
if (!defined($_)) { # EOF
|
||||
print_dir_line;
|
||||
exit 0;
|
||||
@ -96,6 +98,7 @@ sub mailfs_copyout {
|
||||
|
||||
my $blank = 1;
|
||||
while(<IN>) {
|
||||
s/\r$//;
|
||||
if($blank && /^From /) {
|
||||
$msg_nr++;
|
||||
exit(0) if ($msg_nr > $nr);
|
||||
|
Loading…
Reference in New Issue
Block a user