Lines Matching defs:news
1 ;;; message.el --- composing mail and news messages
7 ;; Keywords: mail, news
58 "Mail and news message composing."
61 :group 'news)
101 (defgroup message-news nil
179 "Whether to insert a Cancel-Lock header in news postings."
200 :group 'message-news
206 Also see `message-required-news-headers' and
209 :group 'message-news
217 :group 'message-news
222 (defcustom message-required-news-headers
231 :group 'message-news
253 (defcustom message-ignored-news-headers
256 :group 'message-news
440 Generate the buffer name in the Message way (e.g., *mail*, *news*,
441 *mail to whom*, *news on group*, etc.) and continue editing in the
488 (defcustom message-user-organization-file "/usr/lib/news/organization"
489 "*Local news organization file."
630 (defcustom message-send-news-function 'message-send-news
631 "Function to call to send the current buffer as news.
635 :group 'message-news
795 "*Method used to post news.
798 :group 'message-news
811 generate. The variables `message-required-news-headers' and
958 :group 'message-news
965 :group 'message-news
973 :group 'message-news
1019 (defcustom message-default-news-headers ""
1020 "*A string of header lines to be inserted in outgoing news articles."
1022 :group 'message-news
1063 '((news message-news-p message-send-via-news)
1358 "Alist of mail and news faces for facemenu.
1377 (defcustom message-send-news-hook nil
1378 "Hook run before sending news messages.
1380 news."
1500 (defvar message-this-is-news nil)
2237 (defun message-news-p ()
2238 "Say whether the current buffer contains a news message."
2240 (or message-this-is-news
2249 (and (not message-this-is-news)
2473 ;; (typical) news stuff
2576 "Major mode for editing mail and news to be sent.
2594 C-c C-t `message-insert-to' (add a To header to a news followup)
2596 C-c C-n `message-insert-newsgroups' (add a Newsgroup header to a news reply)
3234 Mail and USENET news headers are not rotated."
3264 (if (message-news-p) (message-fetch-field "Newsgroups")
3621 (not (eq (car elem) 'news)))
3663 (defun message-send-via-news (arg)
3664 "Send the current message via news."
3665 (funcall message-send-news-function arg))
3868 (news (message-news-p))
3890 (if news nil message-deletable-headers)))
3934 (and news
4157 (defun message-send-news (&optional arg)
4190 (message-this-is-news t)
4194 (if (not (message-check-news-body-syntax))
4199 (message-generate-headers message-required-news-headers)
4212 (message-check-news-syntax)))
4232 (message-remove-header message-ignored-news-headers t)
4246 (run-hooks 'message-send-news-hook)
4248 (message "Sending news via %s..." (gnus-server-string method))
4254 (push 'news message-sent-message-via)
4255 (message "Couldn't send message via news: %s"
4271 (defun message-check-news-syntax ()
4280 (message-check-news-header-syntax))))))
4282 (defun message-check-news-header-syntax ()
4571 (defun message-check-news-body-syntax ()
5329 (when (or (message-news-p)
5450 ;; have not been generated, thus we use message-this-is-news directly.
5451 (when (and message-this-is-news message-cater-to-broken-inn)
5469 (if (and message-this-is-news message-cater-to-broken-inn)
5742 (when (message-news-p)
5743 (when message-default-news-headers
5744 (insert message-default-news-headers)
5749 (append message-required-news-headers
5814 (when (message-news-p)
5818 (copy-sequence message-required-news-headers)))))
5865 (defun message-news (&optional newsgroups subject)
5866 "Start editing a news article to be sent."
5868 (let ((message-this-is-news t))
6107 (message-this-is-news t)
6161 `Followup-To: poster' sends your response via e-mail instead of news.
6169 (setq message-this-is-news nil)
6255 (defun message-cancel-news (&optional arg)
6259 (unless (message-news-p)
6260 (error "This is not a news article; canceling is impossible"))
6276 (message-news)
6293 (funcall message-send-news-function))
6386 news, Source is the list of newsgroups is was posted to."
6403 Source is the sender, and if the original message was news, Source is
6457 (defun message-forward (&optional news digest)
6459 Optional NEWS will use news to forward instead of mail.
6468 (if news
6469 (message-news nil subject)
6750 (defun message-news-other-window (&optional newsgroups subject)
6751 "Start editing a news article to be sent."
6759 (let ((message-this-is-news t))
6764 (defun message-news-other-frame (&optional newsgroups subject)
6765 "Start editing a news article to be sent."
6773 (let ((message-this-is-news t))