1 ;;; rnewspost.el --- USENET news poster/mailer for GNU Emacs
3 ;; Copyright (C) 1985, 1986, 1987, 1995 Free Software Foundation, Inc.
6 ;; Keywords: mail, news
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
26 ;; moved posting and mail code from rnews.el
27 ;; tower@prep.ai.mit.edu Wed Oct 29 1986
28 ;; brought posting code almost up to the revision of RFC 850 for News 2.11
29 ;; - couldn't see handling the special meaning of the Keyword: poster
30 ;; - not worth the code space to support the old A news Title: (which
31 ;; Subject: replaced) and Article-I.D.: (which Message-ID: replaced)
33 ;; changed C-c C-r key-binding due to rename of news-caesar-buffer-body
34 ;; tower@prep 21 Nov 86
35 ;; added (require 'rnews) tower@prep 22 Apr 87
36 ;; restricted call of news-show-all-headers in news-post-news & news-reply
37 ;; tower@prep 28 Apr 87
38 ;; commented out Posting-Front-End to save USENET bytes tower@prep Jul 31 87
39 ;; commented out -n and -t args in news-inews tower@prep 15 Oct 87
42 ;(defvar news-inews-program "inews"
43 ; "Function to post news.")
45 ;; Replying and posting news items are done by these functions.
46 ;; imported from rmail and modified to work with rnews ...
47 ;; Mon Mar 25,1985 at 03:07:04 ads@mit-hermes.
48 ;; this is done so that rnews can operate independently from rmail.el and
49 ;; sendmail and dosen't have to autoload these functions.
51 ;;; >> Nuked by Mly to autoload those functions again, as the duplication of
52 ;;; >> code was making maintenance too difficult.
59 (defvar news-reply-mode-map
() "Mode map used by news-reply.")
61 (or news-reply-mode-map
63 (setq news-reply-mode-map
(make-keymap))
64 (define-key news-reply-mode-map
"\C-c?" 'describe-mode
)
65 (define-key news-reply-mode-map
"\C-c\C-f\C-d" 'news-reply-distribution
)
66 (define-key news-reply-mode-map
"\C-c\C-f\C-k" 'news-reply-keywords
)
67 (define-key news-reply-mode-map
"\C-c\C-f\C-n" 'news-reply-newsgroups
)
68 (define-key news-reply-mode-map
"\C-c\C-f\C-f" 'news-reply-followup-to
)
69 (define-key news-reply-mode-map
"\C-c\C-f\C-s" 'mail-subject
)
70 (define-key news-reply-mode-map
"\C-c\C-f\C-a" 'news-reply-summary
)
71 (define-key news-reply-mode-map
"\C-c\C-t" 'mail-text
)
72 (define-key news-reply-mode-map
"\C-c\C-r" 'news-caesar-buffer-body
)
73 (define-key news-reply-mode-map
"\C-c\C-w" 'news-reply-signature
)
74 (define-key news-reply-mode-map
"\C-c\C-y" 'news-reply-yank-original
)
75 (define-key news-reply-mode-map
"\C-c\C-q" 'mail-fill-yanked-message
)
76 (define-key news-reply-mode-map
"\C-c\C-c" 'news-inews
)
77 (define-key news-reply-mode-map
"\C-c\C-s" 'news-inews
)
78 (define-key news-reply-mode-map
[menu-bar
] (make-sparse-keymap))
79 (define-key news-reply-mode-map
[menu-bar fields
]
80 (cons "Fields" (make-sparse-keymap "Fields")))
81 (define-key news-reply-mode-map
[menu-bar fields news-reply-distribution
]
82 '("Distribution" . news-reply-distribution
))
83 (define-key news-reply-mode-map
[menu-bar fields news-reply-keywords
]
84 '("Keywords" . news-reply-keywords
))
85 (define-key news-reply-mode-map
[menu-bar fields news-reply-newsgroups
]
86 '("Newsgroups" . news-reply-newsgroups
))
87 (define-key news-reply-mode-map
[menu-bar fields news-reply-followup-to
]
88 '("Followup-to" . news-reply-followup-to
))
89 (define-key news-reply-mode-map
[menu-bar fields mail-subject
]
90 '("Subject" . mail-subject
))
91 (define-key news-reply-mode-map
[menu-bar fields news-reply-summary
]
92 '("Summary" . news-reply-summary
))
93 (define-key news-reply-mode-map
[menu-bar fields mail-text
]
94 '("Text" . mail-text
))
95 (define-key news-reply-mode-map
[menu-bar news
]
96 (cons "News" (make-sparse-keymap "News")))
97 (define-key news-reply-mode-map
[menu-bar news news-caesar-buffer-body
]
98 '("Rot13" . news-caesar-buffer-body
))
99 (define-key news-reply-mode-map
[menu-bar news news-reply-signature
]
100 '("Signature" . news-reply-signature
))
101 (define-key news-reply-mode-map
[menu-bar news news-reply-yank-original
]
102 '("Yank Original" . news-reply-yank-original
))
103 (define-key news-reply-mode-map
[menu-bar news mail-fill-yanked-message
]
104 '("Fill Yanked Messages" . mail-fill-yanked-message
))
105 (define-key news-reply-mode-map
[menu-bar news news-inews
]
106 '("Send" . news-inews
))))
108 (defun news-reply-mode ()
109 "Major mode for editing news to be posted on USENET.
110 First-time posters are asked to please read the articles in newsgroup:
111 news.announce.newusers .
112 Like Text Mode but with these additional commands:
114 C-c C-s news-inews (post the message) C-c C-c news-inews
115 C-c C-f move to a header field (and create it if there isn't):
116 C-c C-f C-n move to Newsgroups: C-c C-f C-s move to Subj:
117 C-c C-f C-f move to Followup-To: C-c C-f C-k move to Keywords:
118 C-c C-f C-d move to Distribution: C-c C-f C-a move to Summary:
119 C-c C-y news-reply-yank-original (insert current message, in NEWS).
120 C-c C-q mail-fill-yanked-message (fill what was yanked).
121 C-c C-r caesar rotate all letters by 13 places in the article's body (rot13)."
124 (or (fboundp 'mail-setup
) (load "sendmail"))
125 (kill-all-local-variables)
126 (make-local-variable 'mail-reply-buffer
)
127 (setq mail-reply-buffer nil
)
128 (set-syntax-table text-mode-syntax-table
)
129 (use-local-map news-reply-mode-map
)
130 (setq local-abbrev-table text-mode-abbrev-table
)
131 (setq major-mode
'news-reply-mode
)
132 (setq mode-name
"News Reply")
133 (make-local-variable 'paragraph-separate
)
134 (make-local-variable 'paragraph-start
)
135 (setq paragraph-start
(concat mail-header-separator
"$\\|"
137 (setq paragraph-separate
(concat mail-header-separator
"$\\|"
139 (run-hooks 'text-mode-hook
'news-reply-mode-hook
))
141 (defvar news-reply-yank-from
142 "Save `From:' field for `news-reply-yank-original'."
145 (defvar news-reply-yank-message-id
146 "Save `Message-Id:' field for `news-reply-yank-original'."
149 (defun news-reply-yank-original (arg)
150 "Insert the message being replied to, if any (in Mail mode).
151 Puts point before the text and mark after.
152 Indents each nonblank line ARG spaces (default 3).
153 Just \\[universal-argument] as argument means don't indent
154 and don't delete any header fields."
156 (mail-yank-original arg
)
157 (exchange-point-and-mark)
158 (run-hooks 'news-reply-header-hook
))
160 (defvar news-reply-header-hook
162 (insert "In article " news-reply-yank-message-id
163 " " news-reply-yank-from
" writes:\n\n"))
164 "Hook for inserting a header at the top of a yanked message.")
166 (defun news-reply-newsgroups ()
167 "Move point to end of `Newsgroups:' field.
168 RFC 850 constrains the `Newsgroups:' field to be a comma-separated list
169 of valid newsgroup names at your site. For example,
170 Newsgroups: news.misc,comp.misc,rec.misc"
173 (goto-char (point-min))
174 (mail-position-on-field "Newsgroups"))
176 (defun news-reply-followup-to ()
177 "Move point to end of `Followup-To:' field. Create the field if none.
178 One usually requests followups to only one newsgroup.
179 RFC 850 constrains the `Followup-To:' field to be a comma-separated list
180 of valid newsgroups names at your site, and it must be a subset of the
181 `Newsgroups:' field. For example:
182 Newsgroups: news.misc,comp.misc,rec.misc,misc.misc,soc.misc
183 Followup-To: news.misc,comp.misc,rec.misc"
186 (or (mail-position-on-field "Followup-To" t
)
187 (progn (mail-position-on-field "newsgroups")
188 (insert "\nFollowup-To: ")))
189 ;; @@ could do a completing read based on the Newsgroups: field to
190 ;; @@ fill in the Followup-To: field
193 (defun news-reply-distribution ()
194 "Move point to end of `Distribution:' optional field.
195 Create the field if none. Without this field the posting goes to all of
196 USENET. The field is used to restrict the posting to parts of USENET."
199 (mail-position-on-field "Distribution")
200 ;; @@could do a completing read based on the news library file:
201 ;; @@ ../distributions to fill in the field.
204 (defun news-reply-keywords ()
205 "Move point to end of `Keywords:' optional field. Create the field if none.
206 Used as an aid to the news reader, it can contain a few, well selected keywords
207 identifying the message."
210 (mail-position-on-field "Keywords"))
212 (defun news-reply-summary ()
213 "Move point to end of `Summary:' optional field. Create the field if none.
214 Used as an aid to the news reader, it can contain a succinct
215 summary (abstract) of the message."
218 (mail-position-on-field "Summary"))
220 (defun news-reply-signature ()
221 "The inews program appends ~/.signature automatically."
223 (message "~/.signature will be appended automatically."))
225 (defun news-setup (to subject in-reply-to newsgroups replybuffer
)
226 "Set up the news reply or posting buffer with the proper headers and mode."
227 (setq mail-reply-buffer replybuffer
)
228 (let ((mail-setup-hook nil
))
230 ;; this hack is needed so that inews wont be confused by
231 ;; the fcc: and bcc: fields
232 (let ((mail-self-blind nil
)
233 (mail-archive-file-name nil
))
234 (mail-setup to subject in-reply-to nil replybuffer nil
)
236 (delete-region (point) (progn (forward-line 1) (point)))
237 (goto-char (point-max)))
238 (mail-setup to subject in-reply-to nil replybuffer nil
))
239 ;;;(mail-position-on-field "Posting-Front-End")
240 ;;;(insert (emacs-version))
241 (goto-char (point-max))
242 (if (let ((case-fold-search t
))
243 (re-search-backward "^Subject:" (point-min) t
))
244 (progn (beginning-of-line)
245 (insert "Newsgroups: " (or newsgroups
"") "\n")
248 (goto-char (point-max)))))
249 (run-hooks 'news-setup-hook
)))
252 "Send a news message using inews."
254 (let* (newsgroups subject
255 (case-fold-search nil
))
258 (goto-char (point-min))
259 (search-forward (concat "\n" mail-header-separator
"\n"))
260 (narrow-to-region (point-min) (point))
261 (setq newsgroups
(mail-fetch-field "newsgroups")
262 subject
(mail-fetch-field "subject")))
264 (goto-char (point-min))
265 (run-hooks 'news-inews-hook
)
266 (goto-char (point-min))
267 (search-forward (concat "\n" mail-header-separator
"\n"))
268 (replace-match "\n\n")
269 (goto-char (point-max))
270 ;; require a newline at the end for inews to append .signature to
271 (or (= (preceding-char) ?
\n)
273 (message "Posting to USENET...")
274 (call-process-region (point-min) (point-max)
275 news-inews-program nil
0 nil
276 "-h") ; take all header lines!
277 ;@@ setting of subject and newsgroups still needed?
280 (message "Posting to USENET... done")
281 (goto-char (point-min)) ;restore internal header separator
282 (search-forward "\n\n")
283 (replace-match (concat "\n" mail-header-separator
"\n"))
284 (set-buffer-modified-p nil
))
285 (and (fboundp 'bury-buffer
) (bury-buffer))))
287 ;@@ shares some code with news-reply and news-post-news
288 (defun news-mail-reply ()
289 "Mail a reply to the author of the current article.
290 While composing the reply, use \\[news-reply-yank-original] to yank the
291 original message into it."
293 (let (from cc subject date to reply-to
294 (buffer (current-buffer)))
296 (narrow-to-region (point-min) (progn (goto-line (point-min))
297 (search-forward "\n\n")
299 (setq from
(mail-fetch-field "from")
300 subject
(mail-fetch-field "subject")
301 reply-to
(mail-fetch-field "reply-to")
302 date
(mail-fetch-field "date")))
304 (pop-to-buffer "*mail*")
306 (if reply-to reply-to to
)
308 (let ((stop-pos (string-match " *at \\| *@ \\| *(\\| *<" from
)))
309 (concat (if stop-pos
(substring from
0 stop-pos
) from
)
315 ;@@ the guts of news-reply and news-post-news should be combined. -tower
317 "Compose and post a reply (aka a followup) to the current article on USENET.
318 While composing the followup, use \\[news-reply-yank-original] to yank the
319 original message into it."
321 (if (y-or-n-p "Are you sure you want to followup to all of USENET? ")
322 (let (from cc subject date to followup-to newsgroups message-of
323 references distribution message-id
324 (buffer (current-buffer)))
326 (and (not (= 0 (buffer-size))) ;@@real problem is non-existence of
328 (equal major-mode
'news-mode
) ;@@ if rmail-mode,
329 ;@@ should show full headers
331 (news-show-all-headers) ;@@ should save/restore header state,
332 ;@@ but rnews.el lacks support
333 (narrow-to-region (point-min) (progn (goto-char (point-min))
334 (search-forward "\n\n")
336 (setq from
(mail-fetch-field "from")
337 news-reply-yank-from from
338 ;; @@ not handling old Title: field
339 subject
(mail-fetch-field "subject")
340 date
(mail-fetch-field "date")
341 followup-to
(mail-fetch-field "followup-to")
342 newsgroups
(or followup-to
343 (mail-fetch-field "newsgroups"))
344 references
(mail-fetch-field "references")
345 ;; @@ not handling old Article-I.D.: field
346 distribution
(mail-fetch-field "distribution")
347 message-id
(mail-fetch-field "message-id")
348 news-reply-yank-message-id message-id
)
349 (pop-to-buffer "*post-news*")
351 (if (and (buffer-modified-p)
353 (y-or-n-p "Unsent article being composed; erase it? ")))
358 (progn (if (string-match "\\`Re: " subject
)
359 (while (string-match "\\`Re: " subject
)
360 (setq subject
(substring subject
4))))
361 (setq subject
(concat "Re: " subject
))))
365 (string-match " *at \\| *@ \\| *(\\| *<" from
)))
368 (if stop-pos
(substring from
0 stop-pos
) from
)
378 (progn (news-reply-followup-to)
379 (insert followup-to
)))
382 (mail-position-on-field "Distribution")
383 (insert distribution
)))
384 (mail-position-on-field "References")
387 (if (and references message-id
)
391 (goto-char (point-max))))))
394 ;@@ the guts of news-reply and news-post-news should be combined. -tower
396 (defun news-post-news ()
397 "Begin editing a new USENET news article to be posted.
398 Type \\[describe-mode] once editing the article to get a list of commands."
400 (if (y-or-n-p "Are you sure you want to post to all of USENET? ")
401 (let ((buffer (current-buffer)))
403 (and (not (= 0 (buffer-size))) ;@@real problem is non-existence of
405 (equal major-mode
'news-mode
) ;@@ if rmail-mode,
406 ;@@ should show full headers
408 (news-show-all-headers) ;@@ should save/restore header state,
409 ;@@ but rnews.el lacks support
410 (narrow-to-region (point-min) (progn (goto-char (point-min))
411 (search-forward "\n\n")
413 (setq news-reply-yank-from
(mail-fetch-field "from")
414 ;; @@ not handling old Article-I.D.: field
415 news-reply-yank-message-id
(mail-fetch-field "message-id")))
416 (pop-to-buffer "*post-news*")
418 (if (and (buffer-modified-p)
419 (not (y-or-n-p "Unsent article being composed; erase it? ")))
420 () ;@@ not saving point from last time
421 (progn (erase-buffer)
422 (news-setup () () () () buffer
))))
425 (defun news-mail-other-window ()
426 "Send mail in another window.
427 While composing the message, use \\[news-reply-yank-original] to yank the
428 original message into it."
430 (mail-other-window nil nil nil nil nil
(current-buffer)))
432 ;;; rnewspost.el ends here