disable tinyurl when mm-url doesn't exist

ChangeLog

@@ -147,6 +147,7 @@
 2009-12-15  haya  <haya@starfish.unicus.ddo.jp>
 
 	* twittering-mode.el (twittering-status-not-blank-p): fix invalid escape sequence
+	(twittering-tinyurl-replace-at-point): disabled when 'mm-url' doesn't exist.
 
 2009-12-12  Alberto Garcia  <agarcia@igalia.com>
 

twittering-mode.el

@@ -45,6 +45,9 @@
 (require 'cl)
 (require 'xml)
 (require 'parse-time)
+(when (< emacs-major-version 22)
+  (require 'un-define)
+  (set-terminal-coding-system 'utf-8))
 
 (defconst twittering-mode-version "0.9")
 (defconst twittering-max-number-of-tweets-on-retrieval 200
@@ -1512,14 +1515,15 @@ If STATUS-DATUM is already in DATA-VAR, return nil. If not, return t."
 (defun twittering-tinyurl-replace-at-point ()
   "Replace the url at point with a tiny version."
   (interactive)
+  (when (featurep 'mm-url)
   (let ((url-bounds (bounds-of-thing-at-point 'url)))
     (when url-bounds
       (let ((url (twittering-tinyurl-get (thing-at-point 'url))))
 	(when url
 	  (save-restriction
 	    (narrow-to-region (car url-bounds) (cdr url-bounds))
 	    (delete-region (point-min) (point-max))
-	    (insert url)))))))
+	    (insert url))))))))
 
 ;;;
 ;;; Commands