Mercurial > emacs
comparison lisp/obsolete/rnewspost.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | 253f761ad37b |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 219 (setq mail-reply-buffer replybuffer) | 219 (setq mail-reply-buffer replybuffer) |
| 220 (let ((mail-setup-hook nil) | 220 (let ((mail-setup-hook nil) |
| 221 ;; Avoid inserting a signature. | 221 ;; Avoid inserting a signature. |
| 222 (mail-signature)) | 222 (mail-signature)) |
| 223 (if (null to) | 223 (if (null to) |
| 224 ;; this hack is needed so that inews wont be confused by | 224 ;; this hack is needed so that inews wont be confused by |
| 225 ;; the fcc: and bcc: fields | 225 ;; the fcc: and bcc: fields |
| 226 (let ((mail-self-blind nil) | 226 (let ((mail-self-blind nil) |
| 227 (mail-archive-file-name nil)) | 227 (mail-archive-file-name nil)) |
| 228 (mail-setup to subject in-reply-to nil replybuffer nil) | 228 (mail-setup to subject in-reply-to nil replybuffer nil) |
| 229 (beginning-of-line) | 229 (beginning-of-line) |
| 248 (setq paragraph-start | 248 (setq paragraph-start |
| 249 (concat "^" actual-header-separator "$\\|" paragraph-start)) | 249 (concat "^" actual-header-separator "$\\|" paragraph-start)) |
| 250 (setq paragraph-separate | 250 (setq paragraph-separate |
| 251 (concat "^" actual-header-separator "$\\|" paragraph-separate))) | 251 (concat "^" actual-header-separator "$\\|" paragraph-separate))) |
| 252 (run-hooks 'news-setup-hook))) | 252 (run-hooks 'news-setup-hook))) |
| 253 | 253 |
| 254 (defun news-inews () | 254 (defun news-inews () |
| 255 "Send a news message using inews." | 255 "Send a news message using inews." |
| 256 (interactive) | 256 (interactive) |
| 257 (let* (newsgroups subject | 257 (let* (newsgroups subject |
| 258 (case-fold-search nil)) | 258 (case-fold-search nil)) |
| 269 ;; require a newline at the end for inews to append .signature to | 269 ;; require a newline at the end for inews to append .signature to |
| 270 (or (= (preceding-char) ?\n) | 270 (or (= (preceding-char) ?\n) |
| 271 (insert ?\n)) | 271 (insert ?\n)) |
| 272 (message "Posting to USENET...") | 272 (message "Posting to USENET...") |
| 273 (unwind-protect | 273 (unwind-protect |
| 274 (if (not (eq 0 | 274 (if (not (eq 0 |
| 275 (call-process-region (point-min) (point-max) | 275 (call-process-region (point-min) (point-max) |
| 276 news-inews-program nil 0 nil | 276 news-inews-program nil 0 nil |
| 277 "-h"))) ; take all header lines! | 277 "-h"))) ; take all header lines! |
| 278 ;@@ setting of subject and newsgroups still needed? | 278 ;@@ setting of subject and newsgroups still needed? |
| 279 ;"-t" subject | 279 ;"-t" subject |
| 280 ;"-n" newsgroups | 280 ;"-n" newsgroups |