(defun post-faq ()
  (interactive)
  (let ((dirname  "~/www/skateweb/faq"))
    (post-faq-1 dirname "introduction")
    (post-faq-1 dirname "rules")
    (post-faq-1 dirname "technical")
    (post-faq-1 dirname "people")
    (post-faq-1 dirname "references")
    ))

(defun post-faq-1 (dirname partname)
  (gnus-group-post-news)
  (kill-region (point-min) (point-max))
  (insert (shell-command-to-string
	   (format "%s/update-header %s/%s.header" dirname dirname partname)))
  (insert (shell-command-to-string
	   (format "html2text -linelen=75 <%s/%s.shtml" dirname partname)))
  (message-send-and-exit)
  )