bug#9017: 24.0.50; gnutls.c: [0] (Emacs) fatal error: Key usage violation in certificate has been detected.

[Roland Winkler]

On Mon Jul 11 2011 Lars Magne Ingebrigtsen wrote:
> If you eval the following
> 
> (make-network-process :name "smtpmail" :buffer (get-buffer-create "foo") :host
> "foo.bar.com" :service 465)
> 
> does it hang?

Yes, this hangs, too. (A backtrace doesn't give anything useful
beyond the call of make-network-process.)

> Try evaluating this:
> 
> (defun gnutls-available-p () nil)

This gives me the backtrace below.

Roland



Debugger entered--Lisp error: (wrong-type-argument processp nil)
  process-buffer(nil)
  network-stream-get-response(nil 197 "^[0-9]+ .*
\n")
  network-stream-open-starttls("smtpmail" #<buffer *trace of SMTP session to 
foo.bar.com*> "foo.bar.com" 465 (:type nil :return-list t :capability-command 
"EHLO regnitz
\n" :end-of-command "^[0-9]+ .*
\n" :success "^2.*\n" :always-query-capabilities t :starttls-function 
#[(capabilities) "\301\302\"\205\303\207" [capabilities string-match 
"-STARTTLS" "STARTTLS
\n"] 3] :client-certificate t :use-starttls-if-possible t))
  open-network-stream("smtpmail" #<buffer *trace of SMTP session to 
foo.bar.com*> "foo.bar.com" 465 :type nil :return-list t :capability-command 
"EHLO regnitz
\n" :end-of-command "^[0-9]+ .*
\n" :success "^2.*\n" :always-query-capabilities t :starttls-function 
#[(capabilities) "\301\302\"\205\303\207" [capabilities string-match 
"-STARTTLS" "STARTTLS
\n"] 3] :client-certificate t :use-starttls-if-possible t)
  byte-code("\306\307\310\"!r q\210\311\312 \210)\313\314    
\315\f\316\311\317\307\320\321 
\"\322\323\324\325\326\311\327\330\331\311\332\311&\211@\211@\204L\333\334\335
A\336\"\203I\335
A\336\"\202J\337\"\210\340@\341\"\210\335
A\342\"A\343A!\211B\204l\333\334\307\344A\"\"\210B\345Y\203|\333\334\307\346A\"\"\210*r
 q\210\347\350\211\"\210\351\352!\210e*\335
A\353\"C\343C!\211B\203\245B\345Y\203\262\354@\307\355\321 
\"\"\210\202+
\356\357\360\335
A\353\"\361\"\"\362D\211E\203*
E@D\363 
pFG\364\216\365H!\210\366\367\360D\370\362O\371\"\"+\211IG\372U\203\363I@II\203
 
I:\203
I@\202
I\373>\203
IJBJ\202 
K\203 

\374\375I\"\210)EA\211E\204\306**\376@J
L%M\377J\235\204H
\201UJ\235\203R
\354@\307\201V!\"\210N\203s
\201WJ\235\204i
\201XJ\235\203s
\354@\307\201Y!\"\210\201ZJ\235\203\206
\354@\307\201[!\"\210\201\\J\235\204\233
\201]\201\\J\"\203\263
\307\201^rOq\210deZ\201_ed\"\\)\"\202\264
\357\201`J\235\203\301
\357\202\302
\357PQ\201a@\307\201bRQP$\"\210\201c\201d@!\211!\204.M\203%L\204%
@\201eU\203%\201a@\201f\"\210\201d@!\210\201g@!\210\362@\333\334\201hSO\311#\"\210\202.\333\334\201i
!\"\210*\201j\211TS8\203\257\201a@\307\201k\201lTS8!\"\"\210\201c\201d@!\211!\204\246M\203\235L\204\235
@\201mU\203\235\201a@\201f\"\210\201d@!\210\201g@!\210\362@\333\334\201hSO\311#\"\210\202\246\333\334\201i
!\"\210TT\211T\2025)\354@\201n\"\210\201o@O\"\210\354@\201p\"\210)\362\207"
 [host process-buffer buffer-undo-list port smtpmail-stream-type result 
get-buffer-create format "*trace of SMTP session to %s*" t erase-buffer 
open-network-stream "smtpmail" :type :return-list :capability-command "EHLO %s
\n" smtpmail-fqdn :end-of-command "^[0-9]+ .*
\n" :success "^2.*\n" :always-query-capabilities :starttls-function 
#[(capabilities) "\301\302\"\205\303\207" [capabilities string-match 
"-STARTTLS" "STARTTLS
\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 "
\n" ...] 24)
  smtpmail-via-smtp((#("winkler@gnu.org" 0 16 (fontified t))) #<buffer  
smtpmail temp>)
  smtpmail-send-it()
  mail-send()
  call-interactively(mail-send nil nil)