# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 729060983 0
# Node ID 2d5caf3fd862af54a8bf0a784b6c63adc4886e55
# Parent  2cc82d6070e24a101488c099229c1cd829e1b5cd
(mail-setup): Use fill-region-as-paragraph
for To field; handle the CC just like the To.

diff -r 2cc82d6070e2 -r 2d5caf3fd862 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Sun Feb 07 00:31:58 1993 +0000
+++ b/lisp/mail/sendmail.el	Sun Feb 07 04:56:23 1993 +0000
@@ -120,19 +120,19 @@
   (insert "To: ")
   (save-excursion
     (if to
-	(progn
+	;; Here removed code to extract names from within <...>
+	;; on the assumption that mail-strip-quoted-names
+	;; has been called and has done so.
+	(let ((fill-prefix "\t")
+	      (address-start (point)))
 	  (insert to "\n")
-	  ;;; Here removed code to extract names from within <...>
-	  ;;; on the assumption that mail-strip-quoted-names
-	  ;;; has been called and has done so.
-	  (let ((fill-prefix "\t"))
-	    (fill-region (point-min) (point-max))))
+	  (fill-region-as-paragraph address-start (point-max)))
       (newline))
     (if cc
-	(let ((opos (point))
-	      (fill-prefix "\t"))
-	  (insert "CC: " cc "\n")
-	  (fill-region-as-paragraph opos (point-max))))
+	(let ((fill-prefix "\t")
+	      (address-start (progn (insert "CC: ") (point))))
+	  (insert cc "\n")
+	  (fill-region-as-paragraph address-start (point-max))))
     (if in-reply-to
 	(insert "In-reply-to: " in-reply-to "\n"))
     (insert "Subject: " (or subject "") "\n")