Mercurial > emacs
comparison lisp/mail/rnewspost.el @ 11762:329197fc1477
(news-setup): Bind mail-signature to nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 09 May 1995 00:49:04 +0000 |
| parents | 933af8a2afea |
| children | 4b5452f8ad12 |
comparison
equal
deleted
inserted
replaced
| 11761:d110042c1d95 | 11762:329197fc1477 |
|---|---|
| 215 (interactive) | 215 (interactive) |
| 216 (expand-abbrev) | 216 (expand-abbrev) |
| 217 (mail-position-on-field "Summary")) | 217 (mail-position-on-field "Summary")) |
| 218 | 218 |
| 219 (defun news-reply-signature () | 219 (defun news-reply-signature () |
| 220 "The inews program appends ~/.signature automatically." | 220 "The inews program appends `~/.signature' automatically." |
| 221 (interactive) | 221 (interactive) |
| 222 (message "~/.signature will be appended automatically.")) | 222 (message "`~/.signature' will be appended automatically.")) |
| 223 | 223 |
| 224 (defun news-setup (to subject in-reply-to newsgroups replybuffer) | 224 (defun news-setup (to subject in-reply-to newsgroups replybuffer) |
| 225 "Set up the news reply or posting buffer with the proper headers and mode." | 225 "Set up the news reply or posting buffer with the proper headers and mode." |
| 226 (setq mail-reply-buffer replybuffer) | 226 (setq mail-reply-buffer replybuffer) |
| 227 (let ((mail-setup-hook nil)) | 227 (let ((mail-setup-hook nil) |
| 228 ;; Avoid inserting a signature. | |
| 229 (mail-signature)) | |
| 228 (if (null to) | 230 (if (null to) |
| 229 ;; this hack is needed so that inews wont be confused by | 231 ;; this hack is needed so that inews wont be confused by |
| 230 ;; the fcc: and bcc: fields | 232 ;; the fcc: and bcc: fields |
| 231 (let ((mail-self-blind nil) | 233 (let ((mail-self-blind nil) |
| 232 (mail-archive-file-name nil)) | 234 (mail-archive-file-name nil)) |