🚀 go-pugleaf

"AlexJB" <alexjb@gmail.com> writes:

> i'm working on getting VM set up with smtpmail (or esmtpmail) to send
> outgoing messages via SMTP.
>
> inside of the function: smtpmail-send-it, there's code to fill in the
>>From header (about line 282).
>
>
> ;; Put the "From:" field in unless for some odd reason
> ;; they put one in themselves.
> (goto-char (point-min))
> (if (not (re-search-forward "^From:" delimline t))
> (let* ((login smtpmail-mail-address)
>        (fullname (user-full-name)))
>   (cond ((eq mail-from-style 'angles)
>
> -----------------
>
> inside of the cond are three clauses to put in an appropriate From
> header based on the mail-from-style.
>
> on my version of emacs (GNU Emacs 21.4.1 (i386-pc-linux-gnu, X toolkit,
> Xaw3d scroll bars) of 2005-03-17 on trouble, modified by Debian), i
> think that the let* is causing the cond code to not execute, or perhaps
> the insert function is not executing, because no from header is being
> written to the message buffer.

It is written to a temp buffer, so you will never see it in the
message buffer, but it should be in the message on the receiver
side.  Use edebug to single step and you will see that the code
is executed.

If you want a particular set of default headers then set

(setq mail-default-headers "From: Firstname Lastname  <your@email.address>\nOrganization: xy\n")

Robert