lisp/obsolete/rnewspost.el

7 ;; Keywords: mail, news
28 ;; moved posting and mail code from rnews.el
63 (defvar mail-reply-buffer)
74       (define-key news-reply-mode-map "\C-c\C-f\C-s" 'mail-subject)
76       (define-key news-reply-mode-map "\C-c\C-t" 'mail-text)
80       (define-key news-reply-mode-map "\C-c\C-q" 'mail-fill-yanked-message)
94       (define-key news-reply-mode-map [menu-bar fields mail-subject]
95 	'("Subject" . mail-subject))
98       (define-key news-reply-mode-map [menu-bar fields mail-text]
99 	'("Text" . mail-text))
106       (define-key news-reply-mode-map [menu-bar news mail-fill-yanked-message]
107 	'("Fill Yanked Messages" . mail-fill-yanked-message))
117 C-c C-s  news-inews (post the message)    C-c C-c  news-inews
118 C-c C-f	 move to a header field (and create it if there isn't):
122 C-c C-y  news-reply-yank-original (insert current message, in NEWS).
123 C-c C-q  mail-fill-yanked-message (fill what was yanked).
127   (make-local-variable 'mail-reply-buffer)
128   (setq mail-reply-buffer nil)
141 (defvar news-reply-yank-message-id ""
145   "Insert the message being replied to, if any (in Mail mode).
149 and don't delete any header fields."
151   (mail-yank-original arg)
153   (run-hooks 'news-reply-header-hook))
155 (defvar news-reply-header-hook
157     (insert "In article " news-reply-yank-message-id
159   "Hook for inserting a header at the top of a yanked message.")
169   (mail-position-on-field "Newsgroups"))
181   (or (mail-position-on-field "Followup-To" t)
182       (progn (mail-position-on-field "newsgroups")
194   (mail-position-on-field "Distribution")
202 identifying the message."
205   (mail-position-on-field "Keywords"))
210 summary (abstract) of the message."
213   (mail-position-on-field "Summary"))
218   (message "Posting news will append your signature automatically."))
222   (setq mail-reply-buffer replybuffer)
223   (let ((mail-setup-hook nil)
225        	(mail-signature))
229 	(let ((mail-self-blind nil)
230 	      (mail-archive-file-name nil))
231 	  (mail-setup to subject in-reply-to nil replybuffer nil)
235       (mail-setup to subject in-reply-to nil replybuffer nil))
236     ;;;(mail-position-on-field "Posting-Front-End")
246     (let (actual-header-separator)
248       (setq actual-header-separator (buffer-substring
252 	    (concat "^" actual-header-separator "$\\|" paragraph-start))
254 	    (concat "^" actual-header-separator "$\\|" paragraph-separate)))
258   "Send a news message using inews."
264 	(narrow-to-region (point-min) (mail-header-end))
265 	(setq newsgroups (mail-fetch-field "newsgroups")
266 	      subject (mail-fetch-field "subject")))
270       (mail-sendmail-undelimit-header)
275       (message "Posting to USENET...")
280 					    "-h"))) ; take all header lines!
285 	    (message "Posting to USENET... done"))
286 	(mail-sendmail-delimit-header)
291 (defun news-mail-reply ()
294 original message into it."
296   (let (from cc subject date to reply-to message-id
302       (setq from (mail-fetch-field "from")
303 	    subject (mail-fetch-field "subject")
304 	    reply-to (mail-fetch-field "reply-to")
305 	    date (mail-fetch-field "date")
306 	    message-id (mail-fetch-field "message-id")))
308     (pop-to-buffer "*mail*")
309     (mail nil
314 		    "'s message "
315 		    (if message-id
316 			(concat message-id " of ")
326 original message into it."
329       (let (from cc subject date to followup-to newsgroups message-of
330 		 references distribution message-id
338 		 (news-show-all-headers) ;@@ should save/restore header state,
343 	  (setq from (mail-fetch-field "from")
346 		subject (mail-fetch-field "subject")
347 		date (mail-fetch-field "date")
348 		followup-to (mail-fetch-field "followup-to")
350 			       (mail-fetch-field "newsgroups"))
351 		references (mail-fetch-field "references")
353 		distribution (mail-fetch-field "distribution")
354 		message-id (mail-fetch-field "message-id")
355 		news-reply-yank-message-id message-id)
373 		       (setq message-of
376 			      "'s message "
377 			      (if message-id
378 				  (concat message-id " of ")
384 	       message-of
392 		    (mail-position-on-field "Distribution")
394 	      (mail-position-on-field "References")
397 	      (if (and references message-id)
399 	      (if message-id
400 		  (insert message-id))
402     (message "")))
420 		 (news-show-all-headers) ;@@ should save/restore header state,
425 	  (setq news-reply-yank-from (mail-fetch-field "from")
427 		news-reply-yank-message-id (mail-fetch-field "message-id")))
435   (message "")))
437 (defun news-mail-other-window ()
438   "Send mail in another window.
439 While composing the message, use \\[news-reply-yank-original] to yank the
440 original message into it."
442   (mail-other-window nil nil nil nil nil (current-buffer)))