Fix sml/get-directory.

Remove the assumption that default-directory is always the parent
of (buffer-file-name) but use (file-name-directory BFN) instead.  For
example, that assumption was wrong in Gnus draft mail buffers.