(twittering-atom-xmltree-to-status-datum): call 'twittering-decode-ht…

…ml-entities' to decode entities properly.
hayamiz · Feb 22, 2010 · 8cfb9f8 · 8cfb9f8
1 parent 98f6fc4
commit 8cfb9f8
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,9 @@
+2010-02-22  Satoshi Yatagawa  <yata_github@y.hauN.org>
+
+	* twittering-mode.el (twittering-atom-xmltree-to-status-datum):
+	Call `twittering-decode-html-entities' to decode entities
+	properly.
+
 2010-02-20  Satoshi Yatagawa  <yata_github@y.hauN.org>
 
 	* twittering-mode.el (twittering-current-timeline-spec): Check

diff --git a/twittering-mode.el b/twittering-mode.el
@@ -1887,13 +1887,15 @@ BUFFER may be a buffer or the name of an existing buffer."
 	       (string-match ":\\([0-9]+\\)$" id-str)
 	       (match-string 1 id-str)))
       (source
-       . ,(let ((html (car (cddr (assq 'twitter:source atom-xml-entry)))))
+       . ,(let ((html (twittering-decode-html-entities
+		       (car (cddr (assq 'twitter:source atom-xml-entry))))))
 	    (when (string-match
 		   "<a href=\"\\(.*?\\)\".*?>\\(.*\\)</a>" html)
 	      (let ((uri (match-string-no-properties 1 html))
 		    (caption (match-string-no-properties 2 html)))
 		caption))))
-      (text . ,(car (cddr (assq 'title atom-xml-entry))))
+      (text . ,(twittering-decode-html-entities
+		(car (cddr (assq 'title atom-xml-entry)))))
       ,@(progn
 	  (string-match "^\\([^ ]+\\) (\\(.*\\))$" author-str)
 	  `((user-screen-name . ,(match-string 1 author-str))