# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1094528866 0
# Node ID a1a3a7ab3badd344ac0a39d633c7faddc9fb1bd4
# Parent  d7605794bc2b7306e394a2c00f7d671b47d740ec
(message-tokenize-header, message-send-mail-with-qmail):
Use point-min rather than 1.
(message-send-mail): Use buffer-size rather than point-max.

diff -r d7605794bc2b -r a1a3a7ab3bad lisp/gnus/message.el
--- 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.