Permalink
Browse files

(twittering-http-get-list-index-sentinel): call 'twittering-get-respo…

…nse-body' instead of 'xml-parse-region'.
  • Loading branch information...
1 parent c4bb398 commit b91d0ea640332eb0335cadc027c36cab568a7212 @yata yata committed Feb 19, 2010
Showing with 19 additions and 19 deletions.
  1. +3 −0 ChangeLog
  2. +16 −19 twittering-mode.el
View
@@ -10,6 +10,9 @@
(twittering-http-get-list-index-sentinel): Likewise.
(twittering-http-post-default-sentinel): Likewise.
+ * twittering-mode.el (twittering-http-get-list-index-sentinel):
+ Call `twittering-get-response-body' instead of `xml-parse-region'.
+
2010-02-19 Tadashi MATSUO <tad@mymail.twin.jp>
* twittering-mode.el (twittering-set-window-end): use
View
@@ -1766,25 +1766,22 @@ Available keywords:
(case-string
status
(("200")
- (save-excursion
- (condition-case error-str
- (let ((xmltree (xml-parse-region (point-min) (point-max))))
- (when xmltree
- (setq indexes
- (mapcar
- (lambda (c-node)
- (caddr (assq 'slug c-node)))
- (remove nil
- (mapcar
- (lambda (node)
- (and (consp node) (eq 'list (car node))
- node))
- (cdr-safe
- (assq 'lists (assq 'lists_list xmltree))))
- ))
- )))
- (error
- (setq mes (format "Failure: %s" error-str))))))
+ (let ((xmltree (twittering-get-response-body (process-buffer proc)
+ 'xml-parse-region)))
+ (when xmltree
+ (setq indexes
+ (mapcar
+ (lambda (c-node)
+ (caddr (assq 'slug c-node)))
+ (remove nil
+ (mapcar
+ (lambda (node)
+ (and (consp node) (eq 'list (car node))
+ node))
+ (cdr-safe
+ (assq 'lists (assq 'lists_list xmltree))))
+ ))
+ ))))
(t
(let ((error-mes (twittering-get-error-message proc)))
(if error-mes

0 comments on commit b91d0ea

Please sign in to comment.