Mercurial > emacs
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) |