Mercurial > emacs
comparison lisp/mail/sendmail.el @ 105372:bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 02 Oct 2009 03:48:36 +0000 |
| parents | f0794252d960 |
| children | db5e4a5897ec |
comparison
equal
deleted
inserted
replaced
| 105371:0769a73f1d18 | 105372:bd2966850aac |
|---|---|
| 1435 (interactive "*P") | 1435 (interactive "*P") |
| 1436 ;; Test for an unreadable file here, before we delete trailing | 1436 ;; Test for an unreadable file here, before we delete trailing |
| 1437 ;; whitespace, so that we don't modify the buffer needlessly. | 1437 ;; whitespace, so that we don't modify the buffer needlessly. |
| 1438 (if (and (memq mail-signature '(t nil)) | 1438 (if (and (memq mail-signature '(t nil)) |
| 1439 (not (file-readable-p mail-signature-file))) | 1439 (not (file-readable-p mail-signature-file))) |
| 1440 (if (interactive-p) | 1440 (if (called-interactively-p 'interactive) |
| 1441 (message "The signature file `%s' could not be read" | 1441 (message "The signature file `%s' could not be read" |
| 1442 mail-signature-file)) | 1442 mail-signature-file)) |
| 1443 (save-excursion | 1443 (save-excursion |
| 1444 (unless atpoint | 1444 (unless atpoint |
| 1445 (goto-char (point-max)) | 1445 (goto-char (point-max)) |