I don't need this emacs function anymore... but you might like it

Reloads safari from emacs... bind to C-cC-r in MMM or html mode.

(defun reload-safari ()
  (interactive)
  (shell-command "printf 'tell application \"System Events\"
click button \"Stop\" of first window of process \"Safari\"
end tell' | osascript" nil nil))