Lines Matching +defs:news +defs:reply
8 ;; Keywords: news
40 "*Preferred method for posting USENET news.
176 (message-this-is-news nil t))
196 (const :tag "News article" :value message-this-is-news))
258 (defcustom gnus-confirm-mail-reply-to-news nil
259 "If non-nil, Gnus requests confirmation when replying to news.
260 This is done because new users often reply by mistake when reading
261 news.
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
303 (defvar gnus-msg-force-broken-reply-to nil)
327 (autoload 'gnus-uu-post-news "gnus-uu" nil t)
328 (autoload 'news-setup "rnewspost")
329 (autoload 'news-reply-mode "rnewspost")
330 (autoload 'rmail-dont-reply-to "mail-utils")
340 "p" gnus-summary-post-news
341 "i" gnus-summary-news-other-window
346 "r" gnus-summary-reply
348 "R" gnus-summary-reply-with-original
349 "w" gnus-summary-wide-reply
350 "W" gnus-summary-wide-reply-with-original
351 "v" gnus-summary-very-wide-reply
352 "V" gnus-summary-very-wide-reply-with-original
356 "u" gnus-uu-post-news
358 "Br" gnus-summary-reply-broken-reply-to
359 "BR" gnus-summary-reply-broken-reply-to-with-original
376 ,gnus-newsgroup-name ',gnus-article-reply)))
378 (defvar gnus-article-reply nil)
387 (,article gnus-article-reply)
412 (if (memq ,config '(reply-yank reply))
485 (message-reply address)))
488 (defun gnus-button-reply (&optional to-address wide)
489 "Like `message-reply'."
492 (message-reply to-address wide)))
548 ;;; Post news commands of Gnus group mode and summary mode
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
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).
613 a news."
625 (gnus-post-news 'post gnus-newsgroup-name nil nil nil nil
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
684 (message-news (gnus-group-real-name gnus-newsgroup-name))
693 (defun gnus-summary-post-news (&optional arg)
697 a news."
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."
767 (let ((message-reply-buffer gnus-article-copy)
768 (message-reply-headers
796 (message-cancel-news))
808 (gnus-setup-message 'reply-yank
828 ;; this buffer should be passed to all mail/news reply/post routines.
889 (defun gnus-post-news (post &optional group header article-buffer yank subject
890 force-news)
893 (let ((gnus-article-reply (and article-buffer (gnus-summary-article-number)))
896 (gnus-setup-message (cond (yank 'reply-yank)
897 (article-buffer 'reply)
914 (gnus-news-group-p to-group))
916 force-news
917 (and (gnus-news-group-p
923 ;; This is news.
925 (message-news
929 (gnus-msg-treat-broken-reply-to)
930 (message-followup (if (or newsgroup-p force-news)
949 (gnus-msg-treat-broken-reply-to)
950 (message-wide-reply to-address)))
954 (defun gnus-msg-treat-broken-reply-to (&optional force)
955 "Remove the Reply-to header if broken-reply-to."
958 gnus-newsgroup-name 'broken-reply-to))
961 (message-remove-header "reply-to"))))
1066 ;;; Mail reply commands of Gnus summary mode
1068 (defun gnus-summary-reply (&optional yank wide very-wide)
1069 "Start composing a mail reply to the current message.
1072 If WIDE, make a wide reply.
1073 If VERY-WIDE, make a very wide reply."
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)))
1088 (y-or-n-p "Really reply by mail to article author? "))
1093 (gnus-article-reply (or article (gnus-summary-article-number)))
1099 (gnus-setup-message (if yank 'reply-yank 'reply)
1106 (gnus-msg-treat-broken-reply-to)
1111 (gnus-msg-treat-broken-reply-to gnus-msg-force-broken-reply-to)
1119 (message-reply nil wide)
1140 (defun gnus-summary-reply-with-original (n &optional wide)
1141 "Start composing a reply mail to the current message.
1144 (gnus-summary-reply (gnus-summary-work-articles n) wide))
1146 (defun gnus-summary-reply-broken-reply-to (&optional yank wide very-wide)
1147 "Like `gnus-summary-reply' except removing reply-to field.
1150 If WIDE, make a wide reply.
1151 If VERY-WIDE, make a very wide reply."
1155 (let ((gnus-msg-force-broken-reply-to t))
1156 (gnus-summary-reply yank wide very-wide)))
1158 (defun gnus-summary-reply-broken-reply-to-with-original (n &optional wide)
1159 "Like `gnus-summary-reply-with-original' except removing reply-to field.
1162 (gnus-summary-reply-broken-reply-to (gnus-summary-work-articles n) wide))
1164 (defun gnus-summary-wide-reply (&optional yank)
1165 "Start composing a wide reply mail to the current message.
1171 (gnus-summary-reply yank t))
1173 (defun gnus-summary-wide-reply-with-original (n)
1174 "Start composing a wide reply mail to the current message.
1178 (gnus-summary-reply-with-original n t))
1180 (defun gnus-summary-very-wide-reply (&optional yank)
1181 "Start composing a very wide reply mail to the current message.
1187 (gnus-summary-reply yank t (gnus-summary-work-articles yank)))
1189 (defun gnus-summary-very-wide-reply-with-original (n)
1190 "Start composing a very wide reply mail to the current message.
1193 (gnus-summary-reply
1231 (let* ((gnus-article-reply (gnus-summary-article-number))
1232 (gnus-article-yanked-articles (list gnus-article-reply)))
1275 (gnus-setup-message 'reply-yank
1314 (gnus-summary-reply-with-original n)
1344 (gnus-summary-reply-with-original 1)
1395 (let ((reply gnus-article-reply)
1410 (if (message-news-p)
1411 message-required-news-headers
1420 (gnus-buffer-exists-p (car-safe reply))
1421 (cdr reply))
1422 (set-buffer (car reply))
1423 (gnus-summary-mark-article-as-replied (cdr reply)))
1428 "Send a reply to the address near point.
1560 If FETCH, try to fetch the article that this is a reply to, if indeed
1561 this is a reply."