Using smtps over port 465 in emacs24

[Rene <jlr_0@yahoo.com>]

emacs-version "24.0.92.1"

I didn't encounter any problem using the smtp protocol on port 25.  But now that
my company has turned to a secured smtp server I now should be using the smtps
protocol on port 465. Unfortunately I cannot seem to make this work.  

Besides I don't get any error message at all which leaves me with no clue on how
to debug this problem although both `smtpmail-debug-verb' and
`smtpmail-debug-info' are set to t.

*Here is my configuration*

(setq smtpmail-smtp-server "smtps.company.domain.name")
(setq smtpmail-smtp-service 465)
(setq user-mail-address "my.name@domain.name")
(setq smtpmail-local-domain "domain.name")
(setq smtpmail-smtp-user "loginName")

*Here is the corresponding line in my ~/.authinfo.gpg*

machine smtps.company.domain.name  login loginName   password xxx  port 465

*Here is the trace*

Debugger entered--Lisp error: (quit)
    accept-process-output(#<process smtpmail> 0 50)

  network-stream-get-response(#<process smtpmail> 1 "^[0-9]+ .*^M\n")

  network-stream-open-starttls("smtpmail" #<buffer *trace of SMTP
  session to smtps.company.domain.name*>
  "smtps.company.domain.name" 465 (:type nil :return-list t
  :capability-command "EHLO machine.domain.name^M\n" :end-of-command
  "^[0-9]+ .*^M\n" :success "^2.*\n" :always-query-capabilities t
  :starttls-function #[(capabilities) "\301\302^H\"\205^H^@\303\207"
  [capabilities string-match "[ -]STARTTLS" "STARTTLS^M\n"] 3]
  :client-certificate t :use-starttls-if-possible t))

  open-network-stream("smtpmail" #<buffer *trace of SMTP session to
  smtps.company.domain.name*> "smtps.company.domain.name" 465
  :type nil :return-list t :capability-command "EHLO
  machine.domain.name^M\n" :end-of-command "^[0-9]+ .*^M\n" :success
  "^2.*\n" :always-query-capabilities t :starttls-function
  #[(capabilities) "\301\302^H\"\205^H^@\303\207" [capabilities
  string-match "[ -]STARTTLS" "STARTTLS^M\n"] 3] :client-certificate t
  :use-starttls-if-possible t)

  byte-code("\306\307\310^H\"!^Qr q\210\311^R\312
  \210)\313\211^[^\\314\315 ^H^M\316^N@\317\311\320\307\321\322
  (...)
  [host process-buffer buffer-undo-list coding-system-for-write
  coding-system-for-read port get-buffer-create format "*trace of SMTP
  session to %s*" t erase-buffer binary open-network-stream "smtpmail"
  :type :return-list :capability-command "EHLO %s^M\n" smtpmail-fqdn
  :end-of-command "^[0-9]+ .*^M\n" :success "^2.*\n"
  :always-query-capabilities :starttls-function #[(capabilities)
  "\301\302^H\"\205^H^@\303\207" [capabilities string-match "[
  -]STARTTLS" "STARTTLS^M\n"] 3] :client-certificate
  :use-starttls-if-possible throw done plist-get :error "Unable to
  contact server" set-process-filter smtpmail-process-filter :greeting
  smtpmail-response-code "No greeting: %s" 400 "Connection not
  allowed: %s" set-buffer-process-coding-system raw-text-unix
  make-local-variable smtpmail-read-point :capabilities
  smtpmail-command-or-throw "HELO %s" delete "" split-string ...] 24)

  smtpmail-via-smtp((#("Jean-Luc.Koning@esisar.domain.name" 0 38
  (fontified nil))) #<buffer smtpmail temp>)

  smtpmail-send-it()

  mail-send()

  vm-mail-send()

  ad-Orig-vm-mail-send-and-exit(nil)

  apply(ad-Orig-vm-mail-send-and-exit nil)

  vm-mail-send-and-exit(nil)

  call-interactively(vm-mail-send-and-exit)



Any help is much welcome.

--
Rene