Commit db1d3cf7 authored by Karl Heuer's avatar Karl Heuer
Browse files

Fix rmail summary commands to work with rmail-mail-new-frame.

parent 345a94f9
...@@ -973,7 +973,7 @@ Completion is performed over known labels when reading." ...@@ -973,7 +973,7 @@ Completion is performed over known labels when reading."
While composing the message, use \\[mail-yank-original] to yank the While composing the message, use \\[mail-yank-original] to yank the
original message into it." original message into it."
(interactive) (interactive)
(mail-other-window nil nil nil nil nil rmail-buffer) (rmail-start-mail nil nil nil nil nil rmail-buffer)
(use-local-map (copy-keymap (current-local-map))) (use-local-map (copy-keymap (current-local-map)))
(define-key (current-local-map) (define-key (current-local-map)
"\C-c\C-c" 'rmail-summary-send-and-exit)) "\C-c\C-c" 'rmail-summary-send-and-exit))
...@@ -981,39 +981,30 @@ original message into it." ...@@ -981,39 +981,30 @@ original message into it."
(defun rmail-summary-continue () (defun rmail-summary-continue ()
"Continue composing outgoing message previously being composed." "Continue composing outgoing message previously being composed."
(interactive) (interactive)
(mail-other-window t)) (rmail-start-mail t))
(defun rmail-summary-reply (just-sender) (defun rmail-summary-reply (just-sender)
"Reply to the current message. "Reply to the current message.
Normally include CC: to all other recipients of original message; Normally include CC: to all other recipients of original message;
prefix argument means ignore them. prefix argument means ignore them. While composing the reply,
While composing the reply, use \\[mail-yank-original] to yank the use \\[mail-yank-original] to yank the original message into it."
original message into it."
(interactive "P") (interactive "P")
(let (mailbuf) (set-buffer rmail-buffer)
(save-window-excursion (rmail-reply just-sender)
(set-buffer rmail-buffer) (use-local-map (copy-keymap (current-local-map)))
(rmail-reply just-sender) (define-key (current-local-map)
(setq mailbuf (current-buffer))) "\C-c\C-c" 'rmail-summary-send-and-exit))
(pop-to-buffer mailbuf)
(use-local-map (copy-keymap (current-local-map)))
(define-key (current-local-map)
"\C-c\C-c" 'rmail-summary-send-and-exit)))
(defun rmail-summary-retry-failure () (defun rmail-summary-retry-failure ()
"Edit a mail message which is based on the contents of the current message. "Edit a mail message which is based on the contents of the current message.
For a message rejected by the mail system, extract the interesting headers and For a message rejected by the mail system, extract the interesting headers and
the body of the original message; otherwise copy the current message." the body of the original message; otherwise copy the current message."
(interactive) (interactive)
(let (mailbuf) (set-buffer rmail-buffer)
(save-window-excursion (rmail-retry-failure)
(set-buffer rmail-buffer) (use-local-map (copy-keymap (current-local-map)))
(rmail-retry-failure) (define-key (current-local-map)
(setq mailbuf (current-buffer))) "\C-c\C-c" 'rmail-summary-send-and-exit))
(pop-to-buffer mailbuf)
(use-local-map (copy-keymap (current-local-map)))
(define-key (current-local-map)
"\C-c\C-c" 'rmail-summary-send-and-exit)))
(defun rmail-summary-send-and-exit () (defun rmail-summary-send-and-exit ()
"Send mail reply and return to summary buffer." "Send mail reply and return to summary buffer."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment