Mercurial > emacs

comparison lisp/mail/sendmail.el @ 23382:55b2ea28932a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Comment fix.
author Karl Heuer <kwzh@gnu.org>
date Tue, 06 Oct 1998 23:22:48 +0000
parents baea0ab6d015
children 6b883bd6398d
comparison
equal deleted inserted replaced
23381:4f20b9ddbea6 23382:55b2ea28932a
699 (apply (car (car mail-send-actions)) 699 (apply (car (car mail-send-actions))
700 (cdr (car mail-send-actions))) 700 (cdr (car mail-send-actions)))
701 (error)) 701 (error))
702 (setq mail-send-actions (cdr mail-send-actions))) 702 (setq mail-send-actions (cdr mail-send-actions)))
703 (message "Sending...done") 703 (message "Sending...done")
704 ;; If buffer has no file, mark it as unmodified and delete autosave. 704 ;; If buffer has no file, mark it as unmodified and delete auto-save.
705 (if (not buffer-file-name) 705 (if (not buffer-file-name)
706 (progn 706 (progn
707 (set-buffer-modified-p nil) 707 (set-buffer-modified-p nil)
708 (delete-auto-save-file-if-necessary t)))))) 708 (delete-auto-save-file-if-necessary t))))))
709 709