Display an error message from the 'help/configuration' API.

* twittering-mode.el: Display an error message from the
'help/configuration' API.
(twittering-update-service-configuration-sentinel): display an
error message in a HTTP response body.

ChangeLog

@@ -21,6 +21,11 @@
 	(twittering-get-error-message): try to parse a HTTP respose body
 	whose status code is 401 or 404.
 
+	* twittering-mode.el: Display an error message from the
+	'help/configuration' API.
+	(twittering-update-service-configuration-sentinel): display an
+	error message in a HTTP response body.
+
 2012-03-04  Tadashi MATSUO  <tad@mymail.twin.jp>
 
 	* twittering-mode.el: Fix the escape of a query string in a search

twittering-mode.el

@@ -4912,9 +4912,15 @@ get-service-configuration -- Get the configuration of the server.
 			  entries)))
 	(setq twittering-service-configuration-queried nil)
 	nil))
+     (("400")
+      ;; Rate limit exceeded.
+      (setq twittering-service-configuration-queried nil)
+      (format "Response: %s"
+	      (twittering-get-error-message header-info connection-info)))
      (t
       (setq twittering-service-configuration-queried nil)
-      (format "Response: %s" status-line)))))
+      (format "Response: %s"
+	      (twittering-get-error-message header-info connection-info))))))
 
 (defun twittering-update-service-configuration-clean-up-sentinel (proc status connection-info)
   (when (not (twittering-process-alive-p proc))