lisp/obsolete/rnews.el

46 ;; added news-rotate-buffer-body
51 ;; added caesar-region, rename news-caesar-buffer-body, hacked accordingly
73   "Compose and post a reply to the current article on USENET.
85   "Begin editing a new USENET news article to be posted."
89   "Mail a reply to the author of the current article.
142 (defvar news-group-article-assoc nil)
277 and attribute for current article."
304   (define-key news-mode-map "j" 'news-goto-message)
307   (define-key news-mode-map "\ej" 'news-goto-news-group)
324   (define-key news-mode-map "\C-c\C-r" 'news-caesar-buffer-body))
332 .	move point to front of this news article (same as Meta-<).
333 Space	scroll to next screen of this news article.
334 Delete  scroll down previous page of this news article.
335 n	move to next news article, possibly next group.
336 p	move to previous news article, possibly previous group.
337 j	jump to news article specified by numeric position.
339 M-n     goto next news group.
340 M-p     goto previous news group.
343 C-c C-r caesar rotate all letters by 13 places in the article's body (rot13).
345 f       post a reply article to USENET.
346 a       post an original news article.
348 o	save the current article in the named file (append if file exists).
353 t       show all the headers this news article originally had.
356 m	mail a news article.  Same as C-x 4 m.
358 r	mail a reply to this news article.  Like m but initializes some fields.
377 ;  (make-local-variable 'news-group-article-assoc)
399 	      (list 'assoc ngroup 'news-group-article-assoc))
424   (setq news-group-article-assoc ())
433 	(goto-char 0)
443 	    (if (assoc tem news-group-article-assoc)
447 		    news-group-article-assoc
451 			  news-group-article-assoc)))))
478 	  (let ((item (assoc (car temp) news-group-article-assoc)))
508 (defun news-goto-news-group (gp)
511 				      news-group-article-assoc)))
517   (let ((grp (assoc gp news-group-article-assoc)))
526 (defun news-goto-message (arg)
527   "Goes to the article ARG in current newsgroup."
530       (setq arg (read-no-blanks-input "Go to article: " "")))
551   "updates the position of last article read in the current news group"
636       (goto-char start)
640   (goto-char start)
644     (goto-char start))))
656 	      (goto-char start)
659 		     (goto-char start)
664 	      (goto-char start)))))))
679   (goto-char pos)
714 	(setq group (assoc (car tem) news-group-article-assoc))
717 	  (goto-char 0)
726 			  news-group-article-assoc))
727        (goto-char 0)
742 				      news-group-article-assoc)))
752   (let ((tem (assoc group news-group-article-assoc)))
763   "Save the current article that is being read by appending to a file."
830   (let* ((files-start-end (news-cadr (assoc group news-group-article-assoc)))
877       (if (null (assoc gp news-group-article-assoc))
883 		  (goto-char 0)
896 		      (goto-char (point-max))
909 		      (setq news-group-article-assoc
913 				  news-group-article-assoc))))
966 	  (goto-char from)
970 ;;; news-caesar-buffer-body written by paul@media-lab.mit.edu  Wed Oct 1, 1986
972 (defun news-caesar-buffer-body (&optional rotnum)
985 		    (progn (goto-char (point-min))
988       (goto-char (point-max))