Changeset 20874

Timestamp:

10/07/08 07:41:02 (2 months ago)

Author:

kiyoka

Message:

 

Files:

• lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/oldtype-mode.el (modified) (4 diffs)

lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/oldtype-mode.el

@@ -29 +29 @@
 ;;
 ;; ChangeLog:
+;;   [0.0.8]
+;;     1. Fixed bug: illegal ASINCODE of amazon and VIDEOCODE of youtube use for image file creation.
+;;
 ;;   [0.0.7]
 ;;     1. Fixed bug: Added The '-' character to ASINCODE of amazon and VIDEOCODE of youtube.
@@ -54 +57 @@
 ;;
 ;;
-(defconst oldtype-version "0.0.7")
+(defconst oldtype-version "0.0.8")
 
 (defconst oldtype-wikiname-face 'oldtype-wikiname-face)
@@ -358 +361 @@
   ;;
   (defun amazon-asincode-to-url (asincode)
-    (format "http://images.amazon.com/images/P/%s.09.MZZZZZZZ_.jpg" asincode))
+    (if (string-match "^[a-zA-Z0-9-]+$" asincode)
+        (format "http://images.amazon.com/images/P/%s.09.MZZZZZZZ_.jpg" asincode)
+      nil))
 
   (defun youtube-video-to-url (videocode)
-    (format "http://img.youtube.com/vi/%s/1.jpg" videocode))
+    (if (string-match "^[a-zA-Z0-9-]+$" asincode)
+        (format "http://img.youtube.com/vi/%s/1.jpg" videocode)
+      nil))
 
   (defun code-linep (pos)
@@ -440 +447 @@
                        ((youtube-m amazon-m)
                         (int-to-string oldtype-image-height-m)))))
-               (oldtype-compose-region-with-image beg end oldtype-image-icon-string image-url nil height))
+               (if image-url
+                   (oldtype-compose-region-with-image beg end oldtype-image-icon-string image-url nil height)))
              t)