post.el

(defun post-on-region () 
  (interactive) 
  (let ((str (buffer-substring (region-beginning) (region-end))))
     (keyboard-escape-quit)
     (if (y-or-n-p "Post?")
       (start-process "ttytter" "*post*" "ttytter" "-silent" "-ssl" "-keyf=mnbn" "-autosplit=cut"  (concat "-status=" str))
       nil
     )
  )
)