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

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

;; Copyright (C) 1985, 1986, 1987, 1995, 2001, 2002, 2003, 2004,
;;   2005, 2006, 2007, 2008 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 3, 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., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, 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 mail-reply-buffer)

(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-mode-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)

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