1588 |
(if (not header) |
(if (not header) |
1589 |
nil |
nil |
1590 |
(let ((regexp (format "[%s]+" (or separator ","))) |
(let ((regexp (format "[%s]+" (or separator ","))) |
1591 |
(beg 1) |
(beg (point-min)) |
1592 |
(first t) |
(first t) |
1593 |
quoted elems paren) |
quoted elems paren) |
1594 |
(with-temp-buffer |
(with-temp-buffer |
3722 |
"content-transfer-encoding"))))))) |
"content-transfer-encoding"))))))) |
3723 |
(message-insert-courtesy-copy)) |
(message-insert-courtesy-copy)) |
3724 |
(if (or (not message-send-mail-partially-limit) |
(if (or (not message-send-mail-partially-limit) |
3725 |
(< (point-max) message-send-mail-partially-limit) |
(< (buffer-size) message-send-mail-partially-limit) |
3726 |
(not (message-y-or-n-p |
(not (message-y-or-n-p |
3727 |
"The message size is too large, split? " |
"The message size is too large, split? " |
3728 |
t |
t |
3729 |
"\ |
"\ |
3730 |
The message size, " |
The message size, " |
3731 |
(/ (point-max) 1000) "KB, is too large. |
(/ (buffer-size) 1000) "KB, is too large. |
3732 |
|
|
3733 |
Some mail gateways (MTA's) bounce large messages. To avoid the |
Some mail gateways (MTA's) bounce large messages. To avoid the |
3734 |
problem, answer `y', and the message will be split into several |
problem, answer `y', and the message will be split into several |
3839 |
(case |
(case |
3840 |
(let ((coding-system-for-write message-send-coding-system)) |
(let ((coding-system-for-write message-send-coding-system)) |
3841 |
(apply |
(apply |
3842 |
'call-process-region 1 (point-max) message-qmail-inject-program |
'call-process-region (point-min) (point-max) |
3843 |
nil nil nil |
message-qmail-inject-program nil nil nil |
3844 |
;; qmail-inject's default behaviour is to look for addresses on the |
;; qmail-inject's default behaviour is to look for addresses on the |
3845 |
;; command line; if there're none, it scans the headers. |
;; command line; if there're none, it scans the headers. |
3846 |
;; yes, it does The Right Thing w.r.t. Resent-To and it's kin. |
;; yes, it does The Right Thing w.r.t. Resent-To and it's kin. |