changeset 1843:2d5caf3fd862

(mail-setup): Use fill-region-as-paragraph for To field; handle the CC just like the To.
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 Feb 1993 04:56:23 +0000
parents 2cc82d6070e2
children d48f094be56e
files lisp/mail/sendmail.el
diffstat 1 files changed, 10 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- 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")