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

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

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"

# 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__