Mercurial > emacs
changeset 56947:a1a3a7ab3bad
(message-tokenize-header, message-send-mail-with-qmail):
Use point-min rather than 1.
(message-send-mail): Use buffer-size rather than point-max.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 07 Sep 2004 03:47:46 +0000 |
| parents | d7605794bc2b |
| children | f6f74981c4b0 |
| files | lisp/gnus/message.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/message.el Tue Sep 07 03:47:37 2004 +0000 +++ b/lisp/gnus/message.el Tue Sep 07 03:47:46 2004 +0000 @@ -1588,7 +1588,7 @@ (if (not header) nil (let ((regexp (format "[%s]+" (or separator ","))) - (beg 1) + (beg (point-min)) (first t) quoted elems paren) (with-temp-buffer @@ -3722,13 +3722,13 @@ "content-transfer-encoding"))))))) (message-insert-courtesy-copy)) (if (or (not message-send-mail-partially-limit) - (< (point-max) message-send-mail-partially-limit) + (< (buffer-size) message-send-mail-partially-limit) (not (message-y-or-n-p "The message size is too large, split? " t "\ The message size, " - (/ (point-max) 1000) "KB, is too large. + (/ (buffer-size) 1000) "KB, is too large. Some mail gateways (MTA's) bounce large messages. To avoid the problem, answer `y', and the message will be split into several @@ -3839,8 +3839,8 @@ (case (let ((coding-system-for-write message-send-coding-system)) (apply - 'call-process-region 1 (point-max) message-qmail-inject-program - nil nil nil + 'call-process-region (point-min) (point-max) + message-qmail-inject-program nil nil nil ;; qmail-inject's default behaviour is to look for addresses on the ;; command line; if there're none, it scans the headers. ;; yes, it does The Right Thing w.r.t. Resent-To and it's kin.