Index: lang/elisp/twittering-mode/trunk/twittering-mode.el
===================================================================
--- lang/elisp/twittering-mode/trunk/twittering-mode.el (revision 81)
+++ lang/elisp/twittering-mode/trunk/twittering-mode.el (revision 134)
@@ -519,5 +519,5 @@
 	   (list-push (attr 'user-url) result))
 	  ((?j)                         ; %j - user.id
-	   (list-push (format "%d" (attr 'user-id)) result))
+	   (list-push (attr 'user-id) result))
 	  ((?p)                         ; %p - protected?
 	   (let ((protected (attr 'user-protected)))
@@ -576,5 +576,5 @@
 	   (list-push (attr 'source) result))
 	  ((?#)                         ; %# - id
-	   (list-push (format "%d" (attr 'id)) result))
+	   (list-push (attr 'id) result))
 	  (t
 	   (list-push (char-to-string c) result)))
@@ -708,5 +708,5 @@
 	    (not (find-if
 		  (lambda (item)
-		    (eql id (cdr (assq 'id item))))
+		    (string= id (cdr (assq 'id item))))
 		  (symbol-value data-var))))
 	(progn
@@ -734,5 +734,5 @@
 	   regex-index)
 
-      (setq id (string-to-number (assq-get 'id status-data)))
+      (setq id (assq-get 'id status-data))
       (setq text (twittering-decode-html-entities
 		  (assq-get 'text status-data)))
@@ -741,5 +741,5 @@
       (setq created-at (assq-get 'created_at status-data))
       (setq truncated (assq-get 'truncated status-data))
-      (setq user-id (string-to-number (assq-get 'id user-data)))
+      (setq user-id (assq-get 'id user-data))
       (setq user-name (twittering-decode-html-entities
 		       (assq-get 'name user-data)))
@@ -1136,5 +1136,5 @@
 (defun twittering-get-status-url (username id)
   "Generate status URL."
-  (format "http://twitter.com/%s/statuses/%d" username id))
+  (format "http://twitter.com/%s/statuses/%s" username id))
 
 ;;;###autoload