From 32c3f432b58a63a8659dcb5e7d97295abd67e72c Mon Sep 17 00:00:00 2001
From: Tadashi MATSUO <tad@mymail.twin.jp>
Date: Fri, 12 Feb 2010 19:46:54 +0900
Subject: [PATCH] A newline is removed from `icon-string'.

* twittering-mode.el (twittering-format-status): remove a newline
from `icon-string' that underlies the icon image.
(twittering-status-format): add a newline to the default value in
order to keep the interval of displayed tweets.
---
 ChangeLog          | 7 +++++++
 twittering-mode.el | 9 +++++----
 2 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f70ef50e..2420d385 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2010-02-12  Tadashi MATSUO  <tad@mymail.twin.jp>
+
+	* twittering-mode.el (twittering-format-status): remove a newline
+	from `icon-string' that underlies the icon image.
+	(twittering-status-format): add a newline to the default value in
+	order to keep the interval of displayed tweets.
+
 2010-02-12  Satoshi Yatagawa  <yata_github@y.hauN.org>
 
 	* twittering-mode.el (twittering-get-tweets): Add optional
diff --git a/twittering-mode.el b/twittering-mode.el
index f93d49b6..8a726131 100644
--- a/twittering-mode.el
+++ b/twittering-mode.el
@@ -176,9 +176,9 @@ tweets received when this hook is run.")
 (defvar twittering-jojo-mode nil)
 (make-variable-buffer-local 'twittering-jojo-mode)
 
-(defvar twittering-status-format "%i %s,  %@:\n%FILL{  %T // from %f%L%r%R}"
+(defvar twittering-status-format "%i %s,  %@:\n%FILL{  %T // from %f%L%r%R}\n "
   "Format string for rendering statuses.
-Ex. \"%i %s,  %@:\\n%FILL{  %T // from %f%L%r%R}\"
+Ex. \"%i %s,  %@:\\n%FILL{  %T // from %f%L%r%R}\n \"
 
 Items:
  %s - screen_name
@@ -2303,7 +2303,7 @@ variable `twittering-status-format'."
 	 (profile-image
 	  ()
 	  (let ((profile-image-url (attr 'user-profile-image-url))
-		(icon-string "\n  "))
+		(icon-string " "))
 	    (unless (gethash
 		     `(,profile-image-url . ,twittering-convert-fix-size)
 		     twittering-image-data-table)
@@ -2314,7 +2314,8 @@ variable `twittering-status-format'."
 	      (let ((display-spec
 		     (twittering-make-display-spec-for-icon profile-image-url)))
 		(when display-spec
-		  (set-text-properties 1 2 display-spec icon-string)))
+		  (set-text-properties 0 (length icon-string)
+				       display-spec icon-string)))
 	      icon-string)
 	    ))
 	 (make-string-with-url-property