naota

(defvar twinstall-curl-program (executable-find "curl"))
(defvar twinstall-hash-tags "#emacsjp #twinstall")
(defvar twinstall-should-tweet nil)
(defvar twinstall-url nil)

(defun twinstall-tweet-url (url)
  (let* ((name (file-name-nondirectory url))
	 (text (cond
		((string= (concat auto-install-emacswiki-base-url name) url)
		 (format "EmacsWikiから%sをインストールしました。 %s %s"