4444 |
(let ((cc (cdr (assoc-string "cc" other-headers t))) |
(let ((cc (cdr (assoc-string "cc" other-headers t))) |
4445 |
(in-reply-to (cdr (assoc-string "in-reply-to" other-headers t))) |
(in-reply-to (cdr (assoc-string "in-reply-to" other-headers t))) |
4446 |
(body (cdr (assoc-string "body" other-headers t)))) |
(body (cdr (assoc-string "body" other-headers t)))) |
4447 |
(mail (if continue t 'new) |
(or (mail continue to subject in-reply-to cc yank-action send-actions) |
4448 |
to subject in-reply-to cc yank-action send-actions) |
continue |
4449 |
|
(error "Message aborted")) |
4450 |
(save-excursion |
(save-excursion |
4451 |
(rfc822-goto-eoh) |
(rfc822-goto-eoh) |
4452 |
(while other-headers |
(while other-headers |