Lines Matching +defs:message +defs:news
8 ;; Keywords: news
35 (require 'message)
40 "*Preferred method for posting USENET news.
59 (defcustom gnus-outgoing-message-group nil
66 message in, you can set this variable to a function that checks the
69 :group 'gnus-message
80 :group 'gnus-message
86 :group 'gnus-message
97 of this message. Please trim your Newsgroups header to exclude this
106 :group 'gnus-message
109 (defcustom gnus-message-setup-hook nil
110 "Hook run after setting up a message buffer."
111 :group 'gnus-message
116 :group 'gnus-message
122 :group 'gnus-message
149 :group 'gnus-message
161 :group 'gnus-message
175 (message-this-is-mail nil nil)
176 (message-this-is-news nil t))
195 (const :tag "Mail message" :value message-this-is-mail)
196 (const :tag "News article" :value message-this-is-news))
216 "mm-util.el" "mm-decode.el" "nnmail.el" "message.el")
219 :group 'gnus-message
224 nnmail-split-fancy message-minibuffer-local-map)
227 :group 'gnus-message
238 (defcustom gnus-message-replysign
242 :group 'gnus-message
245 (defcustom gnus-message-replyencrypt
249 :group 'gnus-message
252 (defcustom gnus-message-replysignencrypted
255 :group 'gnus-message
258 (defcustom gnus-confirm-mail-reply-to-news nil
259 "If non-nil, Gnus requests confirmation when replying to news.
261 news.
267 :group 'gnus-message
273 (defcustom gnus-confirm-treat-mail-like-news
275 "If non-nil, Gnus will treat mail like news with regard to confirmation
276 when replying by mail. See the `gnus-confirm-mail-reply-to-news' variable
280 :group 'gnus-message
286 `gnus-summary-resend-message'."
288 :group 'gnus-message
297 (defvar gnus-message-buffer "*Mail Gnus*")
301 (defvar gnus-message-group-art nil)
305 (defconst gnus-bug-message
327 (autoload 'gnus-uu-post-news "gnus-uu" nil t)
328 (autoload 'news-setup "rnewspost")
329 (autoload 'news-reply-mode "rnewspost")
340 "p" gnus-summary-post-news
341 "i" gnus-summary-news-other-window
347 "y" gnus-summary-yank-message
356 "u" gnus-uu-post-news
368 "r" gnus-summary-resend-message
369 "e" gnus-summary-resend-message-edit)
379 (defmacro gnus-setup-message (config &rest forms)
380 (let ((winconf (make-symbol "gnus-setup-message-winconf"))
381 (buffer (make-symbol "gnus-setup-message-buffer"))
382 (article (make-symbol "gnus-setup-message-article"))
384 (group (make-symbol "gnus-setup-message-group")))
390 (message-header-setup-hook
391 (copy-sequence message-header-setup-hook))
393 (message-mode-hook (copy-sequence message-mode-hook)))
395 (add-hook 'message-header-setup-hook 'gnus-inews-insert-gcc)
396 (add-hook 'message-header-setup-hook 'gnus-inews-insert-archive-gcc)
397 ;; message-newsreader and message-mailer were formerly set in
399 ;; message-generate-headers-first is used. --ansel
400 (add-hook 'message-mode-hook
402 (setq message-newsreader
403 (setq message-mailer (gnus-extended-version)))))
411 (add-hook 'message-mode-hook
420 message-required-headers)
426 message-required-headers))
432 (setq gnus-message-buffer (current-buffer))
433 (set (make-local-variable 'gnus-message-group-art)
436 (gnus-run-hooks 'gnus-message-setup-hook)
437 (if (eq major-mode 'message-mode)
447 (message-hide-headers)
464 "Start editing a mail message to be sent.
465 Like `message-mail', but with Gnus paraphernalia, particularly the
470 (gnus-setup-message 'message
471 (message-mail to subject other-headers continue
484 (gnus-setup-message 'message
485 (message-reply address)))
489 "Like `message-reply'."
491 (gnus-setup-message 'message
492 (message-reply to-address wide)))
496 'gnus-msg-mail 'message-send-and-exit
497 'message-kill-buffer 'message-send-hook)
516 (gnus-make-local-hook 'message-sent-hook)
517 (add-hook 'message-sent-hook (if gnus-agent 'gnus-agent-possibly-do-gcc
520 (gnus-make-local-hook 'message-header-hook)
521 (add-hook 'message-header-hook 'gnus-agent-possibly-save-gcc nil t))
522 (setq message-post-method
525 (message-add-action
535 (message-add-action
545 (put 'gnus-setup-message 'lisp-indent-function 1)
546 (put 'gnus-setup-message 'edebug-form-spec '(form body))
548 ;;; Post news commands of Gnus group mode and summary mode
571 ;; #### see comment in gnus-setup-message -- drv
572 (gnus-setup-message 'message (message-mail)))
577 (defun gnus-group-news (&optional arg)
578 "Start composing a news.
582 This function prepares a news even when using mail groups. This is useful
602 ;; #### see comment in gnus-setup-message -- drv
603 (gnus-setup-message 'message
604 (message-news (gnus-group-real-name gnus-newsgroup-name))))
609 (defun gnus-group-post-news (&optional arg)
610 "Start composing a message (a news by default).
612 Depending on the selected group, the message might be either a mail or
613 a news."
615 ;; Bind this variable here to make message mode hooks work ok.
625 (gnus-post-news 'post gnus-newsgroup-name nil nil nil nil
650 ;; #### see comment in gnus-setup-message -- drv
651 (gnus-setup-message 'message (message-mail)))
656 (defun gnus-summary-news-other-window (&optional arg)
657 "Start composing a news in another window.
661 This function prepares a news even when using mail groups. This is useful
681 ;; #### see comment in gnus-setup-message -- drv
682 (gnus-setup-message 'message
684 (message-news (gnus-group-real-name gnus-newsgroup-name))
693 (defun gnus-summary-post-news (&optional arg)
694 "Start composing a message. Post to the current group by default.
696 Depending on the selected group, the message might be either a mail or
697 a news."
699 ;; Bind this variable here to make message mode hooks work ok.
709 (gnus-post-news 'post gnus-newsgroup-name)))
712 (defun gnus-summary-followup (yank &optional force-news)
731 (gnus-post-news nil gnus-newsgroup-name
733 yank nil force-news)
736 (defun gnus-summary-followup-with-original (n &optional force-news)
741 (gnus-summary-followup (gnus-summary-work-articles n) force-news))
744 "Followup to the current mail message via news."
751 "Followup to the current mail message via news."
757 (message-goto-body)
767 (let ((message-reply-buffer gnus-article-copy)
768 (message-reply-headers
774 (message-yank-original)
775 (message-exchange-point-and-mark)
789 (message-post-method
796 (message-cancel-news))
808 (gnus-setup-message 'reply-yank
811 (message-supersede)
819 message-send-actions))))
828 ;; this buffer should be passed to all mail/news reply/post routines.
852 (message-goto-body)
867 (while (looking-at message-unix-mail-delimiter)
871 end (or (message-goto-body)
878 (or (message-goto-body) (point-max))))
889 (defun gnus-post-news (post &optional group header article-buffer yank subject
890 force-news)
896 (gnus-setup-message (cond (yank 'reply-yank)
898 (t 'message))
914 (gnus-news-group-p to-group))
916 force-news
917 (and (gnus-news-group-p
923 ;; This is news.
925 (message-news
930 (message-followup (if (or newsgroup-p force-news)
933 (message-fetch-field "newsgroups"))
940 (message-mail (or to-address to-list))
947 message-send-actions)))
950 (message-wide-reply to-address)))
960 (message-narrow-to-head)
961 (message-remove-header "reply-to"))))
977 message-post-method))
1069 "Start composing a mail reply to the current message.
1078 ;; author of a news article (or mail message).
1080 (not (or (gnus-news-group-p gnus-newsgroup-name)
1081 gnus-confirm-treat-mail-like-news))
1082 (not (cond ((stringp gnus-confirm-mail-reply-to-news)
1083 (string-match gnus-confirm-mail-reply-to-news
1085 ((functionp gnus-confirm-mail-reply-to-news)
1086 (funcall gnus-confirm-mail-reply-to-news gnus-newsgroup-name))
1087 (t gnus-confirm-mail-reply-to-news)))
1099 (gnus-setup-message (if yank 'reply-yank 'reply)
1108 (message-narrow-to-head)
1113 (message-narrow-to-head)
1119 (message-reply nil wide)
1126 (when (or gnus-message-replysign gnus-message-replyencrypt)
1132 (cond ((and gnus-message-replyencrypt encrypted)
1133 (mml-secure-message mml-default-encrypt-method
1134 (if gnus-message-replysignencrypted
1137 ((and gnus-message-replysign signed)
1138 (mml-secure-message mml-default-sign-method 'sign))))))
1141 "Start composing a reply mail to the current message.
1165 "Start composing a wide reply mail to the current message.
1174 "Start composing a wide reply mail to the current message.
1181 "Start composing a very wide reply mail to the current message.
1190 "Start composing a very wide reply mail to the current message.
1197 "Forward the current message(s) to another user.
1199 if ARG is nil, see `message-forward-as-mime' and `message-forward-show-mml';
1200 if ARG is 1, decode the message and forward directly inline;
1201 if ARG is 2, forward message as an rfc822 MIME section;
1202 if ARG is 3, decode message and forward as an rfc822 MIME section;
1203 if ARG is 4, forward message directly inline;
1204 otherwise, use flipped `message-forward-as-mime'.
1207 `message-forward-ignored-headers'."
1213 (let ((message-forward-as-mime message-forward-as-mime)
1214 (message-forward-show-mml message-forward-show-mml))
1218 (setq message-forward-as-mime nil
1219 message-forward-show-mml t))
1221 (setq message-forward-as-mime t
1222 message-forward-show-mml nil))
1224 (setq message-forward-as-mime t
1225 message-forward-show-mml t))
1227 (setq message-forward-as-mime nil
1228 message-forward-show-mml nil))
1230 (setq message-forward-as-mime (not message-forward-as-mime))))
1233 (gnus-setup-message 'forward
1243 (message-forward post)))))))
1245 (defun gnus-summary-resend-message (address n)
1248 (list (message-read-from-minibuffer
1249 "Resend message(s) to: "
1264 (message-resend address))
1268 (defun gnus-summary-resend-message-edit ()
1271 contents of the message, and then, everything will happen as when
1272 composing a new message."
1275 (gnus-setup-message 'reply-yank
1279 (to (message-fetch-field "to")))
1280 ;; Get a normal message buffer.
1281 (message-pop-to-buffer (message-buffer-name "Resend" to))
1284 (message-narrow-to-head-1)
1286 (message-remove-header "Message-ID")
1287 (message-remove-header message-ignored-resent-headers t)
1302 (defvar gnus-nastygram-message
1315 (set-buffer gnus-message-buffer)
1316 (message-goto-body)
1317 (insert (format gnus-nastygram-message group))
1318 (message-send-and-exit))))
1332 (if (and (<= (length (message-tokenize-header
1338 (not (member group (message-tokenize-header
1341 (gnus-message 1 "Followup-to restricted")
1342 (gnus-message 1 "Not a crossposted article"))
1345 (set-buffer gnus-message-buffer)
1346 (message-goto-body)
1348 (message-goto-subject)
1353 (message-send-and-exit)))))))
1392 (defun gnus-put-message ()
1393 "Put the current message in some group and return to Gnus."
1407 (message-narrow-to-headers)
1409 (message-generate-headers
1410 (if (message-news-p)
1411 message-required-news-headers
1412 message-required-mail-headers)))
1446 (gnus-setup-message (if (message-mail-user-agent) 'message 'bug)
1447 (unless (message-mail-user-agent)
1452 (insert gnus-bug-message)
1454 (message-pop-to-buffer "*Gnus Bug*"))
1455 (let ((message-this-is-mail t))
1456 (message-setup `((To . ,gnus-maintainer) (Subject . ""))))
1458 (push `(gnus-bug-kill-buffer) message-send-actions))
1477 (message "")))
1483 (defun gnus-summary-yank-message (buffer n)
1484 "Yank the current article into a composed message."
1486 (list (completing-read "Buffer: " (mapcar 'list (message-buffers)) nil t)
1493 (message-yank-buffer gnus-article-buffer))))
1502 (gnus-message 4 "Please wait while we snoop your variables...")
1514 (gnus-message 4 "Malformed sources in file %s" file)
1556 "Re-mail the current message.
1557 This only makes sense if the current message is a bounce message that
1565 (gnus-setup-message 'compose-bounce
1568 (message-bounce)
1581 (eq (car (gnus-server-to-method gnus-message-archive-method))
1583 gnus-message-archive-method)
1590 ;; Do Gcc handling, which copied the message over to some group.
1595 (message-narrow-to-headers)
1601 (message-remove-header "gcc")
1603 (setq groups (message-unquote-tokens
1604 (message-tokenize-header gcc " ,")))
1620 (message-encode-message-body)
1622 (message-narrow-to-headers)
1623 (let* ((mail-parse-charset message-default-charset)
1625 (message-narrow-to-headers-or-head)
1626 (message-fetch-field "Newsgroups")))
1628 (message-narrow-to-headers-or-head)
1629 (message-fetch-field "Followup-To")))
1656 (gnus-message 1 "Couldn't store article in group %s: %s"
1657 group (gnus-status-message method))
1671 "Insert Gcc headers based on `gnus-outgoing-message-group'."
1674 (message-narrow-to-headers)
1675 (let* ((group gnus-outgoing-message-group)
1696 (let* ((var gnus-message-archive-group)
1706 ((null gnus-message-archive-method)
1744 (message-narrow-to-headers)
1771 name gnus-message-archive-method))))
1819 (let ((header (message-fetch-field (pop style))))
1839 (let ((header (message-fetch-field (nth 1 match))))
1896 (gnus-make-local-hook 'message-setup-hook)
1900 (add-hook 'message-setup-hook
1907 (message-goto-body)
1910 (set (make-local-variable 'message-signature) nil)
1911 (set (make-local-variable 'message-signature-file) nil)
1916 (let ((message-signature ,(cdr result)))
1917 (when message-signature
1918 (message-insert-signature)))))))
1926 (message-remove-header ,header)
1929 (message-goto-eoh)
1935 (add-hook 'message-setup-hook
1943 (message-remove-header "From")
1944 (message-goto-eoh)
1945 (insert "From: " (message-make-from) "\n"))))