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

["Roland Winkler" <winkler@gnu.org>]

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]+ .*\r\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\r\n" :end-of-command "^[0-9]+ .*\r\n" :success "^2.*\n" :always-query-capabilities t :starttls-function #[(capabilities) "\301\302\b\"\205\b\0\303\207" [capabilities string-match "-STARTTLS" "STARTTLS\r\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\r\n" :end-of-command "^[0-9]+ .*\r\n" :success "^2.*\n" :always-query-capabilities t :starttls-function #[(capabilities) "\301\302\b\"\205\b\0\303\207" [capabilities string-match "-STARTTLS" "STARTTLS\r\n"] 3] :client-certificate t :use-starttls-if-possible t)
  byte-code("\306\307\310\b\"!\x11r	q\210\311\x12\312 \210)\313\314	\b\v\315\f\316\311\317\307\320\321 \"\322\323\324\325\326\311\327\330\331\311\332\311&\x16\211\x15@\211\x16@\204L\0\333\334\335\rA\336\"\203I\0\335\rA\336\"\202J\0\337\"\210\340\x0e@\341\"\210\335\rA\342\"\x1eA\343\x0eA!\211\x1eB\204l\0\333\334\307\344\x0eA\"\"\210\x0eB\345Y\203|\0\333\334\307\346\x0eA\"\"\210*r	q\210\347\350\211\"\210\351\352!\210e\x16*\335\rA\353\"\x1eC\343\x0eC!\211\x1eB\203\245\0\x0eB\345Y\203\262\0\354\x0e@\307\355\321 \"\"\210\202+\x01\356\357\360\335\rA\353\"\361\"\"\362\x1eD\211\x1eE\203*\x01\x0eE@\x16D\363 p\x1eF\x1eG\364\216\365\x0eH!\210\366\367\360\x0eD\370\362O\371\"\"+\211\x1eIG\372U\203\363\0\x0eI@\x16I\x0eI\203 \x01\x0eI:\203\x04\x01\x0eI@\202\x06\x01\x0eI\373>\203\x15\x01\x0eI\x0eJB\x16J\202 \x01\x0eK\203 \x01\374\375\x0eI\"\210)\x0eEA\211\x16E\204\306\0**\376\x0e@\x0eJ\b\v\x0eL%\x16M\377\x0eJ\235\204H\x01\201U\0\x0eJ\235\203R\x01\354\x0e@\307\201V\0!\"\210\x0eN\203s\x01\201W\0\x0eJ\235\204i\x01\201X\0\x0eJ\235\203s\x01\354\x0e@\307\201Y\0!\"\210\201Z\0\x0eJ\235\203\206\x01\354\x0e@\307\201[\0!\"\210\201\\\0\x0eJ\235\204\233\x01\201]\0\201\\\0\x0eJ\"\203\263\x01\307\201^\0r\x0eOq\210deZ\201_\0ed\"\\)\"\202\264\x01\357\201`\0\x0eJ\235\203\301\x01\357\202\302\x01\357\x1eP\x1eQ\201a\0\x0e@\307\201b\0\x0eR\x0eQ\x0eP$\"\210\201c\0\201d\0\x0e@!\211\x15!\204.\x02\x0eM\203%\x02\x0eL\204%\x02\r@\201e\0U\203%\x02\201a\0\x0e@\201f\0\"\210\201d\0\x0e@!\210\201g\0\x0e@!\210\362\x16@\333\334\201h\0\x0eS\x0eO\311#\"\210\202.\x02\333\334\201i\0\r!\"\210*\201j\0\211\x1eT\x0eS8\203\257\x02\201a\0\x0e@\307\201k\0\201l\0\x0eT\x0eS8!\"\"\210\201c\0\201d\0\x0e@!\211\x15!\204\246\x02\x0eM\203\235\x02\x0eL\204\235\x02\r@\201m\0U\203\235\x02\201a\0\x0e@\201f\0\"\210\201d\0\x0e@!\210\201g\0\x0e@!\210\362\x16@\333\334\201h\0\x0eS\x0eO\311#\"\210\202\246\x02\333\334\201i\0\r!\"\210\x0eTT\211\x16T\2025\x02)\354\x0e@\201n\0\"\210\201o\0\x0e@\x0eO\"\210\354\x0e@\201p\0\"\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\r\n" smtpmail-fqdn :end-of-command "^[0-9]+ .*\r\n" :success "^2.*\n" :always-query-capabilities :starttls-function #[(capabilities) "\301\302\b\"\205\b\0\303\207" [capabilities string-match "-STARTTLS" "STARTTLS\r\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 "\r\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)