Add the variable `twittering-fallback-image-format'.

* twittering-mode.el: Add the variable
`twittering-fallback-image-format'.
(twittering-fallback-image-format): new variable.
(twittering-create-image-pair): use the value of
`twittering-fallback-image-format' as the fallback format instead
of directly using 'xpm.

ChangeLog

@@ -44,6 +44,13 @@
 	edit skeleton.
 	(twittering-edit-skeleton-inherit-mentions): likewise.
 
+	* twittering-mode.el: Add the variable
+	`twittering-fallback-image-format'.
+	(twittering-fallback-image-format): new variable.
+	(twittering-create-image-pair): use the value of
+	`twittering-fallback-image-format' as the fallback format instead
+	of directly using 'xpm.
+
 2011-03-27  Tadashi MATSUO  <tad@mymail.twin.jp>
 
 	* twittering-mode.el: Discard standard error of the program

NEWS

@@ -182,6 +182,14 @@
   `twittering-switch-edit-skeleton'.
   The footer string, `twittering-edit-skeleton-footer', can be changed
   by invoking `twittering-edit-skeleton-change-footer'.
+* Variable of fallback image format.
+  You can change the fallback format of images by changing the
+  variable `twittering-fallback-image-format'. The default format is
+  XPM. Images which Emacs does not supports are displayed by
+  converting them into the fallback format.
+  By the following configuration, you may avoid strange behaviors when
+  displaying XPM images on NTEmacs. Thanks to Silver Chariot.
+  (setq twittering-fallback-image-format 'png)
 * ...
 
 ### Bug fixes

NEWS.ja

@@ -183,6 +183,14 @@
   るにはことができます。
   また、フッタ文字列`twittering-edit-skeleton-footer'の内容は関数
   `twittering-edit-skeleton-change-footer'で変更できます。
+* 代替画像形式を指定する変数
+  アイコン画像の形式がEmacsにサポートされていない形式である場合、画像
+  をEmacsがサポートする形式に変換してから表示するのですが、その際の変
+  換先の画像形式を指定する変数`twittering-fallback-image-format'を追加
+  しました。デフォルトの形式はXPMです。
+  下記のように設定すれば、NTEmacsでXPMを表示する際の不自然な挙動を回避
+  できるかもしれません。 Thanks to Silver Chariot.
+  (setq twittering-fallback-image-format 'png)
 * ...
 
 ### バグ修正

twittering-mode.el

@@ -4750,6 +4750,11 @@ is the display property for the icon.")
 is non-nil. If this variable is non-nil, icon images are converted by
 invoking \"convert\". Otherwise, cropped images are displayed.")
 
+(defvar twittering-fallback-image-format 'xpm
+  "*Fallback format used for displaying an image without a supproted format.
+Images which Emacs does not supports are converted into the fallback image
+format.")
+
 (defvar twittering-use-profile-image-api nil
   "*Whether to use `profile_image' API for retrieving scaled icon images.
 NOTE: This API is rate limited.")
@@ -4874,9 +4879,10 @@ available and `twittering-use-convert' is non-nil."
       image-pair)
      (twittering-use-convert
       (let ((converted-data
-	     (twittering-convert-image-data image-data 'xpm)))
+	     (twittering-convert-image-data image-data
+					    twittering-fallback-image-format)))
 	(if converted-data
-	    `(xpm . ,converted-data)
+	    `(,twittering-fallback-image-format . ,converted-data)
 	  twittering-error-icon-data-pair)))
      (t
       twittering-error-icon-data-pair))))