[bpt/emacs.git] / lisp / obsolete / 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@gnu.org Nov 86
;; changed C-c C-r key-binding due to rename of news-caesar-buffer-body
;;	tower@gnu.org 21 Nov 86
;; added (require 'rnews)	tower@gnu.org 22 Apr 87
;; restricted call of news-show-all-headers in news-post-news & news-reply
;;	tower@gnu.org 28 Apr 87
;; commented out Posting-Front-End to save USENET bytes tower@gnu.org Jul 31 87
;; commented out -n and -t args in news-inews     tower@gnu.org 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.

;;; Commentary:

;;; 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)
5762abec	33	;; tower@gnu.org Nov 86
0d20f9a0	34	;; changed C-c C-r key-binding due to rename of news-caesar-buffer-body
5762abec KH	35	;; tower@gnu.org 21 Nov 86
5762abec KH	36	;; added (require 'rnews) tower@gnu.org 22 Apr 87
0d20f9a0	37	;; restricted call of news-show-all-headers in news-post-news & news-reply
5762abec KH	38	;; tower@gnu.org 28 Apr 87
	39	;; commented out Posting-Front-End to save USENET bytes tower@gnu.org Jul 31 87
	40	;; commented out -n and -t args in news-inews tower@gnu.org 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
55535639 PJ	55	;;; Commentary:
55535639 PJ	56
e5167999 ER	57	;;; Code:
	58
	59	(require 'sendmail)
	60	(require 'rnews)
	61
0d20f9a0 JB	62	(defvar news-reply-mode-map () "Mode map used by news-reply.")
	63
	64	(or news-reply-mode-map
	65	(progn
	66	(setq news-reply-mode-map (make-keymap))
0d20f9a0 JB	67	(define-key news-reply-mode-map "\C-c\C-f\C-d" 'news-reply-distribution)
	68	(define-key news-reply-mode-map "\C-c\C-f\C-k" 'news-reply-keywords)
	69	(define-key news-reply-mode-map "\C-c\C-f\C-n" 'news-reply-newsgroups)
	70	(define-key news-reply-mode-map "\C-c\C-f\C-f" 'news-reply-followup-to)
	71	(define-key news-reply-mode-map "\C-c\C-f\C-s" 'mail-subject)
	72	(define-key news-reply-mode-map "\C-c\C-f\C-a" 'news-reply-summary)
4ad33138	73	(define-key news-reply-mode-map "\C-c\C-t" 'mail-text)
0d20f9a0 JB	74	(define-key news-reply-mode-map "\C-c\C-r" 'news-caesar-buffer-body)
	75	(define-key news-reply-mode-map "\C-c\C-w" 'news-reply-signature)
	76	(define-key news-reply-mode-map "\C-c\C-y" 'news-reply-yank-original)
	77	(define-key news-reply-mode-map "\C-c\C-q" 'mail-fill-yanked-message)
	78	(define-key news-reply-mode-map "\C-c\C-c" 'news-inews)
ed17d24f RS	79	(define-key news-reply-mode-map "\C-c\C-s" 'news-inews)
	80	(define-key news-reply-mode-map [menu-bar] (make-sparse-keymap))
	81	(define-key news-reply-mode-map [menu-bar fields]
	82	(cons "Fields" (make-sparse-keymap "Fields")))
	83	(define-key news-reply-mode-map [menu-bar fields news-reply-distribution]
	84	'("Distribution" . news-reply-distribution))
	85	(define-key news-reply-mode-map [menu-bar fields news-reply-keywords]
	86	'("Keywords" . news-reply-keywords))
	87	(define-key news-reply-mode-map [menu-bar fields news-reply-newsgroups]
	88	'("Newsgroups" . news-reply-newsgroups))
	89	(define-key news-reply-mode-map [menu-bar fields news-reply-followup-to]
	90	'("Followup-to" . news-reply-followup-to))
	91	(define-key news-reply-mode-map [menu-bar fields mail-subject]
	92	'("Subject" . mail-subject))
	93	(define-key news-reply-mode-map [menu-bar fields news-reply-summary]
	94	'("Summary" . news-reply-summary))
	95	(define-key news-reply-mode-map [menu-bar fields mail-text]
	96	'("Text" . mail-text))
	97	(define-key news-reply-mode-map [menu-bar news]
	98	(cons "News" (make-sparse-keymap "News")))
	99	(define-key news-reply-mode-map [menu-bar news news-caesar-buffer-body]
	100	'("Rot13" . news-caesar-buffer-body))
ed17d24f RS	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))))
0d20f9a0 JB	107
	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:
	113
	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)."
	122	(interactive)
0d20f9a0 JB	123	(kill-all-local-variables)
	124	(make-local-variable 'mail-reply-buffer)
	125	(setq mail-reply-buffer nil)
	126	(set-syntax-table text-mode-syntax-table)
	127	(use-local-map news-reply-mode-map)
	128	(setq local-abbrev-table text-mode-abbrev-table)
	129	(setq major-mode 'news-reply-mode)
c6f5b077	130	(setq mode-name "News Reply")
0d20f9a0 JB	131	(make-local-variable 'paragraph-separate)
0d20f9a0 JB	132	(make-local-variable 'paragraph-start)
0d20f9a0 JB	133	(run-hooks 'text-mode-hook 'news-reply-mode-hook))
0d20f9a0 JB	134
7bf5350d KH	135	(defvar news-reply-yank-from ""
7bf5350d KH	136	"Save `From:' field for `news-reply-yank-original'.")
0d20f9a0	137
7bf5350d KH	138	(defvar news-reply-yank-message-id ""
7bf5350d KH	139	"Save `Message-Id:' field for `news-reply-yank-original'.")
0d20f9a0 JB	140
0d20f9a0 JB	141	(defun news-reply-yank-original (arg)
d9f86af9	142	"Insert the message being replied to, if any (in Mail mode).
0d20f9a0 JB	143	Puts point before the text and mark after.
	144	Indents each nonblank line ARG spaces (default 3).
	145	Just \\[universal-argument] as argument means don't indent
	146	and don't delete any header fields."
	147	(interactive "P")
	148	(mail-yank-original arg)
	149	(exchange-point-and-mark)
	150	(run-hooks 'news-reply-header-hook))
	151
	152	(defvar news-reply-header-hook
b68d1f26 SM	153	(lambda ()
	154	(insert "In article " news-reply-yank-message-id
	155	" " news-reply-yank-from " writes:\n\n"))
0d20f9a0 JB	156	"Hook for inserting a header at the top of a yanked message.")
	157
	158	(defun news-reply-newsgroups ()
d9f86af9 RS	159	"Move point to end of `Newsgroups:' field.
	160	RFC 850 constrains the `Newsgroups:' field to be a comma-separated list
	161	of valid newsgroup names at your site. For example,
	162	Newsgroups: news.misc,comp.misc,rec.misc"
0d20f9a0 JB	163	(interactive)
	164	(expand-abbrev)
	165	(goto-char (point-min))
	166	(mail-position-on-field "Newsgroups"))
	167
	168	(defun news-reply-followup-to ()
d9f86af9	169	"Move point to end of `Followup-To:' field. Create the field if none.
0d20f9a0	170	One usually requests followups to only one newsgroup.
d9f86af9 RS	171	RFC 850 constrains the `Followup-To:' field to be a comma-separated list
	172	of valid newsgroups names at your site, and it must be a subset of the
	173	`Newsgroups:' field. For example:
	174	Newsgroups: news.misc,comp.misc,rec.misc,misc.misc,soc.misc
	175	Followup-To: news.misc,comp.misc,rec.misc"
0d20f9a0 JB	176	(interactive)
	177	(expand-abbrev)
	178	(or (mail-position-on-field "Followup-To" t)
	179	(progn (mail-position-on-field "newsgroups")
	180	(insert "\nFollowup-To: ")))
	181	;; @@ could do a completing read based on the Newsgroups: field to
	182	;; @@ fill in the Followup-To: field
	183	)
	184
	185	(defun news-reply-distribution ()
d9f86af9	186	"Move point to end of `Distribution:' optional field.
0d20f9a0 JB	187	Create the field if none. Without this field the posting goes to all of
	188	USENET. The field is used to restrict the posting to parts of USENET."
	189	(interactive)
	190	(expand-abbrev)
	191	(mail-position-on-field "Distribution")
	192	;; @@could do a completing read based on the news library file:
	193	;; @@ ../distributions to fill in the field.
	194	)
	195
	196	(defun news-reply-keywords ()
d9f86af9	197	"Move point to end of `Keywords:' optional field. Create the field if none.
0d20f9a0 JB	198	Used as an aid to the news reader, it can contain a few, well selected keywords
	199	identifying the message."
	200	(interactive)
	201	(expand-abbrev)
	202	(mail-position-on-field "Keywords"))
	203
	204	(defun news-reply-summary ()
d9f86af9	205	"Move point to end of `Summary:' optional field. Create the field if none.
0d20f9a0 JB	206	Used as an aid to the news reader, it can contain a succinct
	207	summary (abstract) of the message."
	208	(interactive)
	209	(expand-abbrev)
	210	(mail-position-on-field "Summary"))
	211
	212	(defun news-reply-signature ()
e63b8030	213	"The inews program appends `~/.signature' automatically."
0d20f9a0	214	(interactive)
7bf5350d	215	(message "Posting news will append your signature automatically."))
0d20f9a0 JB	216
0d20f9a0 JB	217	(defun news-setup (to subject in-reply-to newsgroups replybuffer)
d9f86af9	218	"Set up the news reply or posting buffer with the proper headers and mode."
0d20f9a0	219	(setq mail-reply-buffer replybuffer)
e63b8030 RS	220	(let ((mail-setup-hook nil)
	221	;; Avoid inserting a signature.
	222	(mail-signature))
0d20f9a0 JB	223	(if (null to)
	224	;; this hack is needed so that inews wont be confused by
	225	;; the fcc: and bcc: fields
	226	(let ((mail-self-blind nil)
	227	(mail-archive-file-name nil))
	228	(mail-setup to subject in-reply-to nil replybuffer nil)
	229	(beginning-of-line)
38c132a9	230	(delete-region (point) (progn (forward-line 1) (point)))
0d20f9a0 JB	231	(goto-char (point-max)))
	232	(mail-setup to subject in-reply-to nil replybuffer nil))
	233	;;;(mail-position-on-field "Posting-Front-End")
	234	;;;(insert (emacs-version))
	235	(goto-char (point-max))
	236	(if (let ((case-fold-search t))
	237	(re-search-backward "^Subject:" (point-min) t))
	238	(progn (beginning-of-line)
	239	(insert "Newsgroups: " (or newsgroups "") "\n")
	240	(if (not newsgroups)
	241	(backward-char 1)
	242	(goto-char (point-max)))))
5acd84d5 RS	243	(let (actual-header-separator)
	244	(rfc822-goto-eoh)
	245	(setq actual-header-separator (buffer-substring
	246	(point)
	247	(save-excursion (end-of-line) (point))))
	248	(setq paragraph-start
	249	(concat "^" actual-header-separator "$\\\|" paragraph-start))
	250	(setq paragraph-separate
	251	(concat "^" actual-header-separator "$\\\|" paragraph-separate)))
0d20f9a0 JB	252	(run-hooks 'news-setup-hook)))
	253
	254	(defun news-inews ()
	255	"Send a news message using inews."
	256	(interactive)
	257	(let* (newsgroups subject
	258	(case-fold-search nil))
	259	(save-excursion
	260	(save-restriction
5acd84d5	261	(narrow-to-region (point-min) (mail-header-end))
0d20f9a0 JB	262	(setq newsgroups (mail-fetch-field "newsgroups")
	263	subject (mail-fetch-field "subject")))
	264	(widen)
	265	(goto-char (point-min))
	266	(run-hooks 'news-inews-hook)
5acd84d5	267	(mail-sendmail-undelimit-header)
0d20f9a0 JB	268	(goto-char (point-max))
	269	;; require a newline at the end for inews to append .signature to
	270	(or (= (preceding-char) ?\n)
	271	(insert ?\n))
	272	(message "Posting to USENET...")
5cfee3ac RS	273	(unwind-protect
	274	(if (not (eq 0
	275	(call-process-region (point-min) (point-max)
	276	news-inews-program nil 0 nil
	277	"-h"))) ; take all header lines!
	278	;@@ setting of subject and newsgroups still needed?
	279	;"-t" subject
	280	;"-n" newsgroups
	281	(error "Posting to USENET failed")
	282	(message "Posting to USENET... done"))
6c01544a	283	(mail-sendmail-delimit-header)
5cfee3ac RS	284	(set-buffer-modified-p nil)))
5cfee3ac RS	285	(bury-buffer)))
0d20f9a0 JB	286
	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."
	292	(interactive)
5958eef6	293	(let (from cc subject date to reply-to message-id
0d20f9a0 JB	294	(buffer (current-buffer)))
	295	(save-restriction
	296	(narrow-to-region (point-min) (progn (goto-line (point-min))
	297	(search-forward "\n\n")
	298	(- (point) 1)))
	299	(setq from (mail-fetch-field "from")
	300	subject (mail-fetch-field "subject")
	301	reply-to (mail-fetch-field "reply-to")
5958eef6 RS	302	date (mail-fetch-field "date")
5958eef6 RS	303	message-id (mail-fetch-field "message-id")))
56eb270e RS	304	(setq to from)
	305	(pop-to-buffer "mail")
	306	(mail nil
	307	(if reply-to reply-to to)
	308	subject
	309	(let ((stop-pos (string-match " at \\\| @ \\\| (\\\| <" from)))
	310	(concat (if stop-pos (substring from 0 stop-pos) from)
5958eef6 RS	311	"'s message "
	312	(if message-id
	313	(concat message-id " of ")
	314	"of ")
56eb270e RS	315	date))
	316	nil
	317	buffer)))
0d20f9a0 JB	318
	319	;@@ the guts of news-reply and news-post-news should be combined. -tower
	320	(defun news-reply ()
	321	"Compose and post a reply (aka a followup) to the current article on USENET.
	322	While composing the followup, use \\[news-reply-yank-original] to yank the
	323	original message into it."
	324	(interactive)
	325	(if (y-or-n-p "Are you sure you want to followup to all of USENET? ")
	326	(let (from cc subject date to followup-to newsgroups message-of
	327	references distribution message-id
	328	(buffer (current-buffer)))
	329	(save-restriction
	330	(and (not (= 0 (buffer-size))) ;@@real problem is non-existence of
	331	;@@ of article file
	332	(equal major-mode 'news-mode) ;@@ if rmail-mode,
	333	;@@ should show full headers
	334	(progn
	335	(news-show-all-headers) ;@@ should save/restore header state,
	336	;@@ but rnews.el lacks support
	337	(narrow-to-region (point-min) (progn (goto-char (point-min))
	338	(search-forward "\n\n")
	339	(- (point) 1)))))
	340	(setq from (mail-fetch-field "from")
	341	news-reply-yank-from from
	342	;; @@ not handling old Title: field
	343	subject (mail-fetch-field "subject")
	344	date (mail-fetch-field "date")
	345	followup-to (mail-fetch-field "followup-to")
	346	newsgroups (or followup-to
	347	(mail-fetch-field "newsgroups"))
	348	references (mail-fetch-field "references")
	349	;; @@ not handling old Article-I.D.: field
	350	distribution (mail-fetch-field "distribution")
	351	message-id (mail-fetch-field "message-id")
	352	news-reply-yank-message-id message-id)
	353	(pop-to-buffer "post-news")
	354	(news-reply-mode)
	355	(if (and (buffer-modified-p)
	356	(not
	357	(y-or-n-p "Unsent article being composed; erase it? ")))
	358	()
	359	(progn
	360	(erase-buffer)
	361	(and subject
	362	(progn (if (string-match "\\`Re: " subject)
	363	(while (string-match "\\`Re: " subject)
	364	(setq subject (substring subject 4))))
	365	(setq subject (concat "Re: " subject))))
	366	(and from
	367	(progn
	368	(let ((stop-pos
	369	(string-match " at \\\| @ \\\| (\\\| <" from)))
	370	(setq message-of
	371	(concat
	372	(if stop-pos (substring from 0 stop-pos) from)
5958eef6 RS	373	"'s message "
	374	(if message-id
	375	(concat message-id " of ")
	376	"of ")
0d20f9a0 JB	377	date)))))
	378	(news-setup
	379	nil
	380	subject
	381	message-of
	382	newsgroups
	383	buffer)
	384	(if followup-to
	385	(progn (news-reply-followup-to)
	386	(insert followup-to)))
	387	(if distribution
	388	(progn
	389	(mail-position-on-field "Distribution")
	390	(insert distribution)))
	391	(mail-position-on-field "References")
	392	(if references
	393	(insert references))
	394	(if (and references message-id)
	395	(insert " "))
	396	(if message-id
	397	(insert message-id))
	398	(goto-char (point-max))))))
	399	(message "")))
	400
	401	;@@ the guts of news-reply and news-post-news should be combined. -tower
d9f86af9	402	;;;###autoload
ffb8c7cb	403	(defun news-post-news (&optional noquery)
0d20f9a0	404	"Begin editing a new USENET news article to be posted.
ffb8c7cb RS	405	Type \\[describe-mode] once editing the article to get a list of commands.
ffb8c7cb RS	406	If NOQUERY is non-nil, we do not query before doing the work."
0d20f9a0	407	(interactive)
ffb8c7cb RS	408	(if (or noquery
ffb8c7cb RS	409	(y-or-n-p "Are you sure you want to post to all of USENET? "))
0d20f9a0 JB	410	(let ((buffer (current-buffer)))
	411	(save-restriction
	412	(and (not (= 0 (buffer-size))) ;@@real problem is non-existence of
	413	;@@ of article file
	414	(equal major-mode 'news-mode) ;@@ if rmail-mode,
	415	;@@ should show full headers
	416	(progn
	417	(news-show-all-headers) ;@@ should save/restore header state,
	418	;@@ but rnews.el lacks support
	419	(narrow-to-region (point-min) (progn (goto-char (point-min))
	420	(search-forward "\n\n")
	421	(- (point) 1)))))
	422	(setq news-reply-yank-from (mail-fetch-field "from")
	423	;; @@ not handling old Article-I.D.: field
	424	news-reply-yank-message-id (mail-fetch-field "message-id")))
	425	(pop-to-buffer "post-news")
	426	(news-reply-mode)
	427	(if (and (buffer-modified-p)
	428	(not (y-or-n-p "Unsent article being composed; erase it? ")))
	429	() ;@@ not saving point from last time
	430	(progn (erase-buffer)
	431	(news-setup () () () () buffer))))
	432	(message "")))
	433
	434	(defun news-mail-other-window ()
	435	"Send mail in another window.
	436	While composing the message, use \\[news-reply-yank-original] to yank the
	437	original message into it."
	438	(interactive)
	439	(mail-other-window nil nil nil nil nil (current-buffer)))
c88ab9ce	440
896546cd RS	441	(provide 'rnewspost)
896546cd RS	442
c88ab9ce	443	;;; rnewspost.el ends here