Lines Matching defs:newsgroups
194 `empty', `existing-newsgroups', `from', `illegible-text',
196 `multiple-headers', `new-text', `newsgroups', `quoting-style',
197 `repeated-newsgroups', `reply-to', `sender', `sendsys', `shoot',
199 and `valid-newsgroups'."
1190 (defface message-header-newsgroups
1199 "Face used for displaying newsgroups headers."
1202 (put 'message-header-newsgroups-face 'face-alias 'message-header-newsgroups)
1213 "Face used for displaying newsgroups headers."
1323 (2 'message-header-newsgroups nil t))
2022 (message-goto-newsgroups)
2244 (and (message-fetch-field "newsgroups")
2341 (define-key message-mode-map "\C-c\C-f\C-n" 'message-goto-newsgroups)
2368 (define-key message-mode-map "\C-c\C-n" 'message-insert-newsgroups)
2476 ["Newsgroups" message-goto-newsgroups t]
2477 ["Fetch Newsgroups" message-insert-newsgroups t]
2596 C-c C-n `message-insert-newsgroups' (add a Newsgroup header to a news reply)
2758 (defun message-goto-newsgroups ()
2930 (defun message-insert-newsgroups ()
2934 (mail-fetch-field "newsgroups")
2935 (not (string-match "\\` *\\'" (mail-fetch-field "newsgroups"))))
2937 (insert (or (message-fetch-reply-field "newsgroups") "")))
3174 Note that this should not be used in newsgroups."
4163 (newsgroups-field (save-restriction
4174 (gnus-group-name-charset method newsgroups-field))
4187 (cons '(existing-newsgroups . disabled)
4192 (gnus-setup-posting-charset newsgroups-field))
4208 (cons '(valid-newsgroups . disabled)
4285 (message-check 'newsgroups
4286 (let ((group (message-fetch-field "newsgroups")))
4292 "The newsgroups field is empty or missing. Posting is denied.")))))
4355 (let ((newsgroups (message-fetch-field "newsgroups"))
4358 (when (and newsgroups
4359 (string-match "," newsgroups)
4369 newsgroups)))))))))
4399 (message-check 'existing-newsgroups
4401 (newsgroups (message-fetch-field "newsgroups"))
4405 (concat newsgroups "," followup-to)
4406 newsgroups)))
4474 (message-check 'valid-newsgroups
4498 (message-check 'repeated-newsgroups
5337 (let (newsgroups)
5341 (when (setq newsgroups (message-fetch-field "newsgroups"))
5343 (insert "Posted-To: " newsgroups "\n")))
5348 (insert (format message-courtesy-message newsgroups)))
5637 (setq group (message-fetch-field "newsgroups"))
5865 (defun message-news (&optional newsgroups subject)
5869 (message-pop-to-buffer (message-buffer-name "posting" nil newsgroups))
5870 (message-setup `((Newsgroups . ,(or newsgroups ""))
6098 (defun message-followup (&optional to-newsgroups)
6108 followup-to distribution newsgroups gnus-warning posted-to)
6124 newsgroups (message-fetch-field "newsgroups")
6142 (message-pop-to-buffer (message-buffer-name "followup" from newsgroups))
6150 (to-newsgroups
6151 (list (cons 'Newsgroups to-newsgroups)))
6171 (cons 'Newsgroups newsgroups)))
6173 (if (or (equal followup-to newsgroups)
6181 "the specified newsgroups"
6184 If a message is posted to several newsgroups, Followup-To is often
6189 Also, some source/announcement newsgroups are not intended for discussion;
6190 responses here are directed to other newsgroups.
6195 (cons 'Newsgroups newsgroups))))))
6199 `((Newsgroups . ,newsgroups))))
6261 (let (from newsgroups message-id distribution buf)
6267 newsgroups (message-fetch-field "newsgroups")
6279 (insert "Newsgroups: " newsgroups "\n"
6386 news, Source is the list of newsgroups is was posted to."
6387 (let* ((group (message-fetch-field "newsgroups"))
6404 the list of newsgroups is was posted to."
6405 (let* ((group (message-fetch-field "newsgroups"))
6750 (defun message-news-other-window (&optional newsgroups subject)
6758 (message-pop-to-buffer (message-buffer-name "posting" nil newsgroups)))
6760 (message-setup `((Newsgroups . ,(or newsgroups ""))
6764 (defun message-news-other-frame (&optional newsgroups subject)
6772 (message-pop-to-buffer (message-buffer-name "posting" nil newsgroups)))
6774 (message-setup `((Newsgroups . ,(or newsgroups ""))