Mercurial > emacs
comparison lisp/mail/sendmail.el @ 18871:32c4a961d11f
(mail): Ask a different question, if buffer is visiting a file.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 19 Jul 1997 08:15:46 +0000 |
| parents | d86beb823996 |
| children | e8c770e7f81d |
comparison
equal
deleted
inserted
replaced
| 18870:d86beb823996 | 18871:32c4a961d11f |
|---|---|
| 1239 ;; (in case the user has actually visited a file *mail*). | 1239 ;; (in case the user has actually visited a file *mail*). |
| 1240 ; (set-visited-file-name nil) | 1240 ; (set-visited-file-name nil) |
| 1241 (let (initialized) | 1241 (let (initialized) |
| 1242 (and (not noerase) | 1242 (and (not noerase) |
| 1243 (or (not (buffer-modified-p)) | 1243 (or (not (buffer-modified-p)) |
| 1244 (y-or-n-p "Unsent message being composed; erase it? ")) | 1244 (if buffer-file-name |
| 1245 (y-or-n-p "Buffer is modified; erase it and reinitialize? ") | |
| 1246 (y-or-n-p "Unsent message being composed; erase it? "))) | |
| 1245 (let ((inhibit-read-only t)) | 1247 (let ((inhibit-read-only t)) |
| 1246 (erase-buffer) | 1248 (erase-buffer) |
| 1247 (mail-setup to subject in-reply-to cc replybuffer actions) | 1249 (mail-setup to subject in-reply-to cc replybuffer actions) |
| 1248 (setq initialized t))) | 1250 (setq initialized t))) |
| 1249 (if (and buffer-auto-save-file-name | 1251 (if (and buffer-auto-save-file-name |