Mercurial > emacs
comparison lisp/mail/rnewspost.el @ 1033:230459774744
entered into RCS
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 25 Aug 1992 01:57:37 +0000 |
| parents | 20674ae6bf52 |
| children | 323dc8f5028a |
comparison
equal
deleted
inserted
replaced
| 1032:82e5f56edf0e | 1033:230459774744 |
|---|---|
| 201 ;; the fcc: and bcc: fields | 201 ;; the fcc: and bcc: fields |
| 202 (let ((mail-self-blind nil) | 202 (let ((mail-self-blind nil) |
| 203 (mail-archive-file-name nil)) | 203 (mail-archive-file-name nil)) |
| 204 (mail-setup to subject in-reply-to nil replybuffer nil) | 204 (mail-setup to subject in-reply-to nil replybuffer nil) |
| 205 (beginning-of-line) | 205 (beginning-of-line) |
| 206 (kill-line 1) | 206 (delete-region (point) (progn (forward-line 1) (point))) |
| 207 (goto-char (point-max))) | 207 (goto-char (point-max))) |
| 208 (mail-setup to subject in-reply-to nil replybuffer nil)) | 208 (mail-setup to subject in-reply-to nil replybuffer nil)) |
| 209 ;;;(mail-position-on-field "Posting-Front-End") | 209 ;;;(mail-position-on-field "Posting-Front-End") |
| 210 ;;;(insert (emacs-version)) | 210 ;;;(insert (emacs-version)) |
| 211 (goto-char (point-max)) | 211 (goto-char (point-max)) |