unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
* Please excuse this XEmacs user's desperation: smtpmail.el over SSL
@ 2010-03-30  2:02 edburns
  2010-03-30  3:25 ` edburns
                   ` (3 more replies)
  0 siblings, 4 replies; 11+ messages in thread
From: edburns @ 2010-03-30  2:02 UTC (permalink / raw)
  To: help-gnu-emacs

I know this is GNU emacs, not XEmacs, but I've never had the chutzpa
to migrate.  I'm very sorry.  Please excuse me.  If anyone can help me
here, I would really be grateful.  I've spent many hours in edebug
mode and still am no closer to a solution than when I started.


Hello distinguished lisp programmers,
I have asked Mr. Simon Josefsson to help with this but have
received no reply in over a week of waiting.  I sincerely
hope you can help me.
When Oracle bought my employer, Sun Microsystems, naturally
they migrated all the users to Oracle's mail server.  The
configuration I had working no longer works.
Oracle's mail server wants AUTH LOGIN over an SSL
connection.  I have a plain vanilla XEmacs 21.4.22
installation (with mail-lib version 1.80, VM version
8.0.12-devo-585), which I'm starting with xemacs --vanilla
&.  Then, I'm evaluating a region including the following
expressions.
(setq starttls-use-gnutls t)
(setq starttls-gnutls-program "gnutls-cli")
(setq send-mail-function 'smtpmail-send-it
      message-send-mail-function 'smtpmail-send-it
      smtpmail-starttls-credentials
      '(("stbeehive.oracle.com" 465 nil nil))
      smtpmail-auth-credentials
      (expand-file-name "~/.authinfo")
      smtpmail-default-smtp-server "stbeehive.oracle.com"
      smtpmail-smtp-server "stbeehive.oracle.com"
      smtpmail-smtp-service 465
      smtpmail-debug-info t)
(require 'smtpmail)
FYI: gnutl-cli is on my path
bash-3.00$ gnutls-cli-debug --version
gnutls-cli (GnuTLS) 2.2.0
However we don't even get that far.  I'm finding that XEmacs
hangs within smtpmail.el at this line:
(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?

Can anyone please help?

Sincerely,

Ed Burns


^ permalink raw reply	[flat|nested] 11+ messages in thread

end of thread, other threads:[~2010-04-05 14:30 UTC | newest]

Thread overview: 11+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2010-03-30  2:02 Please excuse this XEmacs user's desperation: smtpmail.el over SSL edburns
2010-03-30  3:25 ` edburns
2010-03-30 13:30 ` Christian Dietrich
2010-03-30 15:19   ` edburns
2010-03-30 16:33 ` Andreas Politz
2010-03-30 16:41   ` Andreas Politz
2010-04-01 19:46     ` edburns
2010-04-02  4:42       ` Andreas Politz
2010-03-31 13:39 ` Ted Zlatanov
2010-04-01 19:46   ` edburns
2010-04-05 14:30     ` Ted Zlatanov

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).