(add-hook 'find-file-hook 'd-howto-hook)

(defun d-howto-hook ()
  (if (and (buffer-file-name) (string-match "\\.howto$" (buffer-file-name)))
      (setq fill-column 31)))

(provide 'd-howto)
;;; d-howto.el ends here
