comparison lisp/mail/sendmail.el @ 8145:d94fc60e4195

Comment out losing call to set-visited-file-name; this shouldn't hurt as long as nobody actually calls buffers `*mail*'. (This isn't a real fix.) set-visited-file-name fails when given a nil argument.
author Michael I. Bushnell <mib@gnu.org>
date Tue, 05 Jul 1994 16:54:01 +0000
parents 41071c0159f8
children 1f1387385ac6
comparison
equal deleted inserted replaced
8144:41071c0159f8 8145:d94fc60e4195
831 (setq default-directory (expand-file-name "~/"))) 831 (setq default-directory (expand-file-name "~/")))
832 (auto-save-mode auto-save-default) 832 (auto-save-mode auto-save-default)
833 (mail-mode) 833 (mail-mode)
834 ;; Disconnect the buffer from its visited file 834 ;; Disconnect the buffer from its visited file
835 ;; (in case the user has actually visited a file *mail*). 835 ;; (in case the user has actually visited a file *mail*).
836 (set-visited-file-name nil) 836 ; (set-visited-file-name nil)
837 (let (initialized) 837 (let (initialized)
838 (and (not noerase) 838 (and (not noerase)
839 (or (not (buffer-modified-p)) 839 (or (not (buffer-modified-p))
840 (y-or-n-p "Unsent message being composed; erase it? ")) 840 (y-or-n-p "Unsent message being composed; erase it? "))
841 (progn (erase-buffer) 841 (progn (erase-buffer)