Re: Please excuse this XEmacs user's desperation: smtpmail.el over SSL

[Andreas Politz]

edburns <edburns@gmail.com> writes:

> (defun smtpmail-open-stream (process-buffer host port)
>   (let ((cred (smtpmail-find-credentials
>          smtpmail-starttls-credentials host port)))
===>   (if (null (and cred (condition-case ()
>           ;; XEmacs change
>           (with-boundp '(starttls-use-gnutls
>              starttls-gnutls-program
>              starttls-program)
>             (require 'starttls)
>             (call-process (if starttls-use-gnutls
>             starttls-gnutls-program
>                 starttls-program)))
>         (error nil))))
>   ;; The normal case.
> =>  (open-network-stream "SMTP" process-buffer host port)
>       (let* ((cred-key (smtpmail-cred-key cred))
>        (cred-cert (smtpmail-cred-cert cred))
> host is stbeehive.oracle.com
> port is 465
> Can anyone help me here?  I mean, open-network-stream is just opening
> a simple TCP connection.  That happens before SSL is established,
> right?
>

Either `cred' is unbound at this point, or there is an error inside 
the condition-case.  So the questions are :

a) What is the value of `cred' ?
b) What happens (error or not) if you remove the condition-case
  from this function ?

> Can anyone please help?
>

-ap

> Sincerely,
>
> Ed Burns