Retrieve optional `user-name' from XML for StatusNet correctly.

Thanks to Takashi Masuda.

* twittering-mode.el (twittering-atom-xmltree-to-status-datum):
retrieve `user-screen-name' and optional `user-name' from XML for
StatusNet correctly. Thanks to Takashi Masuda.

ChangeLog

@@ -1,3 +1,9 @@
+2010-08-22  Tadashi MATSUO  <tad@mymail.twin.jp>
+
+	* twittering-mode.el (twittering-atom-xmltree-to-status-datum):
+	retrieve `user-screen-name' and optional `user-name' from XML for
+	StatusNet correctly. Thanks to Takashi Masuda.
+
 2010-08-21  Tadashi MATSUO  <tad@mymail.twin.jp>
 
 	* twittering-mode.el: Restore `twittering-get-{search,status}-url'.

twittering-mode.el

@@ -4698,10 +4698,11 @@ BUFFER may be a buffer or the name of an existing buffer."
       (text . ,(twittering-decode-html-entities
 		(car (cddr (assq 'title atom-xml-entry)))))
       ,@(cond
-	 ((eq twittering-service-method 'statusnet)
+	 ((and (eq twittering-service-method 'statusnet)
+	       (string-match "^\\([^ ]+\\)\\( (\\(.*\\))\\)?$" author-str))
 	  ;; StatusNet
-	  `((user-screen-name . ,author-str)
-	    (user-name . "")))
+	  `((user-screen-name . ,(match-string 1 author-str))
+	    (user-name . ,(or (match-string 3 author-str) ""))))
 	 ((string-match "^\\([^ ]+\\) (\\(.*\\))$" author-str)
 	  ;; Twitter (default)
 	  `((user-screen-name . ,(match-string 1 author-str))