Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 5709:85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 31 Jan 1994 07:05:45 +0000 |
parents | 3824222fed2e |
children | 882894a8c217 |
comparison
equal
deleted
inserted
replaced
5708:4870efc489ea | 5709:85119c3098a0 |
---|---|
971 (defun rmail-summary-mail () | 971 (defun rmail-summary-mail () |
972 "Send mail in another window. | 972 "Send mail in another window. |
973 While composing the message, use \\[mail-yank-original] to yank the | 973 While composing the message, use \\[mail-yank-original] to yank the |
974 original message into it." | 974 original message into it." |
975 (interactive) | 975 (interactive) |
976 (mail-other-window nil nil nil nil nil rmail-buffer) | 976 (rmail-start-mail nil nil nil nil nil rmail-buffer) |
977 (use-local-map (copy-keymap (current-local-map))) | 977 (use-local-map (copy-keymap (current-local-map))) |
978 (define-key (current-local-map) | 978 (define-key (current-local-map) |
979 "\C-c\C-c" 'rmail-summary-send-and-exit)) | 979 "\C-c\C-c" 'rmail-summary-send-and-exit)) |
980 | 980 |
981 (defun rmail-summary-continue () | 981 (defun rmail-summary-continue () |
982 "Continue composing outgoing message previously being composed." | 982 "Continue composing outgoing message previously being composed." |
983 (interactive) | 983 (interactive) |
984 (mail-other-window t)) | 984 (rmail-start-mail t)) |
985 | 985 |
986 (defun rmail-summary-reply (just-sender) | 986 (defun rmail-summary-reply (just-sender) |
987 "Reply to the current message. | 987 "Reply to the current message. |
988 Normally include CC: to all other recipients of original message; | 988 Normally include CC: to all other recipients of original message; |
989 prefix argument means ignore them. | 989 prefix argument means ignore them. While composing the reply, |
990 While composing the reply, use \\[mail-yank-original] to yank the | 990 use \\[mail-yank-original] to yank the original message into it." |
991 original message into it." | 991 (interactive "P") |
992 (interactive "P") | 992 (set-buffer rmail-buffer) |
993 (let (mailbuf) | 993 (rmail-reply just-sender) |
994 (save-window-excursion | 994 (use-local-map (copy-keymap (current-local-map))) |
995 (set-buffer rmail-buffer) | 995 (define-key (current-local-map) |
996 (rmail-reply just-sender) | 996 "\C-c\C-c" 'rmail-summary-send-and-exit)) |
997 (setq mailbuf (current-buffer))) | |
998 (pop-to-buffer mailbuf) | |
999 (use-local-map (copy-keymap (current-local-map))) | |
1000 (define-key (current-local-map) | |
1001 "\C-c\C-c" 'rmail-summary-send-and-exit))) | |
1002 | 997 |
1003 (defun rmail-summary-retry-failure () | 998 (defun rmail-summary-retry-failure () |
1004 "Edit a mail message which is based on the contents of the current message. | 999 "Edit a mail message which is based on the contents of the current message. |
1005 For a message rejected by the mail system, extract the interesting headers and | 1000 For a message rejected by the mail system, extract the interesting headers and |
1006 the body of the original message; otherwise copy the current message." | 1001 the body of the original message; otherwise copy the current message." |
1007 (interactive) | 1002 (interactive) |
1008 (let (mailbuf) | 1003 (set-buffer rmail-buffer) |
1009 (save-window-excursion | 1004 (rmail-retry-failure) |
1010 (set-buffer rmail-buffer) | 1005 (use-local-map (copy-keymap (current-local-map))) |
1011 (rmail-retry-failure) | 1006 (define-key (current-local-map) |
1012 (setq mailbuf (current-buffer))) | 1007 "\C-c\C-c" 'rmail-summary-send-and-exit)) |
1013 (pop-to-buffer mailbuf) | |
1014 (use-local-map (copy-keymap (current-local-map))) | |
1015 (define-key (current-local-map) | |
1016 "\C-c\C-c" 'rmail-summary-send-and-exit))) | |
1017 | 1008 |
1018 (defun rmail-summary-send-and-exit () | 1009 (defun rmail-summary-send-and-exit () |
1019 "Send mail reply and return to summary buffer." | 1010 "Send mail reply and return to summary buffer." |
1020 (interactive) | 1011 (interactive) |
1021 (mail-send-and-exit t)) | 1012 (mail-send-and-exit t)) |