(if (not clean-message-header)
(mh-start-of-uncleaned-message)))
(mh-display-msg msg folder)))
- (unless (if (fboundp 'window-full-height-p)
- (window-full-height-p)
- (= (1+ (window-height)) (frame-height))) ; not vertically split
+ (unless (mh-window-full-height-p) ; not vertically split
(shrink-window (- (window-height) (or mh-summary-height
(mh-summary-height)))))
(mh-recenter nil)
"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; flush changes? "
+ (yes-or-no-p (format "Message %s modified; discard changes? "
(file-name-nondirectory buffer-file-name)))
- (error "Flushing changes not confirmed"))
+ (error "Changes preserved"))
(clear-visited-file-modtime)
(unlock-buffer)
(setq buffer-file-name nil))