Mercurial > emacs
comparison lisp/simple.el @ 66967:151367ca2353
* simple.el (sendmail-user-agent-compose): Use hard-newline.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Thu, 17 Nov 2005 18:18:33 +0000 |
parents | 1bca10e9d192 |
children | 7db78a409419 |
comparison
equal
deleted
inserted
replaced
66966:477d7ac04b7b | 66967:151367ca2353 |
---|---|
4504 (rfc822-goto-eoh) | 4504 (rfc822-goto-eoh) |
4505 (while other-headers | 4505 (while other-headers |
4506 (unless (member-ignore-case (car (car other-headers)) | 4506 (unless (member-ignore-case (car (car other-headers)) |
4507 '("in-reply-to" "cc" "body")) | 4507 '("in-reply-to" "cc" "body")) |
4508 (insert (car (car other-headers)) ": " | 4508 (insert (car (car other-headers)) ": " |
4509 (cdr (car other-headers)) "\n")) | 4509 (cdr (car other-headers)) hard-newline)) |
4510 (setq other-headers (cdr other-headers))) | 4510 (setq other-headers (cdr other-headers))) |
4511 (when body | 4511 (when body |
4512 (forward-line 1) | 4512 (forward-line 1) |
4513 (insert body)) | 4513 (insert body)) |
4514 t))) | 4514 t))) |