From 3c3979f1592a634a9d9eed407e83d3f9b634c6c2 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 7 Sep 2004 03:47:46 +0000 Subject: [PATCH] (message-tokenize-header, message-send-mail-with-qmail): Use point-min rather than 1. (message-send-mail): Use buffer-size rather than point-max. --- lisp/gnus/message.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index bd98cf0eac8..0e74da73b7d 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -1588,7 +1588,7 @@ is used by default." (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 @@ It should typically alter the sending method in some way or other." "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 @@ to find out how to use this." (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. -- 2.39.2