Re: smtpmail and starttls

[John Owens <owens.aa@ece.ucdavis.edu>]

Simon Josefsson <jas@extundo.com> writes:
> John Owens <owens.aa@ece.ucdavis.edu> writes:
>> Simon Josefsson <jas@extundo.com> writes:
>>> John Owens <owens.aa@ece.ucdavis.edu> writes:
>>>
>>>> I am trying to get smtpmail with queueing working with starttls. This
>>>> is on OS X 10.3, for the record.
>>>
>>> Which CVS revision of smtpmail.el?  Here's what I use, and I think it
>>> works.
>>
>> Just got the latest from CVS (looks like 1.61). Same behavior.
>>
>> What additional information can I provide to help debug this further?
>
> Using edebug to step through `smtpmail-open-stream' would give the
> best information.  (See trouble shooting section of Gnus manual.)

OK, here's what's being debugged (again I'm changing edu to ude
					below): 

(I'm marking all the places edebug stops with a [#] and the values 
emitted there below the elisp function.)

(defun smtpmail-open-stream (process-buffer host port)
  (let ((cred (smtpmail-find-credentials
	       smtpmail-starttls-credentials [1] host [2] port [3])[4]))
    (if (null (and cred [5] (condition-case ()
			    (progn
			      (require 'starttls)
			      (call-process
			       starttls-program))
                          (error nil)))[6])[7]
	;; The normal case.
	(open-network-stream "SMTP" process-buffer [8] host [9] port [10])
      (let* ((cred-key (smtpmail-cred-key cred))
	     (cred-cert (smtpmail-cred-cert cred))
	     (starttls-extra-args
	      (when (and (stringp cred-key) (stringp
					     cred-cert)
                         (file-regular-p
			  (setq cred-key
				(expand-file-name cred-key)))
			 (file-regular-p
			  (setq cred-cert
				(expand-file-name cred-cert))))
		(list "--key-file" cred-key "--cert-file"
		      cred-cert))))
        (starttls-open-stream "SMTP" process-buffer host port)))))

[1]: (("strat.ece.ucdavis.ude" 587 "" ""))
[2]: "strat.ece.ucdavis.ude"
[3]: "smtp"
[4]: nil
[5]: nil
[6]: nil
[7]: t
[8]: #<buffer *trace of SMTP session to strat.ece.ucdavis.ude*>
[9]: "strat.ece.ucdavis.ude"
[10]: "smtp"

Then the following:

File error: "make client process failed", "connection refused", :name, "SMTP", :buffer, #<buffer *trace of SMTP session to strat.ece.ucdavis.ude*>, :host, "strat.ece.ucdavis.ude", :service, "smtp"

Again, my settings are here:

http://article.gmane.org/gmane.emacs.gnus.general/54720/match=owens

but now I have "" instead of nil in the last two items in the list of
smtpmail-starttls-credentials.  

JDO