Re: Bug related to (maybe?) / in Message-Id

["Thomas Weißschuh" <thomas@t-8ch.de>]

On Sat, Feb 18, 2023 at 05:58:57PM +0000, Thomas Weißschuh wrote:
> On Fri, Feb 17, 2023 at 10:28:28AM +0000, Eric Wong wrote:
> > It's a tragedy that mutt changed their default Message-ID format :<
> > Newer versions allow overriding $message_id_format in muttrc,
> > but mutt 2.0.5 in Debian 11 won't have it.
> > 
> > Fwiw, I run mutt on several machines/arches/OSes, getting them
> > all to the same new version of mutt will take many years and I
> > don't want compile + keep numerous binaries up-to-date in the
> > mean time.
> 
> Note:
> 
> You can also use mutt's builtin facilities to get custom
> Message-IDs.
> 
> # in muttrc
> send-hook . "source ./msgid"

One mistake: This needs to be the full path to the "msgid" config:

> send-hook . "source ~/.config/mutt/msgid"

> # in file "msgid" next to muttrc
> # put any command within the backticks
> my_hdr Message-ID: <`uuidgen -r`@t-8ch.de>
> 
> The extra config file and "source" command are needed to force
> reevaluation of the backticks for each message.
> 
> This should also work in older versions of mutt and has the advantage
> that mutt knows about the actual Message-ID, for example showing it with
> edit_headers=yes.
> 
> > I also use msmtp and distribute my muttrc + ~/bin to all of
> > them, so I wrote this msmtp wrapper which is mutt-version-agnostic:
> > 
> > $ cat $HOME/bin/msmtp-msgid
> > eval 'exec perl -w -S $0 ${1+"$@"}'
> > if 0; # running under some shell
> > # in muttrc:
> > # set sendmail = msmtp-msgid
> > use v5.12;
> > my ($hdr, $bdy) = split(/\n\n/, do { local $/; <STDIN> }, 2);
> > if ($hdr !~ /^Message-ID:\s*<\d{14}\b/aims) {
> > 	my $h;
> > 	if ($hdr =~ /^Message-ID:[^@]+\@([^>]+)>/ims) {
> > 		$h = $1;
> > 	} else {
> > 		require Sys::Hostname;
> > 		$h = Sys::Hostname::hostname();
> > 	}
> > 	require POSIX;
> > 	require Time::HiRes;
> > 	my ($time, $msec) = Time::HiRes::gettimeofday();
> > 	my $msgid = POSIX::strftime("%Y%m%d%H%M%S.M$msec", gmtime($time));
> > 	$hdr =~ s/^Message-ID:[^\n]+/Message-ID: <$msgid\@$h>/msi;
> > }
> > my $pid = open(my $fh, '|-', 'msmtp', @ARGV) // die "popen: $!";
> > print $fh $hdr, "\n\n", $bdy or die "print $!";
> > close $fh or die "msmtp \$?=$?";
> > __END__