bug#16543: Newsticker retrieve method and https

[Cédric Chépied]

Sorry but the bug as reappeared.

I'm on master branch. I still use the same recipe:

start emacs -Q
go to buffer scratch
type: 
(setq newsticker-url-list (quote ( ("Archlinux"
"https://www.archlinux.org/feeds/news/"; nil nil nil) ("Bonjour Madame"
"http://feeds2.feedburner.com/BonjourMadame"; nil nil nil) )))
M-x eval-buffer
M-x newsticker-treeview

With toggle-debug-on-quit:

Debugger entered--Lisp error: (quit)
  accept-process-output(#<process feeds2.feedburner.com> 1)
  open-tls-stream("feeds2.feedburner.com" #<buffer  *url-http-temp*-426647> 
"feeds2.feedburner.com" 80)
  network-stream-open-tls("feeds2.feedburner.com" #<buffer  
*url-http-temp*-426647> "feeds2.feedburner.com" 80 (:type tls :nowait t))
  open-network-stream("feeds2.feedburner.com" #<buffer  *url-http-temp*-426647> 
"feeds2.feedburner.com" 80 :type tls :nowait t)
  byte-code("\306\211\n\307>\203$\n\310=\203\311\312\f
\313\n\314\315\316\317\"&\202Y\n\320=\2034\321\f
$\202Y\n\322=\203D\323\f
$\202Y\n\324=\203T\325\f
$\202Y\326\327\"*\306\207" [coding-system-for-write 
coding-system-for-read gw-method name buffer host binary (native ssl tls) 
native plain open-network-stream :type :nowait featurep make-network-process 
(:nowait t) socks socks-open-network-stream telnet url-open-telnet rlogin 
url-open-rlogin error "Bad setting of url-gateway-method: %s" service 
url-gateway-method conn] 11)
  url-open-stream("feeds2.feedburner.com" #<buffer  *url-http-temp*-426647> 
"feeds2.feedburner.com" 80)
  url-http-find-free-connection("feeds2.feedburner.com" 80)
  url-http([cl-struct-url "http" nil nil "feeds2.feedburner.com" nil 
"/BonjourMadame" nil nil t nil t] newsticker--get-news-by-url-callback (nil 
"Bonjour Madame"))
  url-retrieve-internal("http://feeds2.feedburner.com/BonjourMadame"; 
newsticker--get-news-by-url-callback (nil "Bonjour Madame") nil nil)
  url-retrieve("http://feeds2.feedburner.com/BonjourMadame"; 
newsticker--get-news-by-url-callback ("Bonjour Madame"))
  byte-code("\302\303  C#\207" [url feed-name url-retrieve 
newsticker--get-news-by-url-callback] 4)
  newsticker--get-news-by-url("Bonjour Madame" 
"http://feeds2.feedburner.com/BonjourMadame";)
  newsticker-get-news("Bonjour Madame")
  apply(newsticker-get-news "Bonjour Madame")
  byte-code("r\301\302H\303H\"\210)\301\207" [timer apply 5 6] 4)
  timer-event-handler([t 21537 27519 799620 3600 newsticker-get-news ("Bonjour 
Madame") nil 639000])
  accept-process-output(#<process www.archlinux.org> 1)
  open-tls-stream("www.archlinux.org" #<buffer  *url-http-temp*> 
"www.archlinux.org" 443)
  network-stream-open-tls("www.archlinux.org" #<buffer  *url-http-temp*> 
"www.archlinux.org" 443 (:type tls :nowait t))
  open-network-stream("www.archlinux.org" #<buffer  *url-http-temp*> 
"www.archlinux.org" 443 :type tls :nowait t)
  byte-code("\306\211\n\307>\203$\n\310=\203\311\312\f
\313\n\314\315\316\317\"&\202Y\n\320=\2034\321\f
$\202Y\n\322=\203D\323\f
$\202Y\n\324=\203T\325\f
$\202Y\326\327\"*\306\207" [coding-system-for-write 
coding-system-for-read gw-method name buffer host binary (native ssl tls) 
native plain open-network-stream :type :nowait featurep make-network-process 
(:nowait t) socks socks-open-network-stream telnet url-open-telnet rlogin 
url-open-rlogin error "Bad setting of url-gateway-method: %s" service 
url-gateway-method conn] 11)
  url-open-stream("www.archlinux.org" #<buffer  *url-http-temp*> 
"www.archlinux.org" 443)
  url-http-find-free-connection("www.archlinux.org" 443)
  url-http([cl-struct-url "https" nil nil "www.archlinux.org" nil 
"/feeds/news/" nil nil t nil t] newsticker--get-news-by-url-callback (nil 
"Archlinux"))
  url-https([cl-struct-url "https" nil nil "www.archlinux.org" nil 
"/feeds/news/" nil nil t nil t] newsticker--get-news-by-url-callback (nil 
"Archlinux"))
  url-retrieve-internal("https://www.archlinux.org/feeds/news/"; 
newsticker--get-news-by-url-callback (nil "Archlinux") nil nil)
  url-retrieve("https://www.archlinux.org/feeds/news/"; 
newsticker--get-news-by-url-callback ("Archlinux"))
  byte-code("\302\303  C#\207" [url feed-name url-retrieve 
newsticker--get-news-by-url-callback] 4)
  newsticker--get-news-by-url("Archlinux" 
"https://www.archlinux.org/feeds/news/";)
  newsticker-get-news("Archlinux")
  apply(newsticker-get-news "Archlinux")
  byte-code("r\301\302H\303H\"\210)\301\207" [timer apply 5 6] 4)
  timer-event-handler([t 21537 27519 799606 3600 newsticker-get-news 
("Archlinux") nil 269000])

Regards,
-- 
Cédric Chépied
<cedric.chepied@gmail.com>