[bpt/emacs.git] / lisp / mail / rnewspost.el

;;; rnewspost.el --- USENET news poster/mailer for GNU Emacs

;; Copyright (C) 1985, 1986, 1987, 1995 Free Software Foundation, Inc.

;; Maintainer: FSF
;; Keywords: mail, news

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Change Log:

;; moved posting and mail code from rnews.el
;;	tower@gnu.org Wed Oct 29 1986
;; brought posting code almost up to the revision of RFC 850 for News 2.11
;; - couldn't see handling the special meaning of the Keyword: poster
;; - not worth the code space to support the old A news Title: (which
;;   Subject: replaced) and Article-I.D.: (which Message-ID: replaced)
;;	tower@prep Nov 86
;; changed C-c C-r key-binding due to rename of news-caesar-buffer-body
;;	tower@prep 21 Nov 86
;; added (require 'rnews)	tower@prep 22 Apr 87
;; restricted call of news-show-all-headers in news-post-news & news-reply
;;	tower@prep 28 Apr 87
;; commented out Posting-Front-End to save USENET bytes tower@prep Jul 31 87
;; commented out -n and -t args in news-inews     tower@prep 15 Oct 87

;Now in paths.el.
;(defvar news-inews-program "inews"
;  "Function to post news.")

;; Replying and posting news items are done by these functions.
;; imported from rmail and modified to work with rnews ...
;; Mon Mar 25,1985 at 03:07:04 ads@mit-hermes.
;; this is done so that rnews can operate independently from rmail.el and
;; sendmail and doesn't have to autoload these functions.
;;
;;; >> Nuked by Mly to autoload those functions again, as the duplication of
;;; >>  code was making maintenance too difficult.

;;; Code:

(require 'sendmail)
(require 'rnews)

(defvar news-reply-mode-map () "Mode map used by news-reply.")

(or news-reply-mode-map
    (progn
      (setq news-reply-mode-map (make-keymap))
      (define-key news-reply-mode-map "\C-c\C-f\C-d" 'news-reply-distribution)
      (define-key news-reply-mode-map "\C-c\C-f\C-k" 'news-reply-keywords)
      (define-key news-reply-mode-map "\C-c\C-f\C-n" 'news-reply-newsgroups)
      (define-key news-reply-mode-map "\C-c\C-f\C-f" 'news-reply-followup-to)
      (define-key news-reply-mode-map "\C-c\C-f\C-s" 'mail-subject)
      (define-key news-reply-mode-map "\C-c\C-f\C-a" 'news-reply-summary)
      (define-key news-reply-mode-map "\C-c\C-t" 'mail-text)
      (define-key news-reply-mode-map "\C-c\C-r" 'news-caesar-buffer-body)
      (define-key news-reply-mode-map "\C-c\C-w" 'news-reply-signature)
      (define-key news-reply-mode-map "\C-c\C-y" 'news-reply-yank-original)
      (define-key news-reply-mode-map "\C-c\C-q" 'mail-fill-yanked-message)
      (define-key news-reply-mode-map "\C-c\C-c" 'news-inews)
      (define-key news-reply-mode-map "\C-c\C-s" 'news-inews)
      (define-key news-reply-mode-map [menu-bar] (make-sparse-keymap))
      (define-key news-reply-mode-map [menu-bar fields]
	(cons "Fields" (make-sparse-keymap "Fields")))
      (define-key news-reply-mode-map [menu-bar fields news-reply-distribution]
	'("Distribution" . news-reply-distribution))
      (define-key news-reply-mode-map [menu-bar fields news-reply-keywords]
	'("Keywords" . news-reply-keywords))
      (define-key news-reply-mode-map [menu-bar fields news-reply-newsgroups]
	'("Newsgroups" . news-reply-newsgroups))
      (define-key news-reply-mode-map [menu-bar fields news-reply-followup-to]
	'("Followup-to" . news-reply-followup-to))
      (define-key news-reply-mode-map [menu-bar fields mail-subject]
	'("Subject" . mail-subject))
      (define-key news-reply-mode-map [menu-bar fields news-reply-summary]
	'("Summary" . news-reply-summary))
      (define-key news-reply-mode-map [menu-bar fields mail-text]
	'("Text" . mail-text))
      (define-key news-reply-mode-map [menu-bar news]
	(cons "News" (make-sparse-keymap "News")))
      (define-key news-reply-mode-map [menu-bar news news-caesar-buffer-body]
	'("Rot13" . news-caesar-buffer-body))
      (define-key news-reply-mode-map [menu-bar news news-reply-yank-original]
	'("Yank Original" . news-reply-yank-original))
      (define-key news-reply-mode-map [menu-bar news mail-fill-yanked-message]
	'("Fill Yanked Messages" . mail-fill-yanked-message))
      (define-key news-reply-mode-map [menu-bar news news-inews]
	'("Send" . news-inews))))

(defun news-reply-mode ()
  "Major mode for editing news to be posted on USENET.
First-time posters are asked to please read the articles in newsgroup:
                                                     news.announce.newusers .
Like Text Mode but with these additional commands:

C-c C-s  news-inews (post the message)    C-c C-c  news-inews
C-c C-f	 move to a header field (and create it if there isn't):
	 C-c C-f C-n  move to Newsgroups:	C-c C-f C-s  move to Subj:
	 C-c C-f C-f  move to Followup-To:      C-c C-f C-k  move to Keywords:
	 C-c C-f C-d  move to Distribution:	C-c C-f C-a  move to Summary:
C-c C-y  news-reply-yank-original (insert current message, in NEWS).
C-c C-q  mail-fill-yanked-message (fill what was yanked).
C-c C-r  caesar rotate all letters by 13 places in the article's body (rot13)."
  (interactive)
  (kill-all-local-variables)
  (make-local-variable 'mail-reply-buffer)
  (setq mail-reply-buffer nil)
  (set-syntax-table text-mode-syntax-table)
  (use-local-map news-reply-mode-map)
  (setq local-abbrev-table text-mode-abbrev-table)
  (setq major-mode 'news-reply-mode)
  (setq mode-name "News Reply")
  (make-local-variable 'paragraph-separate)
  (make-local-variable 'paragraph-start)
  (run-hooks 'text-mode-hook 'news-reply-mode-hook))

(defvar news-reply-yank-from ""
  "Save `From:' field for `news-reply-yank-original'.")

(defvar news-reply-yank-message-id ""
  "Save `Message-Id:' field for `news-reply-yank-original'.")

(defun news-reply-yank-original (arg)
  "Insert the message being replied to, if any (in Mail mode).
Puts point before the text and mark after.
Indents each nonblank line ARG spaces (default 3).
Just \\[universal-argument] as argument means don't indent
and don't delete any header fields."
  (interactive "P")
  (mail-yank-original arg)
  (exchange-point-and-mark)
  (run-hooks 'news-reply-header-hook))

(defvar news-reply-header-hook
  '(lambda ()
	 (insert "In article " news-reply-yank-message-id
			 " " news-reply-yank-from " writes:\n\n"))
  "Hook for inserting a header at the top of a yanked message.")

(defun news-reply-newsgroups ()
  "Move point to end of `Newsgroups:' field.
RFC 850 constrains the `Newsgroups:' field to be a comma-separated list
of valid newsgroup names at your site.  For example,
   Newsgroups: news.misc,comp.misc,rec.misc"
  (interactive)
  (expand-abbrev)
  (goto-char (point-min))
  (mail-position-on-field "Newsgroups"))

(defun news-reply-followup-to ()
  "Move point to end of `Followup-To:' field.  Create the field if none.
One usually requests followups to only one newsgroup.
RFC 850 constrains the `Followup-To:' field to be a comma-separated list
of valid newsgroups names at your site, and it must be a subset of the
`Newsgroups:' field.  For example:
   Newsgroups: news.misc,comp.misc,rec.misc,misc.misc,soc.misc
   Followup-To: news.misc,comp.misc,rec.misc"
  (interactive)
  (expand-abbrev)
  (or (mail-position-on-field "Followup-To" t)
      (progn (mail-position-on-field "newsgroups")
	     (insert "\nFollowup-To: ")))
	 ;; @@ could do a completing read based on the Newsgroups: field to
	 ;; @@ fill in the Followup-To: field
)

(defun news-reply-distribution ()
  "Move point to end of `Distribution:' optional field.
Create the field if none.  Without this field the posting goes to all of
USENET.  The field is used to restrict the posting to parts of USENET."
  (interactive)
  (expand-abbrev)
  (mail-position-on-field "Distribution")
  ;; @@could do a completing read based on the news library file:
  ;; @@    ../distributions  to fill in the field.
  )

(defun news-reply-keywords ()
  "Move point to end of `Keywords:' optional field.  Create the field if none.
Used as an aid to the news reader, it can contain a few, well selected keywords
identifying the message."
  (interactive)
  (expand-abbrev)
  (mail-position-on-field "Keywords"))

(defun news-reply-summary ()
  "Move point to end of `Summary:' optional field.  Create the field if none.
Used as an aid to the news reader, it can contain a succinct
summary (abstract) of the message."
  (interactive)
  (expand-abbrev)
  (mail-position-on-field "Summary"))

(defun news-reply-signature ()
  "The inews program appends `~/.signature' automatically."
  (interactive)
  (message "Posting news will append your signature automatically."))

(defun news-setup (to subject in-reply-to newsgroups replybuffer)
  "Set up the news reply or posting buffer with the proper headers and mode."
  (setq mail-reply-buffer replybuffer)
  (let ((mail-setup-hook nil)
	;; Avoid inserting a signature.
       	(mail-signature))
    (if (null to)
	;; this hack is needed so that inews wont be confused by 
	;; the fcc: and bcc: fields
	(let ((mail-self-blind nil)
	      (mail-archive-file-name nil))
	  (mail-setup to subject in-reply-to nil replybuffer nil)
	  (beginning-of-line)
	  (delete-region (point) (progn (forward-line 1) (point)))
	  (goto-char (point-max)))
      (mail-setup to subject in-reply-to nil replybuffer nil))
    ;;;(mail-position-on-field "Posting-Front-End")
    ;;;(insert (emacs-version))
    (goto-char (point-max))
    (if (let ((case-fold-search t))
	  (re-search-backward "^Subject:" (point-min) t))
	(progn (beginning-of-line)
	       (insert "Newsgroups: " (or newsgroups "") "\n")
	       (if (not newsgroups)
		   (backward-char 1)
		 (goto-char (point-max)))))
    (let (actual-header-separator)
      (rfc822-goto-eoh)
      (setq actual-header-separator (buffer-substring
				     (point)
				     (save-excursion (end-of-line) (point))))
      (setq paragraph-start
	    (concat "^" actual-header-separator "$\\|" paragraph-start))
      (setq paragraph-separate
	    (concat "^" actual-header-separator "$\\|" paragraph-separate)))
    (run-hooks 'news-setup-hook)))
   
(defun news-inews ()
  "Send a news message using inews."
  (interactive)
  (let* (newsgroups subject
		    (case-fold-search nil))
    (save-excursion
      (save-restriction
	(narrow-to-region (point-min) (mail-header-end))
	(setq newsgroups (mail-fetch-field "newsgroups")
	      subject (mail-fetch-field "subject")))
      (widen)
      (goto-char (point-min))
      (run-hooks 'news-inews-hook)
      (mail-sendmail-undelimit-header)
      (goto-char (point-max))
      ;; require a newline at the end for inews to append .signature to
      (or (= (preceding-char) ?\n)
	  (insert ?\n))
      (message "Posting to USENET...")
      (unwind-protect
	  (if (not (eq 0 
		       (call-process-region (point-min) (point-max) 
					    news-inews-program nil 0 nil
					    "-h"))) ; take all header lines!
					;@@ setting of subject and newsgroups still needed?
					;"-t" subject
					;"-n" newsgroups
	      (error "Posting to USENET failed")
	    (message "Posting to USENET... done"))
	(mail-sendmail-delimit-header)
	(set-buffer-modified-p nil)))
    (bury-buffer)))

;@@ shares some code with news-reply and news-post-news
(defun news-mail-reply ()
  "Mail a reply to the author of the current article.
While composing the reply, use \\[news-reply-yank-original] to yank the
original message into it."
  (interactive)
  (let (from cc subject date to reply-to message-id
	     (buffer (current-buffer)))
    (save-restriction
      (narrow-to-region (point-min) (progn (goto-line (point-min))
					   (search-forward "\n\n")
					   (- (point) 1)))
      (setq from (mail-fetch-field "from")
	    subject (mail-fetch-field "subject")
	    reply-to (mail-fetch-field "reply-to")
	    date (mail-fetch-field "date")
	    message-id (mail-fetch-field "message-id")))
    (setq to from)
    (pop-to-buffer "*mail*")
    (mail nil
	  (if reply-to reply-to to)
	  subject
	  (let ((stop-pos (string-match "  *at \\|  *@ \\| *(\\| *<" from)))
	    (concat (if stop-pos (substring from 0 stop-pos) from)
		    "'s message "
		    (if message-id
			(concat message-id " of ")
		      "of ")
		    date))
	  nil
	 buffer)))

;@@ the guts of news-reply and news-post-news should be combined. -tower
(defun news-reply ()
  "Compose and post a reply (aka a followup) to the current article on USENET.
While composing the followup, use \\[news-reply-yank-original] to yank the
original message into it."
  (interactive)
  (if (y-or-n-p "Are you sure you want to followup to all of USENET? ")
      (let (from cc subject date to followup-to newsgroups message-of
		 references distribution message-id
		 (buffer (current-buffer)))
	(save-restriction
	  (and (not (= 0 (buffer-size))) ;@@real problem is non-existence of
					;@@	of article file
	       (equal major-mode 'news-mode) ;@@ if rmail-mode,
					;@@	should show full headers
	       (progn
		 (news-show-all-headers) ;@@ should save/restore header state,
					;@@	but rnews.el lacks support
		 (narrow-to-region (point-min) (progn (goto-char (point-min))
						      (search-forward "\n\n")
						      (- (point) 1)))))
	  (setq from (mail-fetch-field "from")
		news-reply-yank-from from
		;; @@ not handling old Title: field
		subject (mail-fetch-field "subject")
		date (mail-fetch-field "date")
		followup-to (mail-fetch-field "followup-to")
		newsgroups (or followup-to
			       (mail-fetch-field "newsgroups"))
		references (mail-fetch-field "references")
		;; @@ not handling old Article-I.D.: field
		distribution (mail-fetch-field "distribution")
		message-id (mail-fetch-field "message-id")
		news-reply-yank-message-id message-id)
	  (pop-to-buffer "*post-news*")
	  (news-reply-mode)
	  (if (and (buffer-modified-p)
		   (not
		    (y-or-n-p "Unsent article being composed; erase it? ")))
	      ()
	    (progn
	      (erase-buffer)
	      (and subject
		   (progn (if (string-match "\\`Re: " subject)
			      (while (string-match "\\`Re: " subject)
				(setq subject (substring subject 4))))
			  (setq subject (concat "Re: " subject))))
	      (and from
		   (progn
		     (let ((stop-pos
			    (string-match "  *at \\|  *@ \\| *(\\| *<" from)))
		       (setq message-of
			     (concat
			      (if stop-pos (substring from 0 stop-pos) from)
			      "'s message "
			      (if message-id
				  (concat message-id " of ")
				"of ")
			      date)))))
	      (news-setup
	       nil
	       subject
	       message-of
	       newsgroups
	       buffer)
	      (if followup-to
		  (progn (news-reply-followup-to)
			 (insert followup-to)))
	      (if distribution
		  (progn
		    (mail-position-on-field "Distribution")
		    (insert distribution)))
	      (mail-position-on-field "References")
	      (if references
		  (insert references))
	      (if (and references message-id)
		  (insert " "))
	      (if message-id
		  (insert message-id))
	      (goto-char (point-max))))))
    (message "")))

;@@ the guts of news-reply and news-post-news should be combined. -tower
;;;###autoload
(defun news-post-news (&optional noquery)
  "Begin editing a new USENET news article to be posted.
Type \\[describe-mode] once editing the article to get a list of commands.
If NOQUERY is non-nil, we do not query before doing the work."
  (interactive)
  (if (or noquery
	  (y-or-n-p "Are you sure you want to post to all of USENET? "))
      (let ((buffer (current-buffer)))
	(save-restriction
	  (and (not (= 0 (buffer-size))) ;@@real problem is non-existence of
					;@@	of article file
	       (equal major-mode 'news-mode) ;@@ if rmail-mode,
					;@@	should show full headers
	       (progn
		 (news-show-all-headers) ;@@ should save/restore header state,
					;@@	but rnews.el lacks support
		 (narrow-to-region (point-min) (progn (goto-char (point-min))
						      (search-forward "\n\n")
						      (- (point) 1)))))
	  (setq news-reply-yank-from (mail-fetch-field "from")
		;; @@ not handling old Article-I.D.: field
		news-reply-yank-message-id (mail-fetch-field "message-id")))
	(pop-to-buffer "*post-news*")
	(news-reply-mode)
	(if (and (buffer-modified-p)
		 (not (y-or-n-p "Unsent article being composed; erase it? ")))
	    ()				;@@ not saving point from last time
	  (progn (erase-buffer)
		 (news-setup () () () () buffer))))
  (message "")))

(defun news-mail-other-window ()
  "Send mail in another window.
While composing the message, use \\[news-reply-yank-original] to yank the
original message into it."
  (interactive)
  (mail-other-window nil nil nil nil nil (current-buffer)))

(provide 'rnewspost)

;;; rnewspost.el ends here
Commit	Line	Data
c88ab9ce ER	1	;;; rnewspost.el --- USENET news poster/mailer for GNU Emacs
c88ab9ce ER	2
f8c25f1b	3	;; Copyright (C) 1985, 1986, 1987, 1995 Free Software Foundation, Inc.
3a801d0c	4
e5167999	5	;; Maintainer: FSF
d7b4d18f	6	;; Keywords: mail, news
e5167999	7
0d20f9a0 JB	8	;; This file is part of GNU Emacs.
	9
	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
e5167999	12	;; the Free Software Foundation; either version 2, or (at your option)
0d20f9a0 JB	13	;; any later version.
	14
	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.
	19
	20	;; You should have received a copy of the GNU General Public License
b578f267 EN	21	;; along with GNU Emacs; see the file COPYING. If not, write to the
	22	;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
	23	;; Boston, MA 02111-1307, USA.
0d20f9a0	24
717e06e5	25	;;; Change Log:
e5167999	26
0d20f9a0	27	;; moved posting and mail code from rnews.el
c7081ecc	28	;; tower@gnu.org Wed Oct 29 1986
0d20f9a0 JB	29	;; brought posting code almost up to the revision of RFC 850 for News 2.11
	30	;; - couldn't see handling the special meaning of the Keyword: poster
	31	;; - not worth the code space to support the old A news Title: (which
	32	;; Subject: replaced) and Article-I.D.: (which Message-ID: replaced)
	33	;; tower@prep Nov 86
	34	;; changed C-c C-r key-binding due to rename of news-caesar-buffer-body
	35	;; tower@prep 21 Nov 86
	36	;; added (require 'rnews) tower@prep 22 Apr 87
	37	;; restricted call of news-show-all-headers in news-post-news & news-reply
	38	;; tower@prep 28 Apr 87
	39	;; commented out Posting-Front-End to save USENET bytes tower@prep Jul 31 87
	40	;; commented out -n and -t args in news-inews tower@prep 15 Oct 87
0d20f9a0 JB	41
	42	;Now in paths.el.
	43	;(defvar news-inews-program "inews"
	44	; "Function to post news.")
	45
	46	;; Replying and posting news items are done by these functions.
	47	;; imported from rmail and modified to work with rnews ...
	48	;; Mon Mar 25,1985 at 03:07:04 ads@mit-hermes.
	49	;; this is done so that rnews can operate independently from rmail.el and
a7acbbe4	50	;; sendmail and doesn't have to autoload these functions.
0d20f9a0 JB	51	;;
	52	;;; >> Nuked by Mly to autoload those functions again, as the duplication of
	53	;;; >> code was making maintenance too difficult.
	54
e5167999 ER	55	;;; Code:
	56
	57	(require 'sendmail)
	58	(require 'rnews)
	59
0d20f9a0 JB	60	(defvar news-reply-mode-map () "Mode map used by news-reply.")
	61
	62	(or news-reply-mode-map
	63	(progn
	64	(setq news-reply-mode-map (make-keymap))
0d20f9a0 JB	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)
4ad33138	71	(define-key news-reply-mode-map "\C-c\C-t" 'mail-text)
0d20f9a0 JB	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)
ed17d24f RS	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))
ed17d24f RS	99	(define-key news-reply-mode-map [menu-bar news news-reply-yank-original]
	100	'("Yank Original" . news-reply-yank-original))
	101	(define-key news-reply-mode-map [menu-bar news mail-fill-yanked-message]
	102	'("Fill Yanked Messages" . mail-fill-yanked-message))
	103	(define-key news-reply-mode-map [menu-bar news news-inews]
	104	'("Send" . news-inews))))
0d20f9a0 JB	105
	106	(defun news-reply-mode ()
	107	"Major mode for editing news to be posted on USENET.
	108	First-time posters are asked to please read the articles in newsgroup:
	109	news.announce.newusers .
	110	Like Text Mode but with these additional commands:
	111
	112	C-c C-s news-inews (post the message) C-c C-c news-inews
	113	C-c C-f move to a header field (and create it if there isn't):
	114	C-c C-f C-n move to Newsgroups: C-c C-f C-s move to Subj:
	115	C-c C-f C-f move to Followup-To: C-c C-f C-k move to Keywords:
	116	C-c C-f C-d move to Distribution: C-c C-f C-a move to Summary:
	117	C-c C-y news-reply-yank-original (insert current message, in NEWS).
	118	C-c C-q mail-fill-yanked-message (fill what was yanked).
	119	C-c C-r caesar rotate all letters by 13 places in the article's body (rot13)."
	120	(interactive)
0d20f9a0 JB	121	(kill-all-local-variables)
	122	(make-local-variable 'mail-reply-buffer)
	123	(setq mail-reply-buffer nil)
	124	(set-syntax-table text-mode-syntax-table)
	125	(use-local-map news-reply-mode-map)
	126	(setq local-abbrev-table text-mode-abbrev-table)
	127	(setq major-mode 'news-reply-mode)
c6f5b077	128	(setq mode-name "News Reply")
0d20f9a0 JB	129	(make-local-variable 'paragraph-separate)
0d20f9a0 JB	130	(make-local-variable 'paragraph-start)
0d20f9a0 JB	131	(run-hooks 'text-mode-hook 'news-reply-mode-hook))
0d20f9a0 JB	132
7bf5350d KH	133	(defvar news-reply-yank-from ""
7bf5350d KH	134	"Save `From:' field for `news-reply-yank-original'.")
0d20f9a0	135
7bf5350d KH	136	(defvar news-reply-yank-message-id ""
7bf5350d KH	137	"Save `Message-Id:' field for `news-reply-yank-original'.")
0d20f9a0 JB	138
0d20f9a0 JB	139	(defun news-reply-yank-original (arg)
d9f86af9	140	"Insert the message being replied to, if any (in Mail mode).
0d20f9a0 JB	141	Puts point before the text and mark after.
	142	Indents each nonblank line ARG spaces (default 3).
	143	Just \\[universal-argument] as argument means don't indent
	144	and don't delete any header fields."
	145	(interactive "P")
	146	(mail-yank-original arg)
	147	(exchange-point-and-mark)
	148	(run-hooks 'news-reply-header-hook))
	149
	150	(defvar news-reply-header-hook
	151	'(lambda ()
	152	(insert "In article " news-reply-yank-message-id
	153	" " news-reply-yank-from " writes:\n\n"))
	154	"Hook for inserting a header at the top of a yanked message.")
	155
	156	(defun news-reply-newsgroups ()
d9f86af9 RS	157	"Move point to end of `Newsgroups:' field.
	158	RFC 850 constrains the `Newsgroups:' field to be a comma-separated list
	159	of valid newsgroup names at your site. For example,
	160	Newsgroups: news.misc,comp.misc,rec.misc"
0d20f9a0 JB	161	(interactive)
	162	(expand-abbrev)
	163	(goto-char (point-min))
	164	(mail-position-on-field "Newsgroups"))
	165
	166	(defun news-reply-followup-to ()
d9f86af9	167	"Move point to end of `Followup-To:' field. Create the field if none.
0d20f9a0	168	One usually requests followups to only one newsgroup.
d9f86af9 RS	169	RFC 850 constrains the `Followup-To:' field to be a comma-separated list
	170	of valid newsgroups names at your site, and it must be a subset of the
	171	`Newsgroups:' field. For example:
	172	Newsgroups: news.misc,comp.misc,rec.misc,misc.misc,soc.misc
	173	Followup-To: news.misc,comp.misc,rec.misc"
0d20f9a0 JB	174	(interactive)
	175	(expand-abbrev)
	176	(or (mail-position-on-field "Followup-To" t)
	177	(progn (mail-position-on-field "newsgroups")
	178	(insert "\nFollowup-To: ")))
	179	;; @@ could do a completing read based on the Newsgroups: field to
	180	;; @@ fill in the Followup-To: field
	181	)
	182
	183	(defun news-reply-distribution ()
d9f86af9	184	"Move point to end of `Distribution:' optional field.
0d20f9a0 JB	185	Create the field if none. Without this field the posting goes to all of
	186	USENET. The field is used to restrict the posting to parts of USENET."
	187	(interactive)
	188	(expand-abbrev)
	189	(mail-position-on-field "Distribution")
	190	;; @@could do a completing read based on the news library file:
	191	;; @@ ../distributions to fill in the field.
	192	)
	193
	194	(defun news-reply-keywords ()
d9f86af9	195	"Move point to end of `Keywords:' optional field. Create the field if none.
0d20f9a0 JB	196	Used as an aid to the news reader, it can contain a few, well selected keywords
	197	identifying the message."
	198	(interactive)
	199	(expand-abbrev)
	200	(mail-position-on-field "Keywords"))
	201
	202	(defun news-reply-summary ()
d9f86af9	203	"Move point to end of `Summary:' optional field. Create the field if none.
0d20f9a0 JB	204	Used as an aid to the news reader, it can contain a succinct
	205	summary (abstract) of the message."
	206	(interactive)
	207	(expand-abbrev)
	208	(mail-position-on-field "Summary"))
	209
	210	(defun news-reply-signature ()
e63b8030	211	"The inews program appends `~/.signature' automatically."
0d20f9a0	212	(interactive)
7bf5350d	213	(message "Posting news will append your signature automatically."))
0d20f9a0 JB	214
0d20f9a0 JB	215	(defun news-setup (to subject in-reply-to newsgroups replybuffer)
d9f86af9	216	"Set up the news reply or posting buffer with the proper headers and mode."
0d20f9a0	217	(setq mail-reply-buffer replybuffer)
e63b8030 RS	218	(let ((mail-setup-hook nil)
	219	;; Avoid inserting a signature.
	220	(mail-signature))
0d20f9a0 JB	221	(if (null to)
	222	;; this hack is needed so that inews wont be confused by
	223	;; the fcc: and bcc: fields
	224	(let ((mail-self-blind nil)
	225	(mail-archive-file-name nil))
	226	(mail-setup to subject in-reply-to nil replybuffer nil)
	227	(beginning-of-line)
38c132a9	228	(delete-region (point) (progn (forward-line 1) (point)))
0d20f9a0 JB	229	(goto-char (point-max)))
	230	(mail-setup to subject in-reply-to nil replybuffer nil))
	231	;;;(mail-position-on-field "Posting-Front-End")
	232	;;;(insert (emacs-version))
	233	(goto-char (point-max))
	234	(if (let ((case-fold-search t))
	235	(re-search-backward "^Subject:" (point-min) t))
	236	(progn (beginning-of-line)
	237	(insert "Newsgroups: " (or newsgroups "") "\n")
	238	(if (not newsgroups)
	239	(backward-char 1)
	240	(goto-char (point-max)))))
5acd84d5 RS	241	(let (actual-header-separator)
	242	(rfc822-goto-eoh)
	243	(setq actual-header-separator (buffer-substring
	244	(point)
	245	(save-excursion (end-of-line) (point))))
	246	(setq paragraph-start
	247	(concat "^" actual-header-separator "$\\\|" paragraph-start))
	248	(setq paragraph-separate
	249	(concat "^" actual-header-separator "$\\\|" paragraph-separate)))
0d20f9a0 JB	250	(run-hooks 'news-setup-hook)))
	251
	252	(defun news-inews ()
	253	"Send a news message using inews."
	254	(interactive)
	255	(let* (newsgroups subject
	256	(case-fold-search nil))
	257	(save-excursion
	258	(save-restriction
5acd84d5	259	(narrow-to-region (point-min) (mail-header-end))
0d20f9a0 JB	260	(setq newsgroups (mail-fetch-field "newsgroups")
	261	subject (mail-fetch-field "subject")))
	262	(widen)
	263	(goto-char (point-min))
	264	(run-hooks 'news-inews-hook)
5acd84d5	265	(mail-sendmail-undelimit-header)
0d20f9a0 JB	266	(goto-char (point-max))
	267	;; require a newline at the end for inews to append .signature to
	268	(or (= (preceding-char) ?\n)
	269	(insert ?\n))
	270	(message "Posting to USENET...")
5cfee3ac RS	271	(unwind-protect
	272	(if (not (eq 0
	273	(call-process-region (point-min) (point-max)
	274	news-inews-program nil 0 nil
	275	"-h"))) ; take all header lines!
	276	;@@ setting of subject and newsgroups still needed?
	277	;"-t" subject
	278	;"-n" newsgroups
	279	(error "Posting to USENET failed")
	280	(message "Posting to USENET... done"))
6c01544a	281	(mail-sendmail-delimit-header)
5cfee3ac RS	282	(set-buffer-modified-p nil)))
5cfee3ac RS	283	(bury-buffer)))
0d20f9a0 JB	284
	285	;@@ shares some code with news-reply and news-post-news
	286	(defun news-mail-reply ()
	287	"Mail a reply to the author of the current article.
	288	While composing the reply, use \\[news-reply-yank-original] to yank the
	289	original message into it."
	290	(interactive)
5958eef6	291	(let (from cc subject date to reply-to message-id
0d20f9a0 JB	292	(buffer (current-buffer)))
	293	(save-restriction
	294	(narrow-to-region (point-min) (progn (goto-line (point-min))
	295	(search-forward "\n\n")
	296	(- (point) 1)))
	297	(setq from (mail-fetch-field "from")
	298	subject (mail-fetch-field "subject")
	299	reply-to (mail-fetch-field "reply-to")
5958eef6 RS	300	date (mail-fetch-field "date")
5958eef6 RS	301	message-id (mail-fetch-field "message-id")))
56eb270e RS	302	(setq to from)
	303	(pop-to-buffer "mail")
	304	(mail nil
	305	(if reply-to reply-to to)
	306	subject
	307	(let ((stop-pos (string-match " at \\\| @ \\\| (\\\| <" from)))
	308	(concat (if stop-pos (substring from 0 stop-pos) from)
5958eef6 RS	309	"'s message "
	310	(if message-id
	311	(concat message-id " of ")
	312	"of ")
56eb270e RS	313	date))
	314	nil
	315	buffer)))
0d20f9a0 JB	316
	317	;@@ the guts of news-reply and news-post-news should be combined. -tower
	318	(defun news-reply ()
	319	"Compose and post a reply (aka a followup) to the current article on USENET.
	320	While composing the followup, use \\[news-reply-yank-original] to yank the
	321	original message into it."
	322	(interactive)
	323	(if (y-or-n-p "Are you sure you want to followup to all of USENET? ")
	324	(let (from cc subject date to followup-to newsgroups message-of
	325	references distribution message-id
	326	(buffer (current-buffer)))
	327	(save-restriction
	328	(and (not (= 0 (buffer-size))) ;@@real problem is non-existence of
	329	;@@ of article file
	330	(equal major-mode 'news-mode) ;@@ if rmail-mode,
	331	;@@ should show full headers
	332	(progn
	333	(news-show-all-headers) ;@@ should save/restore header state,
	334	;@@ but rnews.el lacks support
	335	(narrow-to-region (point-min) (progn (goto-char (point-min))
	336	(search-forward "\n\n")
	337	(- (point) 1)))))
	338	(setq from (mail-fetch-field "from")
	339	news-reply-yank-from from
	340	;; @@ not handling old Title: field
	341	subject (mail-fetch-field "subject")
	342	date (mail-fetch-field "date")
	343	followup-to (mail-fetch-field "followup-to")
	344	newsgroups (or followup-to
	345	(mail-fetch-field "newsgroups"))
	346	references (mail-fetch-field "references")
	347	;; @@ not handling old Article-I.D.: field
	348	distribution (mail-fetch-field "distribution")
	349	message-id (mail-fetch-field "message-id")
	350	news-reply-yank-message-id message-id)
	351	(pop-to-buffer "post-news")
	352	(news-reply-mode)
	353	(if (and (buffer-modified-p)
	354	(not
	355	(y-or-n-p "Unsent article being composed; erase it? ")))
	356	()
	357	(progn
	358	(erase-buffer)
	359	(and subject
	360	(progn (if (string-match "\\`Re: " subject)
	361	(while (string-match "\\`Re: " subject)
	362	(setq subject (substring subject 4))))
	363	(setq subject (concat "Re: " subject))))
	364	(and from
	365	(progn
	366	(let ((stop-pos
	367	(string-match " at \\\| @ \\\| (\\\| <" from)))
	368	(setq message-of
	369	(concat
	370	(if stop-pos (substring from 0 stop-pos) from)
5958eef6 RS	371	"'s message "
	372	(if message-id
	373	(concat message-id " of ")
	374	"of ")
0d20f9a0 JB	375	date)))))
	376	(news-setup
	377	nil
	378	subject
	379	message-of
	380	newsgroups
	381	buffer)
	382	(if followup-to
	383	(progn (news-reply-followup-to)
	384	(insert followup-to)))
	385	(if distribution
	386	(progn
	387	(mail-position-on-field "Distribution")
	388	(insert distribution)))
	389	(mail-position-on-field "References")
	390	(if references
	391	(insert references))
	392	(if (and references message-id)
	393	(insert " "))
	394	(if message-id
	395	(insert message-id))
	396	(goto-char (point-max))))))
	397	(message "")))
	398
	399	;@@ the guts of news-reply and news-post-news should be combined. -tower
d9f86af9	400	;;;###autoload
ffb8c7cb	401	(defun news-post-news (&optional noquery)
0d20f9a0	402	"Begin editing a new USENET news article to be posted.
ffb8c7cb RS	403	Type \\[describe-mode] once editing the article to get a list of commands.
ffb8c7cb RS	404	If NOQUERY is non-nil, we do not query before doing the work."
0d20f9a0	405	(interactive)
ffb8c7cb RS	406	(if (or noquery
ffb8c7cb RS	407	(y-or-n-p "Are you sure you want to post to all of USENET? "))
0d20f9a0 JB	408	(let ((buffer (current-buffer)))
	409	(save-restriction
	410	(and (not (= 0 (buffer-size))) ;@@real problem is non-existence of
	411	;@@ of article file
	412	(equal major-mode 'news-mode) ;@@ if rmail-mode,
	413	;@@ should show full headers
	414	(progn
	415	(news-show-all-headers) ;@@ should save/restore header state,
	416	;@@ but rnews.el lacks support
	417	(narrow-to-region (point-min) (progn (goto-char (point-min))
	418	(search-forward "\n\n")
	419	(- (point) 1)))))
	420	(setq news-reply-yank-from (mail-fetch-field "from")
	421	;; @@ not handling old Article-I.D.: field
	422	news-reply-yank-message-id (mail-fetch-field "message-id")))
	423	(pop-to-buffer "post-news")
	424	(news-reply-mode)
	425	(if (and (buffer-modified-p)
	426	(not (y-or-n-p "Unsent article being composed; erase it? ")))
	427	() ;@@ not saving point from last time
	428	(progn (erase-buffer)
	429	(news-setup () () () () buffer))))
	430	(message "")))
	431
	432	(defun news-mail-other-window ()
	433	"Send mail in another window.
	434	While composing the message, use \\[news-reply-yank-original] to yank the
	435	original message into it."
	436	(interactive)
	437	(mail-other-window nil nil nil nil nil (current-buffer)))
c88ab9ce	438
896546cd RS	439	(provide 'rnewspost)
896546cd RS	440
c88ab9ce	441	;;; rnewspost.el ends here