BarnOwl::new_command('my-word-wrap' => sub {
                         my $fillcol = owl::getvar('edit:maxfillcols');
                         save_excursion {
                             owl::command('edit:set-mark');
                             BarnOwl::Editwin::point_move(1);
                             owl::command('editmulti:backward-paragraph');
                             my $region = BarnOwl::Editwin::get_region();
                             my $wrapped = autoformat $region, { right => $fillcol,
                                                                 renumber => 0,
                                                                 lists => 0,
                                                                 all => 1
                                                                };
                             $wrapped =~ s{\n$}{};
                             if($region =~ m{\s$}) {
                                 $wrapped .= " ";
                             }
                             BarnOwl::Editwin::replace_region($wrapped);
                         };
                         my $line = save_excursion {
                             owl::command("edit:set-mark");
                             owl::command("edit:move-to-line-start");
                             BarnOwl::Editwin::get_region();
                         };
                         save_excursion {
                             owl::command('edit:set-mark');
                             owl::command('editmulti:forward-paragraph');
                             my $stub = ('x' x (length($line) - 1)) . ' ';
                             my $region = BarnOwl::Editwin::get_region();
                             my $wrapped = autoformat "$stub$region", { right => $fillcol,
                                                                        renumber => 0,
                                                                        lists => 0,
                                                                        all => 1
                                                                       };
                             $wrapped = substr($wrapped, length($line));
                             if ($region =~ m{^\s}) {
                                 $wrapped = " $wrapped";
                             }
                             BarnOwl::Editwin::replace_region($wrapped);
                         };
                     });