Mercurial > emacs
comparison lisp/mail/uce.el @ 21918:2abd8542d6dd
(uce-reply-to-uce): Use mail-sendmail-delimit-header.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 03 May 1998 04:32:41 +0000 |
parents | 54413501e4a9 |
children | a517da228cb9 |
comparison
equal
deleted
inserted
replaced
21917:ff6a09ae9530 | 21918:2abd8542d6dd |
---|---|
272 (if uce-default-headers | 272 (if uce-default-headers |
273 (insert uce-default-headers)) | 273 (insert uce-default-headers)) |
274 (if mail-default-headers | 274 (if mail-default-headers |
275 (insert mail-default-headers)) | 275 (insert mail-default-headers)) |
276 (if mail-default-reply-to | 276 (if mail-default-reply-to |
277 (insert "Reply-to: " mail-default-reply-to "\n")) | 277 (insert "Reply-to: " mail-default-reply-to "\n\n")) |
278 (insert mail-header-separator "\n") | 278 (mail-sendmail-delimit-header) |
279 ;; Insert all our text. Then go back to the place where we started. | 279 ;; Insert all our text. Then go back to the place where we started. |
280 (if to (setq to (point))) | 280 (if to (setq to (point))) |
281 ;; Text of ranting. | 281 ;; Text of ranting. |
282 (if uce-message-text | 282 (if uce-message-text |
283 (insert uce-message-text)) | 283 (insert uce-message-text)) |