Insert new rpm-style changelog entry

(defun new-changelog-entry ()
  (interactive)
  (let ((line-len 67)
        (date (substring (shell-command-to-string "LC_ALL=C date -u") 0 -1))
        ;; (email user-mail-address) probably wrong
        (email (concat user-real-login-name "@suse.com"))
        (final-pos))
    (goto-char (point-min))
    (insert (make-string line-len ?-) "\n"
            date " - " email "\n\n"
            " - ")
    (setq final-pos (point))
    (insert "\n\n")
    (goto-char final-pos)))