gnus-msg.el 69.5 KB
Newer Older
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
1
;;; gnus-msg.el --- mail and post interface for Gnus
2

Paul Eggert's avatar
Paul Eggert committed
3
;; Copyright (C) 1995-2016 Free Software Foundation, Inc.
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
4 5

;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
6
;;	Lars Magne Ingebrigtsen <larsi@gnus.org>
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
7 8 9 10
;; Keywords: news

;; This file is part of GNU Emacs.

11
;; GNU Emacs is free software: you can redistribute it and/or modify
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
12
;; it under the terms of the GNU General Public License as published by
13 14
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
15 16 17 18 19 20 21

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
22
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
23 24 25 26 27

;;; Commentary:

;;; Code:

28 29
(eval-when-compile (require 'cl))

Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
30 31 32
(require 'gnus)
(require 'message)
(require 'gnus-art)
33
(require 'gnus-util)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
34

35
(defcustom gnus-post-method 'current
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
36 37
  "*Preferred method for posting USENET news.

38 39 40
If this variable is `current' (which is the default), Gnus will use
the \"current\" select method when posting.  If it is `native', Gnus
will use the native select method when posting.
41 42 43 44

This method will not be used in mail groups and the like, only in
\"real\" newsgroups.

45
If not `native' nor `current', the value must be a valid method as discussed
46 47
in the documentation of `gnus-select-method'.  It can also be a list of
methods.  If that is the case, the user will be queried for what select
48 49
method to use when posting."
  :group 'gnus-group-foreign
50 51 52
  :link '(custom-manual "(gnus)Posting Server")
  :type `(choice (const native)
		 (const current)
53
		 (sexp :tag "Methods" ,gnus-select-method)))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
54

55
(defcustom gnus-outgoing-message-group nil
56
  "All outgoing messages will be put in this group.
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
57 58 59 60 61 62 63
If you want to store all your outgoing mail and articles in the group
\"nnml:archive\", you set this variable to that value.  This variable
can also be a list of group names.

If you want to have greater control over what group to put each
message in, you can set this variable to a function that checks the
current newsgroup name and then returns a suitable group name (or list
64 65
of names)."
  :group 'gnus-message
66 67 68 69
  :type '(choice (const nil)
		 (function)
		 (string :tag "Group")
		 (repeat :tag "List of groups" (string :tag "Group"))))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
70

71 72
(make-obsolete-variable 'gnus-outgoing-message-group 'gnus-message-archive-group "24.1")

73 74
(defcustom gnus-mailing-list-groups nil
  "*If non-nil a regexp matching groups that are really mailing lists.
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
75 76
This is useful when you're reading a mailing list that has been
gatewayed to a newsgroup, and you want to followup to an article in
77 78 79 80
the group."
  :group 'gnus-message
  :type '(choice (regexp)
		 (const nil)))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
81

82 83 84 85
(defcustom gnus-add-to-list nil
  "*If non-nil, add a `to-list' parameter automatically."
  :group 'gnus-message
  :type 'boolean)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
86

87
(defcustom gnus-crosspost-complaint
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
88 89 90 91 92 93 94 95 96 97 98 99 100 101 102
  "Hi,

You posted the article below with the following Newsgroups header:

Newsgroups: %s

The %s group, at least, was an inappropriate recipient
of this message.  Please trim your Newsgroups header to exclude this
group before posting in the future.

Thank you.

"
  "Format string to be inserted when complaining about crossposts.
The first %s will be replaced by the Newsgroups header;
103 104 105 106 107 108 109
the second with the current group name."
  :group 'gnus-message
  :type 'string)

(defcustom gnus-message-setup-hook nil
  "Hook run after setting up a message buffer."
  :group 'gnus-message
Miles Bader's avatar
Miles Bader committed
110
  :options '(message-remove-blank-cited-lines)
111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146
  :type 'hook)

(defcustom gnus-bug-create-help-buffer t
  "*Should we create the *Gnus Help Bug* buffer?"
  :group 'gnus-message
  :type 'boolean)

(defcustom gnus-posting-styles nil
  "*Alist of styles to use when posting.
See Info node `(gnus)Posting Styles'."
  :group 'gnus-message
  :link '(custom-manual "(gnus)Posting Styles")
  :type '(repeat (cons (choice (regexp)
			       (variable)
			       (list (const header)
				     (string :tag "Header")
				     (regexp :tag "Regexp"))
			       (function)
			       (sexp))
		       (repeat (list
				(choice (const signature)
					(const signature-file)
					(const organization)
					(const address)
					(const x-face-file)
					(const name)
					(const body)
					(symbol)
					(string :tag "Header"))
				(choice (string)
					(function)
					(variable)
					(sexp)))))))

(defcustom gnus-gcc-mark-as-read nil
  "If non-nil, automatically mark Gcc articles as read."
147
  :version "22.1"
148 149 150 151
  :group 'gnus-message
  :type 'boolean)

(make-obsolete-variable 'gnus-inews-mark-gcc-as-read
152
			'gnus-gcc-mark-as-read "Emacs 22.1")
153 154 155 156 157 158

(defcustom gnus-gcc-externalize-attachments nil
  "Should local-file attachments be included as external parts in Gcc copies?
If it is `all', attach files as external parts;
if a regexp and matches the Gcc group name, attach files as external parts;
if nil, attach files as normal parts."
159
  :version "22.1"
160 161 162 163 164
  :group 'gnus-message
  :type '(choice (const nil :tag "None")
		 (const all :tag "Any")
		 (string :tag "Regexp")))

165 166 167 168 169 170 171 172 173 174 175
(defcustom gnus-gcc-self-resent-messages 'no-gcc-self
  "Like `gcc-self' group parameter, only for unmodified resent messages.
Applied to messages sent by `gnus-summary-resend-message'.  Non-nil
value of this variable takes precedence over any existing Gcc header.

If this is `none', no Gcc copy will be made.  If this is t, messages
resent will be Gcc'd to the current group.  If this is a string, it
specifies a group to which resent messages will be Gcc'd.  If this is
nil, Gcc will be done according to existing Gcc header(s), if any.
If this is `no-gcc-self', resent messages will be Gcc'd to groups that
existing Gcc header specifies, except for the current group."
176
  :version "24.3"
177 178 179 180
  :group 'gnus-message
  :type '(choice (const none) (const t) string (const nil)
		 (const no-gcc-self)))

181 182 183 184 185 186 187
(gnus-define-group-parameter
 posting-charset-alist
 :type list
 :function-document
 "Return the permitted unencoded charsets for posting of GROUP."
 :variable gnus-group-posting-charset-alist
 :variable-default
188
  '(("^\\(no\\|fr\\)\\.[^,]*\\(,[ \t\n]*\\(no\\|fr\\)\\.[^,]*\\)*$" iso-8859-1 (iso-8859-1))
189 190 191
    ("^\\(fido7\\|relcom\\)\\.[^,]*\\(,[ \t\n]*\\(fido7\\|relcom\\)\\.[^,]*\\)*$" koi8-r (koi8-r))
    (message-this-is-mail nil nil)
    (message-this-is-news nil t))
192
 :variable-document
193 194 195 196 197 198 199 200 201 202 203 204
  "Alist of regexps and permitted unencoded charsets for posting.
Each element of the alist has the form (TEST HEADER BODY-LIST), where
TEST is either a regular expression matching the newsgroup header or a
variable to query,
HEADER is the charset which may be left unencoded in the header (nil
means encode all charsets),
BODY-LIST is a list of charsets which may be encoded using 8bit
content-transfer encoding in the body, or one of the special values
nil (always encode using quoted-printable) or t (always use 8bit).

Note that any value other than nil for HEADER infringes some RFCs, so
use this option with care."
205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232
 :variable-group gnus-charset
 :variable-type
 '(repeat (list :tag "Permitted unencoded charsets"
		(choice :tag "Where"
			(regexp :tag "Group")
			(const :tag "Mail message" :value message-this-is-mail)
			(const :tag "News article" :value message-this-is-news))
		(choice :tag "Header"
			(const :tag "None" nil)
			(symbol :tag "Charset"))
		(choice :tag "Body"
			(const :tag "Any" :value t)
			(const :tag "None" :value nil)
			(repeat :tag "Charsets"
				(symbol :tag "Charset")))))
 :parameter-type '(choice :tag "Permitted unencoded charsets"
			  :value nil
			  (repeat (symbol)))
 :parameter-document       "\
List of charsets that are permitted to be unencoded.")

(defcustom gnus-debug-files
  '("gnus.el" "gnus-sum.el" "gnus-group.el"
    "gnus-art.el" "gnus-start.el" "gnus-async.el"
    "gnus-msg.el" "gnus-score.el" "gnus-win.el" "gnus-topic.el"
    "gnus-agent.el" "gnus-cache.el" "gnus-srvr.el"
    "mm-util.el" "mm-decode.el" "nnmail.el" "message.el")
  "Files whose variables will be reported in `gnus-bug'."
233
  :version "22.1"
234 235 236 237 238 239 240
  :group 'gnus-message
  :type '(repeat (string :tag "File")))

(defcustom gnus-debug-exclude-variables
  '(mm-mime-mule-charset-alist
    nnmail-split-fancy message-minibuffer-local-map)
  "Variables that should not be reported in `gnus-bug'."
241
  :version "22.1"
242 243 244 245 246 247 248
  :group 'gnus-message
  :type '(repeat (symbol :tag "Variable")))

(defcustom gnus-discouraged-post-methods
  '(nndraft nnml nnimap nnmaildir nnmh nnfolder nndir)
  "A list of back ends that are not used in \"real\" newsgroups.
This variable is used only when `gnus-post-method' is `current'."
249
  :version "22.1"
250 251 252 253 254 255 256 257 258 259
  :group 'gnus-group-foreign
  :type '(repeat (symbol :tag "Back end")))

(defcustom gnus-message-replysign
  nil
  "Automatically sign replies to signed messages.
See also the `mml-default-sign-method' variable."
  :group 'gnus-message
  :type 'boolean)

260
(defcustom gnus-message-replyencrypt t
261 262
  "Automatically encrypt replies to encrypted messages.
See also the `mml-default-encrypt-method' variable."
263
  :version "24.1"
264 265 266 267 268 269 270 271 272
  :group 'gnus-message
  :type 'boolean)

(defcustom gnus-message-replysignencrypted
  t
  "Setting this causes automatically encrypted messages to also be signed."
  :group 'gnus-message
  :type 'boolean)

273 274
(defcustom gnus-confirm-mail-reply-to-news (and gnus-novice-user
						(not gnus-expert-user))
275 276 277 278
  "If non-nil, Gnus requests confirmation when replying to news.
This is done because new users often reply by mistake when reading
news.
This can also be a function receiving the group name as the only
279 280
parameter, which should return non-nil if a confirmation is needed; or
a regexp, in which case a confirmation is asked for if the group name
281
matches the regexp."
282
  :version "23.1" ;; No Gnus (default changed)
283 284 285
  :group 'gnus-message
  :type '(choice (const :tag "No" nil)
		 (const :tag "Yes" t)
286 287
		 (regexp :tag "If group matches regexp")
		 (function :tag "If function evaluates to non-nil")))
288 289 290 291 292 293 294

(defcustom gnus-confirm-treat-mail-like-news
  nil
  "If non-nil, Gnus will treat mail like news with regard to confirmation
when replying by mail.  See the `gnus-confirm-mail-reply-to-news' variable
for fine-tuning this.
If nil, Gnus will never ask for confirmation if replying to mail."
295
  :version "22.1"
296 297 298 299 300 301 302
  :group 'gnus-message
  :type 'boolean)

(defcustom gnus-summary-resend-default-address t
  "If non-nil, Gnus tries to suggest a default address to resend to.
If nil, the address field will always be empty after invoking
`gnus-summary-resend-message'."
303
  :version "22.1"
304 305
  :group 'gnus-message
  :type 'boolean)
306

307 308 309
(defcustom gnus-message-highlight-citation
  t ;; gnus-treat-highlight-citation ;; gnus-cite dependency
  "Enable highlighting of different citation levels in message-mode."
310
  :version "23.1" ;; No Gnus
311 312 313 314
  :group 'gnus-cite
  :group 'gnus-message
  :type 'boolean)

315 316 317 318 319 320
(defcustom gnus-gcc-pre-body-encode-hook nil
  "A hook called before encoding the body of the Gcc copy of a message.
The current buffer (when the hook is run) contains the message
including the message header.  Changes made to the message will
only affect the Gcc copy, but not the original message."
  :group 'gnus-message
Glenn Morris's avatar
Glenn Morris committed
321
  :version "24.3"
322 323 324 325 326 327 328 329
  :type 'hook)

(defcustom gnus-gcc-post-body-encode-hook nil
    "A hook called after encoding the body of the Gcc copy of a message.
The current buffer (when the hook is run) contains the message
including the message header.  Changes made to the message will
only affect the Gcc copy, but not the original message."
  :group 'gnus-message
Glenn Morris's avatar
Glenn Morris committed
330
  :version "24.3"
331 332
  :type 'hook)

333 334
(autoload 'gnus-message-citation-mode "gnus-cite" nil t)

Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
335 336
;;; Internal variables.

337 338 339
(defvar gnus-inhibit-posting-styles nil
  "Inhibit the use of posting styles.")

340
(defvar gnus-article-yanked-articles nil)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
341 342
(defvar gnus-message-buffer "*Mail Gnus*")
(defvar gnus-article-copy nil)
343
(defvar gnus-check-before-posting nil)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
344
(defvar gnus-last-posting-server nil)
345
(defvar gnus-message-group-art nil)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
346

347 348
(defvar gnus-msg-force-broken-reply-to nil)

Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
349 350 351 352 353 354 355
(defconst gnus-bug-message
  "Sending a bug report to the Gnus Towers.
========================================

The buffer below is a mail buffer.  When you press `C-c C-c', it will
be sent to the Gnus Bug Exterminators.

356 357 358 359
The thing near the bottom of the buffer is how the environment
settings will be included in the mail.  Please do not delete that.
They will tell the Bug People what your environment is, so that it
will be easier to locate the bugs.
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
360 361 362 363 364 365 366 367 368 369

If you have found a bug that makes Emacs go \"beep\", set
debug-on-error to t (`M-x set-variable RET debug-on-error RET t RET')
and include the backtrace in your bug report.

Please describe the bug in annoying, painstaking detail.

Thank you for your help in stamping out bugs.
")

370
(autoload 'gnus-uu-post-news "gnus-uu" nil t)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
371 372 373 374 375 376 377 378


;;;
;;; Gnus Posting Functions
;;;

(gnus-define-keys (gnus-summary-send-map "S" gnus-summary-mode-map)
  "p" gnus-summary-post-news
379
  "i" gnus-summary-news-other-window
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
380 381 382 383 384
  "f" gnus-summary-followup
  "F" gnus-summary-followup-with-original
  "c" gnus-summary-cancel-article
  "s" gnus-summary-supersede-article
  "r" gnus-summary-reply
385
  "y" gnus-summary-yank-message
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
386
  "R" gnus-summary-reply-with-original
387
  "L" gnus-summary-reply-to-list-with-original
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
388 389
  "w" gnus-summary-wide-reply
  "W" gnus-summary-wide-reply-with-original
390 391
  "v" gnus-summary-very-wide-reply
  "V" gnus-summary-very-wide-reply-with-original
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
392 393 394 395 396
  "n" gnus-summary-followup-to-mail
  "N" gnus-summary-followup-to-mail-with-original
  "m" gnus-summary-mail-other-window
  "u" gnus-uu-post-news
  "\M-c" gnus-summary-mail-crosspost-complaint
397 398
  "Br" gnus-summary-reply-broken-reply-to
  "BR" gnus-summary-reply-broken-reply-to-with-original
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
399 400 401 402 403 404 405 406
  "om" gnus-summary-mail-forward
  "op" gnus-summary-post-forward
  "Om" gnus-uu-digest-mail-forward
  "Op" gnus-uu-digest-post-forward)

(gnus-define-keys (gnus-send-bounce-map "D" gnus-summary-send-map)
  "b" gnus-summary-resend-bounced-mail
  ;; "c" gnus-summary-send-draft
407 408
  "r" gnus-summary-resend-message
  "e" gnus-summary-resend-message-edit)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
409 410 411

;;; Internal functions.

412
(defun gnus-inews-make-draft (articles)
413 414
  `(lambda ()
     (gnus-inews-make-draft-meta-information
415
      ,(gnus-group-decoded-name gnus-newsgroup-name) ',articles)))
416

417
(autoload 'nnir-article-number "nnir" nil nil 'macro)
Paul Eggert's avatar
Paul Eggert committed
418
(autoload 'nnir-article-group "nnir" nil nil 'macro)
419
(autoload 'gnus-nnir-group-p "nnir")
420 421


Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
422 423
(defvar gnus-article-reply nil)
(defmacro gnus-setup-message (config &rest forms)
424
  (let ((winconf (make-symbol "gnus-setup-message-winconf"))
425
	(winconf-name (make-symbol "gnus-setup-message-winconf-name"))
426 427
	(buffer (make-symbol "gnus-setup-message-buffer"))
	(article (make-symbol "gnus-setup-message-article"))
428
	(yanked (make-symbol "gnus-setup-yanked-articles"))
429
	(group (make-symbol "gnus-setup-message-group")))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
430
    `(let ((,winconf (current-window-configuration))
431
	   (,winconf-name gnus-current-window-configuration)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
432
	   (,buffer (buffer-name (current-buffer)))
433
	   (,article (if (and (gnus-nnir-group-p gnus-newsgroup-name)
434
			      gnus-article-reply)
435 436
			 (nnir-article-number (or (car-safe gnus-article-reply)
						  gnus-article-reply))
437 438 439 440
		       gnus-article-reply))
	   (,yanked gnus-article-yanked-articles)
	   (,group (if (and (gnus-nnir-group-p gnus-newsgroup-name)
			    gnus-article-reply)
441 442
		       (nnir-article-group (or (car-safe gnus-article-reply)
					       gnus-article-reply))
443
		     gnus-newsgroup-name))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
444
	   (message-header-setup-hook
445
	    (copy-sequence message-header-setup-hook))
446
	   (mbl mml-buffer-list)
447
	   (message-mode-hook (copy-sequence message-mode-hook)))
448
       (setq mml-buffer-list nil)
449
       (add-hook 'message-header-setup-hook (lambda ()
450
					      (gnus-inews-insert-gcc ,group)))
Miles Bader's avatar
Miles Bader committed
451 452 453 454 455 456 457
       ;; message-newsreader and message-mailer were formerly set in
       ;; gnus-inews-add-send-actions, but this is too late when
       ;; message-generate-headers-first is used. --ansel
       (add-hook 'message-mode-hook
		 (lambda nil
		   (setq message-newsreader
			 (setq message-mailer (gnus-extended-version)))))
458 459 460 461 462 463 464 465 466 467 468 469 470 471 472
       ;; #### FIXME: for a reason that I did not manage to identify yet,
       ;; the variable `gnus-newsgroup-name' does not honor a dynamically
       ;; scoped or setq'ed value from a caller like `C-u gnus-summary-mail'.
       ;; After evaluation of @forms below, it gets the value we actually want
       ;; to override, and the posting styles are used. For that reason, I've
       ;; added an optional argument to `gnus-configure-posting-styles' to
       ;; make sure that the correct value for the group name is used. -- drv
       (add-hook 'message-mode-hook
		 (if (memq ,config '(reply-yank reply))
		     (lambda ()
		       (gnus-configure-posting-styles ,group))
		   (lambda ()
		     ;; There may be an old " *gnus article copy*" buffer.
		     (let (gnus-article-copy)
		       (gnus-configure-posting-styles ,group)))))
473
       (gnus-alist-pull ',(intern gnus-draft-meta-information-header)
474 475 476 477 478
		  message-required-headers)
       (when (and ,group
		  (not (string= ,group "")))
	 (push (cons
		(intern gnus-draft-meta-information-header)
479
		(gnus-inews-make-draft (or ,yanked ,article)))
480
	       message-required-headers))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
481
       (unwind-protect
482 483
	   (progn
	     ,@forms)
484
	 (gnus-inews-add-send-actions ,winconf ,buffer ,article ,config
485
				      ,yanked ,winconf-name)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
486
	 (setq gnus-message-buffer (current-buffer))
487 488
	 (set (make-local-variable 'gnus-message-group-art)
	      (cons ,group ,article))
489
	 (set (make-local-variable 'gnus-newsgroup-name) ,group)
490 491 492
	 ;; Enable highlighting of different citation levels
	 (when gnus-message-highlight-citation
	   (gnus-message-citation-mode 1))
493 494
	 (gnus-run-hooks 'gnus-message-setup-hook)
	 (if (eq major-mode 'message-mode)
495 496 497
	     (let ((mbl1 mml-buffer-list))
	       (setq mml-buffer-list mbl)  ;; Global value
	       (set (make-local-variable 'mml-buffer-list) mbl1);; Local value
498
	       (add-hook 'change-major-mode-hook 'mml-destroy-buffers nil t)
499 500 501
	       (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t))
	   (mml-destroy-buffers)
	   (setq mml-buffer-list mbl)))
502
       (message-hide-headers)
503
       (gnus-add-buffer)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
504
       (gnus-configure-windows ,config t)
505
       (run-hooks 'post-command-hook)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
506 507
       (set-buffer-modified-p nil))))

508 509 510 511 512 513 514 515 516 517 518 519 520 521
(defun gnus-inews-make-draft-meta-information (group articles)
  (when (numberp articles)
    (setq articles (list articles)))
  (concat "(\"" group "\""
	  (if articles
	      (concat " "
		      (mapconcat
		       (lambda (elem)
			 (number-to-string
			  (if (consp elem)
			      (car elem)
			    elem)))
		       articles " "))
	    "")
522 523
	  ")"))

524
;;;###autoload
525
(defun gnus-msg-mail (&optional to subject other-headers continue
526 527
				switch-action yank-action send-actions
				return-action)
528 529
  "Start editing a mail message to be sent.
Like `message-mail', but with Gnus paraphernalia, particularly the
530 531 532
Gcc: header for archiving purposes.
If Gnus isn't running, a plain `message-mail' setup is used
instead."
533
  (interactive)
534
  (if (not (gnus-alive-p))
535 536 537 538
      (progn
	(message "Gnus not running; using plain Message mode")
	(message-mail to subject other-headers continue
		      nil yank-action send-actions return-action))
539
    (let ((buf (current-buffer))
540
	  ;; Don't use posting styles corresponding to any existing group.
541
	  (group-name gnus-newsgroup-name)
542
	  mail-buf)
543 544 545 546 547 548 549
      (unwind-protect
	  (progn
	    (setq gnus-newsgroup-name "")
	    (gnus-setup-message 'message
	      (message-mail to subject other-headers continue
			    nil yank-action send-actions return-action)))
	(setq gnus-newsgroup-name group-name))
550 551 552 553 554 555
      (when switch-action
	(setq mail-buf (current-buffer))
	(switch-to-buffer buf)
	(apply switch-action mail-buf nil))
      ;; COMPOSEFUNC should return t if succeed.  Undocumented ???
      t)))
556

557 558 559 560 561
;;;###autoload
(defun gnus-button-mailto (address)
  "Mail to ADDRESS."
  (set-buffer (gnus-copy-article-buffer))
  (gnus-setup-message 'message
562
    (message-reply address)))
563 564 565 566 567 568

;;;###autoload
(defun gnus-button-reply (&optional to-address wide)
  "Like `message-reply'."
  (interactive)
  (gnus-setup-message 'message
569
    (message-reply to-address wide)))
570

571 572
;;;###autoload
(define-mail-user-agent 'gnus-user-agent
573 574
  'gnus-msg-mail 'message-send-and-exit
  'message-kill-buffer 'message-send-hook)
575

576 577 578 579 580 581 582 583 584
(defun gnus-setup-posting-charset (group)
  (let ((alist gnus-group-posting-charset-alist)
	(group (or group ""))
	elem)
    (when group
      (catch 'found
	(while (setq elem (pop alist))
	  (when (or (and (stringp (car elem))
			 (string-match (car elem) group))
585
		    (and (functionp (car elem))
586 587 588 589 590
			 (funcall (car elem) group))
		    (and (symbolp (car elem))
			 (symbol-value (car elem))))
	    (throw 'found (cons (cadr elem) (caddr elem)))))))))

591
(defun gnus-inews-add-send-actions (winconf buffer article
592 593
					    &optional config yanked
					    winconf-name)
594 595 596 597
  (add-hook 'message-sent-hook (if gnus-agent 'gnus-agent-possibly-do-gcc
				 'gnus-inews-do-gcc) nil t)
  (when gnus-agent
    (add-hook 'message-header-hook 'gnus-agent-possibly-save-gcc nil t))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
598
  (setq message-post-method
599
	`(lambda (&optional arg)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
600 601
	   (gnus-post-method arg ,gnus-newsgroup-name)))
  (message-add-action
602
   `(progn
603
      (setq gnus-current-window-configuration ',winconf-name)
604 605
      (when (gnus-buffer-exists-p ,buffer)
	(set-window-configuration ,winconf)))
606 607 608 609 610 611 612 613 614
   'exit 'postpone 'kill)
  (let ((to-be-marked (cond
		       (yanked
			(mapcar
			 (lambda (x) (if (listp x) (car x) x)) yanked))
		       (article (if (listp article) article (list article)))
		       (t nil))))
    (message-add-action
     `(when (gnus-buffer-exists-p ,buffer)
Stefan Monnier's avatar
Stefan Monnier committed
615
	(with-current-buffer ,buffer
616 617 618 619 620
	  ,(when to-be-marked
	     (if (eq config 'forward)
		 `(gnus-summary-mark-article-as-forwarded ',to-be-marked)
	       `(gnus-summary-mark-article-as-replied ',to-be-marked)))))
     'send)))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
621 622 623 624 625 626

(put 'gnus-setup-message 'lisp-indent-function 1)
(put 'gnus-setup-message 'edebug-form-spec '(form body))

;;; Post news commands of Gnus group mode and summary mode

627 628 629 630 631 632 633 634
(defun gnus-group-mail (&optional arg)
  "Start composing a mail.
If ARG, use the group under the point to find a posting style.
If ARG is 1, prompt for a group name to find the posting style."
  (interactive "P")
  ;; We can't `let' gnus-newsgroup-name here, since that leads
  ;; to local variables leaking.
  (let ((group gnus-newsgroup-name)
635 636
	;; make sure last viewed article doesn't affect posting styles:
	(gnus-article-copy)
637 638 639 640 641 642
	(buffer (current-buffer)))
    (unwind-protect
	(progn
	  (setq gnus-newsgroup-name
		(if arg
		    (if (= 1 (prefix-numeric-value arg))
643
			(gnus-group-completing-read
644 645
			 "Use posting style of group"
			 nil (gnus-read-active-file-p))
646 647
		      (gnus-group-group-name))
		  ""))
648
	  ;; #### see comment in gnus-setup-message -- drv
649
	  (gnus-setup-message 'message (message-mail)))
Stefan Monnier's avatar
Stefan Monnier committed
650
      (with-current-buffer buffer
651
	(setq gnus-newsgroup-name group)))))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
652

653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672
(defun gnus-group-news (&optional arg)
  "Start composing a news.
If ARG, post to group under point.
If ARG is 1, prompt for group name to post to.

This function prepares a news even when using mail groups.  This is useful
for posting messages to mail groups without actually sending them over the
network.  The corresponding back end must have a 'request-post method."
  (interactive "P")
  ;; We can't `let' gnus-newsgroup-name here, since that leads
  ;; to local variables leaking.
  (let ((group gnus-newsgroup-name)
	;; make sure last viewed article doesn't affect posting styles:
	(gnus-article-copy)
	(buffer (current-buffer)))
    (unwind-protect
	(progn
	  (setq gnus-newsgroup-name
		(if arg
		    (if (= 1 (prefix-numeric-value arg))
673 674
			(gnus-group-completing-read "Use group"
						    nil
675
						    (gnus-read-active-file-p))
676 677 678 679 680
		      (gnus-group-group-name))
		  ""))
	  ;; #### see comment in gnus-setup-message -- drv
	  (gnus-setup-message 'message
	    (message-news (gnus-group-real-name gnus-newsgroup-name))))
Stefan Monnier's avatar
Stefan Monnier committed
681
      (with-current-buffer buffer
682 683
	(setq gnus-newsgroup-name group)))))

Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
684
(defun gnus-group-post-news (&optional arg)
685 686 687 688
  "Start composing a message (a news by default).
If ARG, post to group under point.  If ARG is 1, prompt for group name.
Depending on the selected group, the message might be either a mail or
a news."
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
689
  (interactive "P")
690
  ;; Bind this variable here to make message mode hooks work ok.
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
691 692 693
  (let ((gnus-newsgroup-name
	 (if arg
	     (if (= 1 (prefix-numeric-value arg))
694
		 (gnus-group-completing-read "Newsgroup" nil
695
					     (gnus-read-active-file-p))
696
	       (or (gnus-group-group-name) ""))
697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719
	   ""))
	;; make sure last viewed article doesn't affect posting styles:
	(gnus-article-copy))
    (gnus-post-news 'post gnus-newsgroup-name nil nil nil nil
		    (string= gnus-newsgroup-name ""))))

(defun gnus-summary-mail-other-window (&optional arg)
  "Start composing a mail in another window.
Use the posting of the current group by default.
If ARG, don't do that.  If ARG is 1, prompt for group name to find the
posting style."
  (interactive "P")
  ;; We can't `let' gnus-newsgroup-name here, since that leads
  ;; to local variables leaking.
  (let ((group gnus-newsgroup-name)
	;; make sure last viewed article doesn't affect posting styles:
	(gnus-article-copy)
	(buffer (current-buffer)))
    (unwind-protect
	(progn
	  (setq gnus-newsgroup-name
		(if arg
		    (if (= 1 (prefix-numeric-value arg))
720 721
			(gnus-group-completing-read "Use group"
						    nil
722
						    (gnus-read-active-file-p))
723 724 725 726
		      "")
		  gnus-newsgroup-name))
	  ;; #### see comment in gnus-setup-message -- drv
	  (gnus-setup-message 'message (message-mail)))
Stefan Monnier's avatar
Stefan Monnier committed
727
      (with-current-buffer buffer
728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749
	(setq gnus-newsgroup-name group)))))

(defun gnus-summary-news-other-window (&optional arg)
  "Start composing a news in another window.
Post to the current group by default.
If ARG, don't do that.  If ARG is 1, prompt for group name to post to.

This function prepares a news even when using mail groups.  This is useful
for posting messages to mail groups without actually sending them over the
network.  The corresponding back end must have a 'request-post method."
  (interactive "P")
  ;; We can't `let' gnus-newsgroup-name here, since that leads
  ;; to local variables leaking.
  (let ((group gnus-newsgroup-name)
	;; make sure last viewed article doesn't affect posting styles:
	(gnus-article-copy)
	(buffer (current-buffer)))
    (unwind-protect
	(progn
	  (setq gnus-newsgroup-name
		(if arg
		    (if (= 1 (prefix-numeric-value arg))
750 751
			(gnus-group-completing-read "Use group"
						    nil
752
						    (gnus-read-active-file-p))
753 754 755 756 757 758 759
		      "")
		  gnus-newsgroup-name))
	  ;; #### see comment in gnus-setup-message -- drv
	  (gnus-setup-message 'message
	    (progn
	      (message-news (gnus-group-real-name gnus-newsgroup-name))
	      (set (make-local-variable 'gnus-discouraged-post-methods)
760
		   (remove
761
		    (car (gnus-find-method-for-group gnus-newsgroup-name))
762
		    gnus-discouraged-post-methods)))))
Stefan Monnier's avatar
Stefan Monnier committed
763
      (with-current-buffer buffer
764 765 766 767 768 769 770 771 772 773 774 775
	(setq gnus-newsgroup-name group)))))

(defun gnus-summary-post-news (&optional arg)
  "Start composing a message.  Post to the current group by default.
If ARG, don't do that.  If ARG is 1, prompt for a group name to post to.
Depending on the selected group, the message might be either a mail or
a news."
  (interactive "P")
  ;; Bind this variable here to make message mode hooks work ok.
  (let ((gnus-newsgroup-name
	 (if arg
	     (if (= 1 (prefix-numeric-value arg))
776
		 (gnus-group-completing-read "Newsgroup" nil
777
					     (gnus-read-active-file-p))
778 779 780 781
	       "")
	   gnus-newsgroup-name))
	;; make sure last viewed article doesn't affect posting styles:
	(gnus-article-copy))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
782 783 784 785 786
    (gnus-post-news 'post gnus-newsgroup-name)))


(defun gnus-summary-followup (yank &optional force-news)
  "Compose a followup to an article.
787 788 789 790
If prefix argument YANK is non-nil, the original article is yanked
automatically.
YANK is a list of elements, where the car of each element is the
article number, and the cdr is the string to be yanked."
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
791 792 793 794
  (interactive
   (list (and current-prefix-arg
	      (gnus-summary-work-articles 1))))
  (when yank
795 796 797 798
    (gnus-summary-goto-subject
     (if (listp (car yank))
	 (caar yank)
       (car yank))))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
799 800 801 802 803 804 805
  (save-window-excursion
    (gnus-summary-select-article))
  (let ((headers (gnus-summary-article-header (gnus-summary-article-number)))
	(gnus-newsgroup-name gnus-newsgroup-name))
    ;; Send a followup.
    (gnus-post-news nil gnus-newsgroup-name
		    headers gnus-article-buffer
806 807
		    yank nil force-news)
    (gnus-summary-handle-replysign)))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
808 809

(defun gnus-summary-followup-with-original (n &optional force-news)
810 811 812
  "Compose a followup to an article and include the original article.
The text in the region will be yanked.  If the region isn't
active, the entire article will be yanked."
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828
  (interactive "P")
  (gnus-summary-followup (gnus-summary-work-articles n) force-news))

(defun gnus-summary-followup-to-mail (&optional arg)
  "Followup to the current mail message via news."
  (interactive
   (list (and current-prefix-arg
	      (gnus-summary-work-articles 1))))
  (gnus-summary-followup arg t))

(defun gnus-summary-followup-to-mail-with-original (&optional arg)
  "Followup to the current mail message via news."
  (interactive "P")
  (gnus-summary-followup (gnus-summary-work-articles arg) t))

(defun gnus-inews-yank-articles (articles)
829
  (let (beg article yank-string)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
830 831
    (message-goto-body)
    (while (setq article (pop articles))
832 833 834
      (when (listp article)
	(setq yank-string (nth 1 article)
	      article (nth 0 article)))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
835 836 837 838
      (save-window-excursion
	(set-buffer gnus-summary-buffer)
	(gnus-summary-select-article nil nil nil article)
	(gnus-summary-remove-process-mark article))
839
      (gnus-copy-article-buffer nil yank-string)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
840
      (let ((message-reply-buffer gnus-article-copy)
841 842 843 844 845 846
	    (message-reply-headers
	     ;; The headers are decoded.
	     (with-current-buffer gnus-article-copy
	       (save-restriction
		 (nnheader-narrow-to-headers)
		 (nnheader-parse-naked-head)))))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
847
	(message-yank-original)
Miles Bader's avatar
Miles Bader committed
848
	(message-exchange-point-and-mark)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
849 850 851 852 853 854
	(setq beg (or beg (mark t))))
      (when articles
	(insert "\n")))
    (push-mark)
    (goto-char beg)))

855 856 857 858 859 860
(defun gnus-summary-cancel-article (&optional n symp)
  "Cancel an article you posted.
Uses the process-prefix convention.  If given the symbolic
prefix `a', cancel using the standard posting method; if not
post using the current select method."
  (interactive (gnus-interactive "P\ny"))
861
  (let ((message-post-method
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
862
	 `(lambda (arg)
863
	    (gnus-post-method (eq ',symp 'a) ,gnus-newsgroup-name)))
864
	(custom-address user-mail-address))
865
    (dolist (article (gnus-summary-work-articles n))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
866
      (when (gnus-summary-select-article t nil nil article)
867 868 869 870 871 872 873
	;; Pretend that we're doing a followup so that we can see what
	;; the From header would have ended up being.
	(save-window-excursion
	  (save-excursion
	    (gnus-summary-followup nil)
	    (let ((from (message-fetch-field "from")))
	      (when from
874
		(setq custom-address
875 876 877
		      (car (mail-header-parse-address from)))))
	    (kill-buffer (current-buffer))))
	;; Now cancel the article using the From header we got.
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
878
	(when (gnus-eval-in-buffer-window gnus-original-article-buffer
879 880
		(let ((user-mail-address (or custom-address user-mail-address)))
		  (message-cancel-news)))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
881 882 883 884 885 886 887 888 889 890
	  (gnus-summary-mark-as-read article gnus-canceled-mark)
	  (gnus-cache-remove-article 1))
	(gnus-article-hide-headers-if-wanted))
      (gnus-summary-remove-process-mark article))))

(defun gnus-summary-supersede-article ()
  "Compose an article that will supersede a previous article.
This is done simply by taking the old article and adding a Supersedes
header line with the old Message-ID."
  (interactive)
Miles Bader's avatar
Miles Bader committed
891 892
  (let ((article (gnus-summary-article-number))
	(mail-parse-charset gnus-newsgroup-charset))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
893 894 895 896 897 898
    (gnus-setup-message 'reply-yank
      (gnus-summary-select-article t)
      (set-buffer gnus-original-article-buffer)
      (message-supersede)
      (push
       `((lambda ()
899
	   (when (gnus-buffer-exists-p ,gnus-summary-buffer)
Stefan Monnier's avatar
Stefan Monnier committed
900
	     (with-current-buffer ,gnus-summary-buffer
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
901 902
	       (gnus-cache-possibly-remove-article ,article nil nil nil t)
	       (gnus-summary-mark-as-read ,article gnus-canceled-mark)))))
Miles Bader's avatar
Miles Bader committed
903 904 905
       message-send-actions)
      ;; Add Gcc header.
      (gnus-inews-insert-gcc))))
906

Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
907 908


909
(defun gnus-copy-article-buffer (&optional article-buffer yank-string)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
910 911 912 913
  ;; make a copy of the article buffer with all text properties removed
  ;; this copy is in the buffer gnus-article-copy.
  ;; if ARTICLE-BUFFER is nil, gnus-article-buffer is used
  ;; this buffer should be passed to all mail/news reply/post routines.
914
  (setq gnus-article-copy (gnus-get-buffer-create " *gnus article copy*"))
Stefan Monnier's avatar
Stefan Monnier committed
915
  (with-current-buffer gnus-article-copy
916
    (mm-enable-multibyte))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
917
  (let ((article-buffer (or article-buffer gnus-article-buffer))
918
	end beg)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
919
    (if (not (and (get-buffer article-buffer)
920
		  (gnus-buffer-exists-p article-buffer)))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
921
	(error "Can't find any article buffer")
Stefan Monnier's avatar
Stefan Monnier committed
922
      (with-current-buffer article-buffer
923 924
	(let ((gnus-newsgroup-charset (or gnus-article-charset
					  gnus-newsgroup-charset))
925
	      (inhibit-read-only t)
926 927 928 929 930 931 932 933 934 935 936 937 938 939
	      (gnus-newsgroup-ignored-charsets
	       (or gnus-article-ignored-charsets
		   gnus-newsgroup-ignored-charsets)))
	  (save-restriction
	    ;; Copy over the (displayed) article buffer, delete
	    ;; hidden text and remove text properties.
	    (widen)
	    (copy-to-buffer gnus-article-copy (point-min) (point-max))
	    (set-buffer gnus-article-copy)
	    (when yank-string
	      (message-goto-body)
	      (delete-region (point) (point-max))
	      (insert yank-string))
	    (gnus-article-delete-text-of-type 'annotation)
940
	    (gnus-article-delete-text-of-type 'multipart)
941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967
	    (gnus-remove-text-with-property 'gnus-prev)
	    (gnus-remove-text-with-property 'gnus-next)
	    (gnus-remove-text-with-property 'gnus-decoration)
	    (insert
	     (prog1
		 (buffer-substring-no-properties (point-min) (point-max))
	       (erase-buffer)))
	    ;; Find the original headers.
	    (set-buffer gnus-original-article-buffer)
	    (goto-char (point-min))
	    (while (looking-at message-unix-mail-delimiter)
	      (forward-line 1))
	    (let ((mail-header-separator ""))
	      (setq beg (point)
		    end (or (message-goto-body)
			    ;; There may be just a header.
			    (point-max))))
	    ;; Delete the headers from the displayed articles.
	    (set-buffer gnus-article-copy)
	    (let ((mail-header-separator ""))
	      (delete-region (goto-char (point-min))
			     (or (message-goto-body) (point-max))))
	    ;; Insert the original article headers.
	    (insert-buffer-substring gnus-original-article-buffer beg end)
	    ;; Decode charsets.
	    (let ((gnus-article-decode-hook
		   (delq 'article-decode-charset
968 969
			 (copy-sequence gnus-article-decode-hook)))
		  (rfc2047-quote-decoded-words-containing-tspecials t))
970
	      (run-hooks 'gnus-article-decode-hook)))))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
971 972 973 974 975 976
      gnus-article-copy)))

(defun gnus-post-news (post &optional group header article-buffer yank subject
			    force-news)
  (when article-buffer
    (gnus-copy-article-buffer))
977 978
  (let ((gnus-article-reply (and article-buffer (gnus-summary-article-number)))
	(gnus-article-yanked-articles yank)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
979 980 981 982 983
	(add-to-list gnus-add-to-list))
    (gnus-setup-message (cond (yank 'reply-yank)
			      (article-buffer 'reply)
			      (t 'message))
      (let* ((group (or group gnus-newsgroup-name))
984
	     (charset (gnus-group-name-charset nil group))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
985 986 987 988
	     (pgroup group)
	     to-address to-group mailing-list to-list
	     newsgroup-p)
	(when group
989
	  (setq to-address (gnus-parameter-to-address group)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
990
		to-group (gnus-group-find-parameter group 'to-group)
991
		to-list (gnus-parameter-to-list group)
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
992 993 994
		newsgroup-p (gnus-group-find-parameter group 'newsgroup)
		mailing-list (when gnus-mailing-list-groups
			       (string-match gnus-mailing-list-groups group))
995 996
		group (gnus-group-name-decode (gnus-group-real-name group)
					      charset)))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
997 998 999 1000 1001 1002
	(if (or (and to-group
		     (gnus-news-group-p to-group))
		newsgroup-p
		force-news
		(and (gnus-news-group-p
		      (or pgroup gnus-newsgroup-name)
1003
		      (or header gnus-current-article))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
1004 1005 1006 1007 1008
		     (not mailing-list)
		     (not to-list)
		     (not to-address)))
	    ;; This is news.
	    (if post
1009 1010 1011
		(message-news
		 (or to-group
		     (and (not (gnus-virtual-group-p pgroup)) group)))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
1012
	      (set-buffer gnus-article-copy)
1013
	      (gnus-msg-treat-broken-reply-to)
1014 1015 1016 1017 1018 1019 1020
	      (message-followup (if (or newsgroup-p force-news)
				    (if (save-restriction
					  (article-narrow-to-head)
					  (message-fetch-field "newsgroups"))
					nil
				      "")
				  to-group)))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032
	  ;; The is mail.
	  (if post
	      (progn
		(message-mail (or to-address to-list))
		;; Arrange for mail groups that have no `to-address' to
		;; get that when the user sends off the mail.
		(when (and (not to-list)
			   (not to-address)
			   add-to-list)
		  (push (list 'gnus-inews-add-to-address pgroup)
			message-send-actions)))
	    (set-buffer gnus-article-copy)
1033 1034
	    (gnus-msg-treat-broken-reply-to)
	    (message-wide-reply to-address)))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
1035 1036 1037
	(when yank
	  (gnus-inews-yank-articles yank))))))

1038
(defun gnus-msg-treat-broken-reply-to (&optional force)
ShengHuo ZHU's avatar
Typos.  
ShengHuo ZHU committed
1039
  "Remove the Reply-to header if broken-reply-to."
1040 1041 1042
  (when (or force
	    (gnus-group-find-parameter
	     gnus-newsgroup-name 'broken-reply-to))
1043 1044 1045 1046
    (save-restriction
      (message-narrow-to-head)
      (message-remove-header "reply-to"))))

Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
1047 1048 1049
(defun gnus-post-method (arg group &optional silent)
  "Return the posting method based on GROUP and ARG.
If SILENT, don't prompt the user."
1050 1051 1052
  (let ((gnus-post-method (or (gnus-parameter-post-method group)
			      gnus-post-method))
	(group-method (gnus-find-method-for-group group)))
Lars Magne Ingebrigtsen's avatar
Lars Magne Ingebrigtsen committed
1053 1054 1055 1056
    (cond
     ;; If the group-method is nil (which shouldn't happen) we use
     ;; the default method.
     ((null group-method)
1057 1058 1059