[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Send messages ...



At Sun, 23 Sep 2012 00:35:27 +0900,
Kazuhiro Ito wrote:
>
> > I'm trying to send a message from the network at my work, and getting these
> > errors:
> >
> > Sending...
> > Warning: defvar ignored because starttls-program is let-bound
> > Warning: defvar ignored because starttls-extra-args is let-bound
> > Opening STARTTLS connection to `mail.messagingengine.com:587'...failed
> > byte-code: Wrong type argument: arrayp, nil
> > Wrong type argument: arrayp, nil
>
> I think above warnings are due to FLIM's bug.  FLIM's smtp-send-buffer
> function let-binds starttls-program and starttls-extra-args before
> starttls.el is loaded.  Try below code to avoid warnings (sorry, not
> tested), or simply add "(require 'starttls)" in your .wl.
>
> (defadvice smtp-send-buffer (before starttls-fix activate)
>   (when smtp-use-starttls
>     (require 'starttls)))
>
> But I don't know whether the above code can fix the error.

I agree with the analysis and the solution. Patch FLIM:

diff --git a/smtp.el b/smtp.el
index fe511e9..649020f 100644
--- a/smtp.el
+++ b/smtp.el
@@ -351,6 +351,8 @@ RECIPIENTS is a list of envelope recipient addresses.
 BUFFER may be a buffer or a buffer name which contains mail message."
   (if smtp-send-by-myself
       (smtp-send-buffer-by-myself sender recipients buffer)
+    (when smtp-use-starttls
+      (require 'starttls))
     (let* ((server
 	    (if (functionp smtp-server)
 		(funcall smtp-server sender recipients)

Best,
  -- David
--
OpenPGP... 0x99ADB83B5A4478E6
Jabber.... dmjena@jabber.org
Email..... dmaus@ictsoc.de

Attachment: pgpYQKiu3ynLH.pgp
Description: OpenPGP Digital Signature