(defvar growl-program "growlnotify")
(defvar growl-notify-icon (concat data-directory "images/icons/hicolor/128x128/apps/emacs.png"))
(defvar growl-notify-application-name "Emacs")
(defun growl-notify (title message)
(interactive)
(call-process growl-program nil 0 nil
"/r:\"General Notification\""
(concat "/a:" (shell-quote-argument growl-notify-application-name))
(concat "/ai:" (shell-quote-argument growl-notify-icon))
(concat "/t:" (shell-quote-argument
(encode-coding-string title 'shift_jis)))
(encode-coding-string message 'shift_jis)))
実行例
(growl-notify "あいうえお" "こんにちは")
