Lines Matching defs:reply
38 ;; restricted call of news-show-all-headers in news-post-news & news-reply
63 (defvar mail-reply-buffer)
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]
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]
111 (defun news-reply-mode ()
122 C-c C-y news-reply-yank-original (insert current message, in NEWS).
127 (make-local-variable 'mail-reply-buffer)
128 (setq mail-reply-buffer nil)
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 ()
171 (defun news-reply-followup-to ()
188 (defun news-reply-distribution ()
199 (defun news-reply-keywords ()
207 (defun news-reply-summary ()
215 (defun news-reply-signature ()
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."
222 (setq mail-reply-buffer replybuffer)
231 (mail-setup to subject in-reply-to nil replybuffer nil)
235 (mail-setup to subject in-reply-to nil replybuffer nil))
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
296 (let (from cc subject date to reply-to message-id
304 reply-to (mail-fetch-field "reply-to")
310 (if reply-to reply-to to)
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
344 news-reply-yank-from from
355 news-reply-yank-message-id message-id)
357 (news-reply-mode)
388 (progn (news-reply-followup-to)
404 ;@@ the guts of news-reply and news-post-news should be combined. -tower
425 (setq news-reply-yank-from (mail-fetch-field "from")
427 news-reply-yank-message-id (mail-fetch-field "message-id")))
429 (news-reply-mode)
439 While composing the message, use \\[news-reply-yank-original] to yank the