Mercurial > emacs
comparison lisp/mail/rmail.el @ 4969:af6f961194ce
(rmail-start-mail): Don't do other frame unless we have
a window system, irregardless of the state of rmail-mail-new-frame.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 10 Nov 1993 20:51:02 +0000 |
| parents | 25d94807689e |
| children | 1ada11e2d89a |
comparison
equal
deleted
inserted
replaced
| 4968:1607732e7712 | 4969:af6f961194ce |
|---|---|
| 1674 (rmail-update-summary)))) | 1674 (rmail-update-summary)))) |
| 1675 | 1675 |
| 1676 ;;;; *** Rmail Mailing Commands *** | 1676 ;;;; *** Rmail Mailing Commands *** |
| 1677 | 1677 |
| 1678 (defun rmail-start-mail (&rest args) | 1678 (defun rmail-start-mail (&rest args) |
| 1679 (if rmail-mail-new-frame | 1679 (if (and window-system rmail-mail-new-frame) |
| 1680 (prog1 | 1680 (prog1 |
| 1681 (apply 'mail-other-frame args) | 1681 (apply 'mail-other-frame args) |
| 1682 (modify-frame-parameters (selected-frame) | 1682 (modify-frame-parameters (selected-frame) |
| 1683 '((dedicated . t)))) | 1683 '((dedicated . t)))) |
| 1684 (apply 'mail-other-window args))) | 1684 (apply 'mail-other-window args))) |