Function: mh-unvisit-file

mh-unvisit-file is a byte-compiled function defined in mh-show.el.gz.

Signature

(mh-unvisit-file)

Documentation

Separate current buffer from the message file it was visiting.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-show.el.gz
(defun mh-unvisit-file ()
  "Separate current buffer from the message file it was visiting."
  (or (not (buffer-modified-p))
      (null buffer-file-name)           ;we've been here before
      (yes-or-no-p (format "Message %s modified; discard changes? "
                           (file-name-nondirectory buffer-file-name)))
      (error "Changes preserved"))
  (clear-visited-file-modtime)
  (unlock-buffer)
  (setq buffer-file-name nil))