(defun insert-modification-time ()
(interactive "*")
(if buffer-file-name
(insert
(format-time-string
"%Y%m%d-%H%M"
(nth 5 (file-attributes buffer-file-name))))
(message "No file associated with buffer.")))
--
Deniz Dogan