6364 |
(replace-match "X-From-Line: ")) |
(replace-match "X-From-Line: ")) |
6365 |
;; Send it. |
;; Send it. |
6366 |
(let ((message-inhibit-body-encoding t) |
(let ((message-inhibit-body-encoding t) |
6367 |
message-required-mail-headers) |
message-required-mail-headers |
6368 |
|
rfc2047-encode-encoded-words) |
6369 |
(message-send-mail)) |
(message-send-mail)) |
6370 |
(kill-buffer (current-buffer))) |
(kill-buffer (current-buffer))) |
6371 |
(message "Resending message to %s...done" address))) |
(message "Resending message to %s...done" address))) |