Lines Matching defs:news
1 ;;; rnewspost.el --- USENET news poster/mailer for GNU Emacs
7 ;; Keywords: mail, news
32 ;; - not worth the code space to support the old A news Title: (which
35 ;; changed C-c C-r key-binding due to rename of news-caesar-buffer-body
38 ;; restricted call of news-show-all-headers in news-post-news & news-reply
41 ;; commented out -n and -t args in news-inews tower@gnu.org 15 Oct 87
44 ;(defvar news-inews-program "inews"
45 ; "Function to post news.")
47 ;; Replying and posting news items are done by these functions.
65 (defvar news-reply-mode-map () "Mode map used by news-reply.")
67 (or news-reply-mode-map
69 (setq news-reply-mode-map (make-keymap))
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)
76 (define-key news-reply-mode-map "\C-c\C-t" 'mail-text)
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)
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]
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]
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]
100 (define-key news-reply-mode-map [menu-bar news]
102 (define-key news-reply-mode-map [menu-bar news news-caesar-buffer-body]
103 '("Rot13" . news-caesar-buffer-body))
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]
108 (define-key news-reply-mode-map [menu-bar news news-inews]
109 '("Send" . news-inews))))
111 (defun news-reply-mode ()
112 "Major mode for editing news to be posted on USENET.
114 news.announce.newusers .
117 C-c C-s news-inews (post the message) C-c C-c news-inews
122 C-c C-y news-reply-yank-original (insert current message, in NEWS).
130 (use-local-map news-reply-mode-map)
132 (setq major-mode 'news-reply-mode)
136 (run-mode-hooks 'text-mode-hook 'news-reply-mode-hook))
138 (defvar news-reply-yank-from ""
139 "Save `From:' field for `news-reply-yank-original'.")
141 (defvar news-reply-yank-message-id ""
142 "Save `Message-Id:' field for `news-reply-yank-original'.")
144 (defun news-reply-yank-original (arg)
153 (run-hooks 'news-reply-header-hook))
155 (defvar news-reply-header-hook
157 (insert "In article " news-reply-yank-message-id
158 " " news-reply-yank-from " writes:\n\n"))
161 (defun news-reply-newsgroups ()
165 Newsgroups: news.misc,comp.misc,rec.misc"
171 (defun news-reply-followup-to ()
177 Newsgroups: news.misc,comp.misc,rec.misc,misc.misc,soc.misc
178 Followup-To: news.misc,comp.misc,rec.misc"
188 (defun news-reply-distribution ()
195 ;; @@could do a completing read based on the news library file:
199 (defun news-reply-keywords ()
201 Used as an aid to the news reader, it can contain a few, well selected keywords
207 (defun news-reply-summary ()
209 Used as an aid to the news reader, it can contain a succinct
215 (defun news-reply-signature ()
218 (message "Posting news will append your signature automatically."))
220 (defun news-setup (to subject in-reply-to newsgroups replybuffer)
221 "Set up the news reply or posting buffer with the proper headers and mode."
255 (run-hooks 'news-setup-hook)))
257 (defun news-inews ()
258 "Send a news message using inews."
269 (run-hooks 'news-inews-hook)
279 news-inews-program nil 0 nil
290 ;@@ shares some code with news-reply and news-post-news
291 (defun news-mail-reply ()
293 While composing the reply, use \\[news-reply-yank-original] to yank the
322 ;@@ the guts of news-reply and news-post-news should be combined. -tower
323 (defun news-reply ()
325 While composing the followup, use \\[news-reply-yank-original] to yank the
335 (equal major-mode 'news-mode) ;@@ if rmail-mode,
338 (news-show-all-headers) ;@@ should save/restore header state,
344 news-reply-yank-from from
355 news-reply-yank-message-id message-id)
356 (pop-to-buffer "*post-news*")
357 (news-reply-mode)
381 (news-setup
388 (progn (news-reply-followup-to)
404 ;@@ the guts of news-reply and news-post-news should be combined. -tower
406 (defun news-post-news (&optional noquery)
407 "Begin editing a new USENET news article to be posted.
417 (equal major-mode 'news-mode) ;@@ if rmail-mode,
420 (news-show-all-headers) ;@@ should save/restore header state,
425 (setq news-reply-yank-from (mail-fetch-field "from")
427 news-reply-yank-message-id (mail-fetch-field "message-id")))
428 (pop-to-buffer "*post-news*")
429 (news-reply-mode)
434 (news-setup () () () () buffer))))
437 (defun news-mail-other-window ()
439 While composing the message, use \\[news-reply-yank-original] to yank the