Modify for SEMI 1.11, FLIM 1.12.

[elisp/gnus.git-] / lisp / message.el
diff --git a/lisp/message.el b/lisp/message.el

index 70ef73c..60e6ed9 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2,7 +2,12 @@
  ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
  ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
-;; Keywords: mail, news
+;;     MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;     Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
+;;     Keiichi Suzuki <kei-suzu@mail.wbs.ne.jp>
+;;     Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
+;;     Katsumi Yamaoka <yamaoka@jpl.org>
+;; Keywords: mail, news, MIME
  
  ;; This file is part of GNU Emacs.
  
  
  ;; This file is part of GNU Emacs.
  
@@ -29,18 +34,27 @@
  
  ;;; Code:
  
  
  ;;; Code:
  
-(eval-when-compile (require 'cl))
+(eval-when-compile
+  (require 'cl)
+  (require 'smtp)
+  )
  
  (require 'mailheader)
  (require 'nnheader)
  
  (require 'mailheader)
  (require 'nnheader)
-(require 'timezone)
  (require 'easymenu)
  (require 'custom)
  (if (string-match "XEmacs\\|Lucid" emacs-version)
      (require 'mail-abbrevs)
    (require 'mailabbrev))
  (require 'easymenu)
  (require 'custom)
  (if (string-match "XEmacs\\|Lucid" emacs-version)
      (require 'mail-abbrevs)
    (require 'mailabbrev))
-(require 'rfc2047)
-(require 'mm-bodies)
+(require 'mime-edit)
+
+;; Avoid byte-compile warnings.
+(eval-when-compile
+  (require 'mail-parse)
+  (require 'mm-bodies)
+  (require 'mm-encode)
+  (require 'mml)
+  )
  
  (defgroup message '((user-mail-address custom-variable)
                     (user-full-name custom-variable))
  
  (defgroup message '((user-mail-address custom-variable)
                     (user-full-name custom-variable))
@@ -100,6 +114,10 @@
    :group 'message
    :group 'faces)
  
    :group 'message
    :group 'faces)
  
+(defgroup message-frames nil
+  "Message frames"
+  :group 'message)
+
  (defcustom message-directory "~/Mail/"
    "*Directory from which all other mail file variables are derived."
    :group 'message-various
  (defcustom message-directory "~/Mail/"
    "*Directory from which all other mail file variables are derived."
    :group 'message-various
@@ -124,6 +142,16 @@ mailbox format."
                 (function :tag "Other"))
    :group 'message-sending)
  
                 (function :tag "Other"))
    :group 'message-sending)
  
+(defcustom message-encode-function 'message-maybe-encode
+  "*A function called to encode messages."
+  :group 'message-sending
+  :type 'function)
+
+(defcustom message-8bit-encoding-list '(8bit binary)
+  "*8bit encoding type in Content-Transfer-Encoding field."
+  :group 'message-sending
+  :type '(repeat (symbol :tag "Type")))
+
  (defcustom message-courtesy-message
    "The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n"
    "*This is inserted at the start of a mailed copy of a posted message.
  (defcustom message-courtesy-message
    "The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n"
    "*This is inserted at the start of a mailed copy of a posted message.
@@ -138,6 +166,11 @@ If this variable is nil, no such courtesy message will be added."
    :group 'message-interface
    :type 'regexp)
  
    :group 'message-interface
    :type 'regexp)
  
+(defcustom message-bounce-setup-function 'message-bounce-setup-for-mime-edit
+  "Function to setup a re-sending bounced message."
+  :group 'message-sending
+  :type 'function)
+
  ;;;###autoload
  (defcustom message-from-style 'default
    "*Specifies how \"From\" headers look.
  ;;;###autoload
  (defcustom message-from-style 'default
    "*Specifies how \"From\" headers look.
@@ -174,11 +207,11 @@ shorten-followup-to existing-newsgroups buffer-file-name unchanged."
  (defcustom message-required-news-headers
    '(From Newsgroups Subject Date Message-ID
          (optional . Organization) Lines
  (defcustom message-required-news-headers
    '(From Newsgroups Subject Date Message-ID
          (optional . Organization) Lines
-        (optional . X-Newsreader))
+        (optional . User-Agent))
    "*Headers to be generated or prompted for when posting an article.
  RFC977 and RFC1036 require From, Date, Newsgroups, Subject,
  Message-ID.  Organization, Lines, In-Reply-To, Expires, and
    "*Headers to be generated or prompted for when posting an article.
  RFC977 and RFC1036 require From, Date, Newsgroups, Subject,
  Message-ID.  Organization, Lines, In-Reply-To, Expires, and
-X-Newsreader are optional.  If don't you want message to insert some
+User-Agent are optional.  If don't you want message to insert some
  header, remove it from this list."
    :group 'message-news
    :group 'message-headers
  header, remove it from this list."
    :group 'message-news
    :group 'message-headers
@@ -186,10 +219,10 @@ header, remove it from this list."
  
  (defcustom message-required-mail-headers
    '(From Subject Date (optional . In-Reply-To) Message-ID Lines
  
  (defcustom message-required-mail-headers
    '(From Subject Date (optional . In-Reply-To) Message-ID Lines
-        (optional . X-Mailer))
+        (optional . User-Agent))
    "*Headers to be generated or prompted for when mailing a message.
  RFC822 required that From, Date, To, Subject and Message-ID be
    "*Headers to be generated or prompted for when mailing a message.
  RFC822 required that From, Date, To, Subject and Message-ID be
-included.  Organization, Lines and X-Mailer are optional."
+included.  Organization, Lines and User-Agent are optional."
    :group 'message-mail
    :group 'message-headers
    :type '(repeat sexp))
    :group 'message-mail
    :group 'message-headers
    :type '(repeat sexp))
@@ -212,7 +245,7 @@ included.  Organization, Lines and X-Mailer are optional."
    :group 'message-headers
    :type 'regexp)
  
    :group 'message-headers
    :type 'regexp)
  
-(defcustom message-ignored-supersedes-headers "^Path:\\|^Date\\|^NNTP-Posting-Host:\\|^Xref:\\|^Lines:\\|^Received:\\|^X-From-Line:\\|^X-Trace:\\|^X-Complaints-To:\\|Return-Path:\\|^Supersedes:\\|^X-Trace:\\|^X-Complaints-To:"
+(defcustom message-ignored-supersedes-headers "^Path:\\|^Date\\|^NNTP-Posting-Host:\\|^Xref:\\|^Lines:\\|^Received:\\|^X-From-Line:\\|^X-Trace:\\|^X-Complaints-To:\\|Return-Path:\\|^Supersedes:"
    "*Header lines matching this regexp will be deleted before posting.
  It's best to delete old Path and Date headers before posting to avoid
  any confusion."
    "*Header lines matching this regexp will be deleted before posting.
  It's best to delete old Path and Date headers before posting to avoid
  any confusion."
@@ -224,6 +257,47 @@ any confusion."
    :group 'message-various
    :type 'regexp)
  
    :group 'message-various
    :type 'regexp)
  
+;;; Some sender agents encode the whole subject including leading "Re: ".
+;;; And if followup agent does not decode it for some reason (e.g. unknown
+;;; charset) and just add a new "Re: " in front of the encoded-word, the
+;;; result will contain multiple "Re: "'s.
+(defcustom message-subject-encoded-re-regexp
+  (concat
+   "^[ \t]*"
+   (regexp-quote "=?")
+   "[-!#$%&'*+0-9A-Z^_`a-z{|}~]+" ; charset
+   (regexp-quote "?")
+   "\\("
+   "[Bb]" (regexp-quote "?") ; B encoding
+   "\\(\\(CQk\\|CSA\\|IAk\\|ICA\\)[Jg]\\)*" ; \([ \t][ \t][ \t]\)*
+   "\\("
+   "[Uc][km]U6" ; [Rr][Ee]:
+   "\\|"
+   "\\(C[VX]\\|I[FH]\\)J[Fl]O[g-v]" ; [ \t][Rr][Ee]:
+   "\\|"
+   "\\(CQl\\|CSB\\|IAl\\|ICB\\)[Sy][RZ]T[o-r]" ; [ \t][ \t][Rr][Ee]:
+   "\\)"
+   "\\|"
+   "[Qb]" (regexp-quote "?") ; Q encoding
+   "\\(_\\|=09\\|=20\\)*"
+   "\\([Rr]\\|=[57]2\\)\\([Ee]\\|=[46]5\\)\\(:\\|=3[Aa]\\)"
+   "\\)"
+   )
+  "*Regexp matching \"Re: \" in the subject line.
+Unlike `message-subject-re-regexp', this regexp matches \"Re: \" within
+an encoded-word."
+  :group 'message-various
+  :type 'regexp)
+
+(defcustom message-use-subject-re t
+  "*If t, remove any (buggy) \"Re: \"'s from the subject of the precursor
+and add a new \"Re: \".  If it is nil, use the subject \"as-is\".  If it
+is the symbol `guess', try to detect \"Re: \" within an encoded-word."
+  :group 'message-various
+  :type '(choice (const :tag "off" nil)
+                 (const :tag "on" t)
+                 (const guess)))
+
  ;;;###autoload
  (defcustom message-signature-separator "^-- *$"
    "Regexp matching the signature separator."
  ;;;###autoload
  (defcustom message-signature-separator "^-- *$"
    "Regexp matching the signature separator."
@@ -242,14 +316,15 @@ nil means let mailer mail back a message to report errors."
    :group 'message-mail
    :type 'boolean)
  
    :group 'message-mail
    :type 'boolean)
  
-(defcustom message-generate-new-buffers t
+(defcustom message-generate-new-buffers 'unique
    "*Non-nil means that a new message buffer will be created whenever `message-setup' is called.
  If this is a function, call that function with three parameters:  The type,
  the to address and the group name.  (Any of these may be nil.)  The function
  should return the new buffer name."
    :group 'message-buffers
    :type '(choice (const :tag "off" nil)
    "*Non-nil means that a new message buffer will be created whenever `message-setup' is called.
  If this is a function, call that function with three parameters:  The type,
  the to address and the group name.  (Any of these may be nil.)  The function
  should return the new buffer name."
    :group 'message-buffers
    :type '(choice (const :tag "off" nil)
-                (const :tag "on" t)
+                (const :tag "unique" unique)
+                (const :tag "unsuniqueent" unsent)
                  (function fun)))
  
  (defcustom message-kill-buffer-on-exit nil
                  (function fun)))
  
  (defcustom message-kill-buffer-on-exit nil
@@ -257,6 +332,15 @@ should return the new buffer name."
    :group 'message-buffers
    :type 'boolean)
  
    :group 'message-buffers
    :type 'boolean)
  
+(defcustom message-kill-buffer-query-function 'yes-or-no-p
+  "*A function called to query the user whether to kill buffer anyway or not.
+If it is t, the buffer will be killed peremptorily."
+  :type '(radio (function-item yes-or-no-p)
+               (function-item y-or-n-p)
+               (function-item nnheader-Y-or-n-p)
+               (function :tag "Other" t))
+  :group 'message-buffers)
+
  (defvar gnus-local-organization)
  (defcustom message-user-organization
    (or (and (boundp 'gnus-local-organization)
  (defvar gnus-local-organization)
  (defcustom message-user-organization
    (or (and (boundp 'gnus-local-organization)
@@ -277,13 +361,13 @@ If t, use `message-user-organization-file'."
    :group 'message-headers)
  
  (defcustom message-forward-start-separator
    :group 'message-headers)
  
  (defcustom message-forward-start-separator
-  "------- Start of forwarded message -------\n"
+  (concat (mime-make-tag "message" "rfc822") "\n")
    "*Delimiter inserted before forwarded messages."
    :group 'message-forwarding
    :type 'string)
  
  (defcustom message-forward-end-separator
    "*Delimiter inserted before forwarded messages."
    :group 'message-forwarding
    :type 'string)
  
  (defcustom message-forward-end-separator
-  "------- End of forwarded message -------\n"
+  (concat (mime-make-tag "text" "plain") "\n")
    "*Delimiter inserted after forwarded messages."
    :group 'message-forwarding
    :type 'string)
    "*Delimiter inserted after forwarded messages."
    :group 'message-forwarding
    :type 'string)
@@ -294,7 +378,7 @@ If t, use `message-user-organization-file'."
    :type 'boolean)
  
  (defcustom message-included-forward-headers
    :type 'boolean)
  
  (defcustom message-included-forward-headers
-  "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-\\|^Message-ID:\\|^References:\\|^Content-Transfer-Encoding:\\|^Content-Type:\\|^Mime-Version:"
+  "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^\\(Mail-\\)?Followup-To:\\|^\\(Mail-\\)?Reply-To:\\|^Mail-Copies-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-\\|^Message-ID:\\|^References:\\|^Content-\\|^MIME-Version:"
    "*Regexp matching headers to be included in forwarded messages."
    :group 'message-forwarding
    :type 'regexp)
    "*Regexp matching headers to be included in forwarded messages."
    :group 'message-forwarding
    :type 'regexp)
@@ -320,7 +404,7 @@ The provided functions are:
    :group 'message-forwarding
    :type 'boolean)
  
    :group 'message-forwarding
    :type 'boolean)
  
-(defcustom message-ignored-resent-headers "^Return-receipt"
+(defcustom message-ignored-resent-headers "^Return-receipt\\|^X-Gnus"
    "*All headers that match this regexp will be deleted when resending a message."
    :group 'message-interface
    :type 'regexp)
    "*All headers that match this regexp will be deleted when resending a message."
    :group 'message-interface
    :type 'regexp)
@@ -344,16 +428,17 @@ variable `mail-header-separator'.
  
  Legal values include `message-send-mail-with-sendmail' (the default),
  `message-send-mail-with-mh', `message-send-mail-with-qmail' and
  
  Legal values include `message-send-mail-with-sendmail' (the default),
  `message-send-mail-with-mh', `message-send-mail-with-qmail' and
-`smtpmail-send-it'."
+`message-send-mail-with-smtp'."
    :type '(radio (function-item message-send-mail-with-sendmail)
                 (function-item message-send-mail-with-mh)
                 (function-item message-send-mail-with-qmail)
    :type '(radio (function-item message-send-mail-with-sendmail)
                 (function-item message-send-mail-with-mh)
                 (function-item message-send-mail-with-qmail)
-               (function-item smtpmail-send-it)
+               (function-item message-send-mail-with-smtp)
                 (function :tag "Other"))
    :group 'message-sending
    :group 'message-mail)
  
                 (function :tag "Other"))
    :group 'message-sending
    :group 'message-mail)
  
-(defcustom message-send-news-function 'message-send-news
+;; 1997-09-29 by MORIOKA Tomohiko
+(defcustom message-send-news-function 'message-send-news-with-gnus
    "Function to call to send the current buffer as news.
  The headers should be delimited by a line whose contents match the
  variable `mail-header-separator'."
    "Function to call to send the current buffer as news.
  The headers should be delimited by a line whose contents match the
  variable `mail-header-separator'."
@@ -390,8 +475,45 @@ always query the user whether to use the value.  If it is the symbol
  `use', always use the value."
    :group 'message-interface
    :type '(choice (const :tag "ignore" nil)
  `use', always use the value."
    :group 'message-interface
    :type '(choice (const :tag "ignore" nil)
-                (const use)
-                (const ask)))
+                (const :tag "maybe" t)
+                (const :tag "always" use)
+                (const :tag "ask" ask)))
+
+(defcustom message-use-mail-copies-to 'ask
+  "*Specifies what to do with Mail-Copies-To header.
+If nil, always ignore the header.  If it is t, use its value, but
+query before using the value other than \"always\" or \"never\".
+If it is the symbol `ask', always query the user whether to use
+the value.  If it is the symbol `use', always use the value."
+  :group 'message-interface
+  :type '(choice (const :tag "ignore" nil)
+                (const :tag "maybe" t)
+                (const :tag "always" use)
+                (const :tag "ask" ask)))
+
+(defcustom message-use-mail-followup-to 'ask
+  "*Specifies what to do with Mail-Followup-To header.
+If nil, always ignore the header.  If it is the symbol `ask', always
+query the user whether to use the value.  If it is t or the symbol
+`use', always use the value."
+  :group 'message-interface
+  :type '(choice (const :tag "ignore" nil)
+                (const :tag "maybe" t)
+                (const :tag "always" use)
+                (const :tag "ask" ask)))
+
+;;; XXX: 'ask and 'use are not implemented yet.
+(defcustom message-use-mail-reply-to 'ask
+  "*Specifies what to do with Mail-Reply-To/Reply-To header.
+If nil, always ignore the header.  If it is t or the symbol `use', use
+its value.  If it is the symbol `ask', always query the user whether to
+use the value.  Note that if \"Reply-To\" is marked as \"broken\", its value
+is never used."
+  :group 'message-interface
+  :type '(choice (const :tag "ignore" nil)
+                (const :tag "maybe" t)
+                (const :tag "always" use)
+                (const :tag "ask" ask)))
  
  ;; stuff relating to broken sendmail in MMDF
  (defcustom message-sendmail-f-is-evil nil
  
  ;; stuff relating to broken sendmail in MMDF
  (defcustom message-sendmail-f-is-evil nil
@@ -440,7 +562,7 @@ variable isn't used."
    :group 'message-headers
    :type 'boolean)
  
    :group 'message-headers
    :type 'boolean)
  
-(defcustom message-setup-hook nil
+(defcustom message-setup-hook '(turn-on-mime-edit)
    "Normal hook, run each time a new outgoing message is initialized.
  The function `message-setup' runs this hook."
    :group 'message-various
    "Normal hook, run each time a new outgoing message is initialized.
  The function `message-setup' runs this hook."
    :group 'message-various
@@ -453,12 +575,18 @@ the signature is inserted."
    :group 'message-various
    :type 'hook)
  
    :group 'message-various
    :type 'hook)
  
+(defcustom message-bounce-setup-hook nil
+  "Normal hook, run each time a a re-sending bounced message is initialized.
+The function `message-bounce' runs this hook."
+  :group 'message-various
+  :type 'hook)
+
  (defcustom message-mode-hook nil
    "Hook run in message mode buffers."
    :group 'message-various
    :type 'hook)
  
  (defcustom message-mode-hook nil
    "Hook run in message mode buffers."
    :group 'message-various
    :type 'hook)
  
-(defcustom message-header-hook nil
+(defcustom message-header-hook '(eword-encode-header)
    "Hook run in a message mode buffer narrowed to the headers."
    :group 'message-various
    :type 'hook)
    "Hook run in a message mode buffer narrowed to the headers."
    :group 'message-various
    :type 'hook)
@@ -549,8 +677,6 @@ If stringp, use this; if non-nil, use no host name (user name only)."
  
  (defvar message-reply-buffer nil)
  (defvar message-reply-headers nil)
  
  (defvar message-reply-buffer nil)
  (defvar message-reply-headers nil)
-(defvar message-newsreader nil)
-(defvar message-mailer nil)
  (defvar message-sent-message-via nil)
  (defvar message-checksum nil)
  (defvar message-send-actions nil
  (defvar message-sent-message-via nil)
  (defvar message-checksum nil)
  (defvar message-send-actions nil
@@ -561,6 +687,9 @@ If stringp, use this; if non-nil, use no host name (user name only)."
    "A list of actions to be performed before killing a message buffer.")
  (defvar message-postpone-actions nil
    "A list of actions to be performed after postponing a message.")
    "A list of actions to be performed before killing a message buffer.")
  (defvar message-postpone-actions nil
    "A list of actions to be performed after postponing a message.")
+(defvar message-original-frame nil)
+(defvar message-parameter-alist nil)
+(defvar message-startup-parameter-alist nil)
  
  (define-widget 'message-header-lines 'text
    "All header lines must be LFD terminated."
  
  (define-widget 'message-header-lines 'text
    "All header lines must be LFD terminated."
@@ -615,6 +744,10 @@ actually occur."
    :group 'message-sending
    :type 'sexp)
  
    :group 'message-sending
    :type 'sexp)
  
+;;; XXX: This symbol is overloaded!  See below.
+(defvar message-user-agent nil
+  "String of the form of PRODUCT/VERSION.  Used for User-Agent header field.")
+
  ;; Ignore errors in case this is used in Emacs 19.
  ;; Don't use ignore-errors because this is copied into loaddefs.el.
  ;;;###autoload
  ;; Ignore errors in case this is used in Emacs 19.
  ;; Don't use ignore-errors because this is copied into loaddefs.el.
  ;;;###autoload
@@ -646,19 +779,28 @@ the prefix.")
  The default is `abbrev', which uses mailabbrev.  nil switches
  mail aliases off.")
  
  The default is `abbrev', which uses mailabbrev.  nil switches
  mail aliases off.")
  
-(defcustom message-autosave-directory
+(defcustom message-auto-save-directory
    (nnheader-concat message-directory "drafts/")
    (nnheader-concat message-directory "drafts/")
-  "*Directory where Message autosaves buffers if Gnus isn't running.
-If nil, Message won't autosave."
+  "*Directory where Message auto-saves buffers if Gnus isn't running.
+If nil, Message won't auto-save."
    :group 'message-buffers
    :type 'directory)
  
    :group 'message-buffers
    :type 'directory)
  
+(defcustom message-buffer-naming-style 'unique
+  "*The way new message buffers are named.
+Valid valued are `unique' and `unsent'."
+  :group 'message-buffers
+  :type '(choice (const :tag "unique" unique)
+                (const :tag "unsent" unsent)))
+
  ;;; Internal variables.
  ;;; Well, not really internal.
  
  (defvar message-mode-syntax-table
    (let ((table (copy-syntax-table text-mode-syntax-table)))
      (modify-syntax-entry ?% ". " table)
  ;;; Internal variables.
  ;;; Well, not really internal.
  
  (defvar message-mode-syntax-table
    (let ((table (copy-syntax-table text-mode-syntax-table)))
      (modify-syntax-entry ?% ". " table)
+    (modify-syntax-entry ?> ". " table)
+    (modify-syntax-entry ?< ". " table)
      table)
    "Syntax table used while in Message mode.")
  
      table)
    "Syntax table used while in Message mode.")
  
@@ -785,7 +927,10 @@ Defaults to `text-mode-abbrev-table'.")
      `((,(concat "^\\([Tt]o:\\)" content)
         (1 'message-header-name-face)
         (2 'message-header-to-face nil t))
      `((,(concat "^\\([Tt]o:\\)" content)
         (1 'message-header-name-face)
         (2 'message-header-to-face nil t))
-      (,(concat "^\\(^[GBF]?[Cc][Cc]:\\|^[Rr]eply-[Tt]o:\\)" content)
+      (,(concat "^\\([GBF]?[Cc][Cc]:\\|[Rr]eply-[Tt]o:\\|"
+               "[Mm]ail-[Cc]opies-[Tt]o:\\|"
+               "[Mm]ail-[Rr]eply-[Tt]o:\\|"
+               "[Mm]ail-[Ff]ollowup-[Tt]o:\\)" content)
         (1 'message-header-name-face)
         (2 'message-header-cc-face nil t))
        (,(concat "^\\([Ss]ubject:\\)" content)
         (1 'message-header-name-face)
         (2 'message-header-cc-face nil t))
        (,(concat "^\\([Ss]ubject:\\)" content)
@@ -845,6 +990,18 @@ The cdr of ech entry is a function for applying the face to a region.")
    :group 'message-various
    :type 'hook)
  
    :group 'message-various
    :type 'hook)
  
+(defcustom message-use-multi-frames nil
+  "Make new frame when sending messages."
+  :group 'message-frames
+  :type 'boolean)
+
+(defcustom message-delete-frame-on-exit nil
+  "Delete frame after sending messages."
+  :group 'message-frames
+  :type '(choice (const :tag "off" nil)
+                (const :tag "always" t)
+                (const :tag "ask" ask)))
+
  (defvar message-send-coding-system 'binary
    "Coding system to encode outgoing mail.")
  
  (defvar message-send-coding-system 'binary
    "Coding system to encode outgoing mail.")
  
@@ -855,6 +1012,7 @@ The cdr of ech entry is a function for applying the face to a region.")
  (defvar message-this-is-news nil)
  (defvar message-this-is-mail nil)
  (defvar message-draft-article nil)
  (defvar message-this-is-news nil)
  (defvar message-this-is-mail nil)
  (defvar message-draft-article nil)
+(defvar message-mime-part nil)
  
  ;; Byte-compiler warning
  (defvar gnus-active-hashtb)
  
  ;; Byte-compiler warning
  (defvar gnus-active-hashtb)
@@ -939,9 +1097,8 @@ The cdr of ech entry is a function for applying the face to a region.")
      (Lines)
      (Expires)
      (Message-ID)
      (Lines)
      (Expires)
      (Message-ID)
-    (References . message-shorten-references)
-    (X-Mailer)
-    (X-Newsreader))
+    (References . message-fill-header)
+    (User-Agent))
    "Alist used for formatting headers.")
  
  (eval-and-compile
    "Alist used for formatting headers.")
  
  (eval-and-compile
@@ -951,12 +1108,12 @@ The cdr of ech entry is a function for applying the face to a region.")
    (autoload 'gnus-point-at-eol "gnus-util")
    (autoload 'gnus-point-at-bol "gnus-util")
    (autoload 'gnus-output-to-mail "gnus-util")
    (autoload 'gnus-point-at-eol "gnus-util")
    (autoload 'gnus-point-at-bol "gnus-util")
    (autoload 'gnus-output-to-mail "gnus-util")
-  (autoload 'gnus-output-to-rmail "gnus-util")
    (autoload 'mail-abbrev-in-expansion-header-p "mailabbrev")
    (autoload 'nndraft-request-associate-buffer "nndraft")
    (autoload 'nndraft-request-expire-articles "nndraft")
    (autoload 'gnus-open-server "gnus-int")
    (autoload 'gnus-request-post "gnus-int")
    (autoload 'mail-abbrev-in-expansion-header-p "mailabbrev")
    (autoload 'nndraft-request-associate-buffer "nndraft")
    (autoload 'nndraft-request-expire-articles "nndraft")
    (autoload 'gnus-open-server "gnus-int")
    (autoload 'gnus-request-post "gnus-int")
+  (autoload 'gnus-copy-article-buffer "gnus-msg")
    (autoload 'gnus-alive-p "gnus-util")
    (autoload 'rmail-output "rmail"))
  
    (autoload 'gnus-alive-p "gnus-util")
    (autoload 'rmail-output "rmail"))
  
@@ -999,12 +1156,12 @@ The cdr of ech entry is a function for applying the face to a region.")
                                (not paren))))
                  (push (buffer-substring beg (point)) elems)
                  (setq beg (match-end 0)))
                                (not paren))))
                  (push (buffer-substring beg (point)) elems)
                  (setq beg (match-end 0)))
-               ((= (following-char) ?\")
+               ((eq (char-after) ?\")
                  (setq quoted (not quoted)))
                  (setq quoted (not quoted)))
-               ((and (= (following-char) ?\()
+               ((and (eq (char-after) ?\()
                       (not quoted))
                  (setq paren t))
                       (not quoted))
                  (setq paren t))
-               ((and (= (following-char) ?\))
+               ((and (eq (char-after) ?\))
                       (not quoted))
                  (setq paren nil))))
         (nreverse elems)))))
                       (not quoted))
                  (setq paren nil))))
         (nreverse elems)))))
@@ -1024,7 +1181,9 @@ The cdr of ech entry is a function for applying the face to a region.")
    (let* ((inhibit-point-motion-hooks t)
          (value (mail-fetch-field header nil (not not-all))))
      (when value
    (let* ((inhibit-point-motion-hooks t)
          (value (mail-fetch-field header nil (not not-all))))
      (when value
-      (nnheader-replace-chars-in-string value ?\n ? ))))
+      (while (string-match "\n[\t ]+" value)
+       (setq value (replace-match " " t t value)))
+      value)))
  
  (defun message-narrow-to-field ()
    "Narrow the buffer to the header on the current line."
  
  (defun message-narrow-to-field ()
    "Narrow the buffer to the header on the current line."
@@ -1055,11 +1214,12 @@ The cdr of ech entry is a function for applying the face to a region.")
  
  (defun message-fetch-reply-field (header)
    "Fetch FIELD from the message we're replying to."
  
  (defun message-fetch-reply-field (header)
    "Fetch FIELD from the message we're replying to."
-  (when (and message-reply-buffer
-            (buffer-name message-reply-buffer))
-    (save-excursion
-      (set-buffer message-reply-buffer)
-      (message-fetch-field header))))
+  (let ((buffer (message-get-reply-buffer)))
+    (when (and buffer
+              (buffer-name buffer))
+      (save-excursion
+       (set-buffer buffer)
+       (message-fetch-field header)))))
  
  (defun message-set-work-buffer ()
    (if (get-buffer " *message work*")
  
  (defun message-set-work-buffer ()
    (if (get-buffer " *message work*")
@@ -1067,8 +1227,7 @@ The cdr of ech entry is a function for applying the face to a region.")
         (set-buffer " *message work*")
         (erase-buffer))
      (set-buffer (get-buffer-create " *message work*"))
         (set-buffer " *message work*")
         (erase-buffer))
      (set-buffer (get-buffer-create " *message work*"))
-    (kill-all-local-variables)
-    (mm-enable-multibyte)))
+    (kill-all-local-variables)))
  
  (defun message-functionp (form)
    "Return non-nil if FORM is funcallable."
  
  (defun message-functionp (form)
    "Return non-nil if FORM is funcallable."
@@ -1138,6 +1297,21 @@ Point is left at the beginning of the narrowed-to region."
       (point-max)))
    (goto-char (point-min)))
  
       (point-max)))
    (goto-char (point-min)))
  
+(defun message-narrow-to-headers-or-head ()
+  "Narrow the buffer to the head of the message."
+  (widen)
+  (narrow-to-region
+   (goto-char (point-min))
+   (cond
+    ((re-search-forward
+      (concat "^" (regexp-quote mail-header-separator) "\n") nil t)
+     (match-beginning 0))
+    ((search-forward "\n\n" nil t)
+     (1- (point)))
+    (t
+     (point-max))))
+  (goto-char (point-min)))
+
  (defun message-news-p ()
    "Say whether the current buffer contains a news message."
    (and (not message-this-is-mail)
  (defun message-news-p ()
    "Say whether the current buffer contains a news message."
    (and (not message-this-is-mail)
@@ -1201,6 +1375,22 @@ Point is left at the beginning of the narrowed-to region."
              (1+ max)))))
        (message-sort-headers-1))))
  
              (1+ max)))))
        (message-sort-headers-1))))
  
+(defun message-eval-parameter (parameter)
+  (condition-case ()
+      (if (symbolp parameter)
+         (if (functionp parameter)
+             (funcall parameter)
+           (eval parameter))
+       parameter)
+    (error nil)))
+
+(defun message-get-reply-buffer ()
+  (message-eval-parameter message-reply-buffer))
+
+(defun message-get-original-reply-buffer ()
+  (message-eval-parameter
+   (cdr (assq 'original-buffer message-parameter-alist))))
+
  \f
  
  ;;;
  \f
  
  ;;;
@@ -1212,7 +1402,8 @@ Point is left at the beginning of the narrowed-to region."
  (defvar message-mode-map nil)
  
  (unless message-mode-map
  (defvar message-mode-map nil)
  
  (unless message-mode-map
-  (setq message-mode-map (copy-keymap text-mode-map))
+  (setq message-mode-map (make-keymap))
+  (set-keymap-parent message-mode-map text-mode-map)
    (define-key message-mode-map "\C-c?" 'describe-mode)
  
    (define-key message-mode-map "\C-c\C-f\C-t" 'message-goto-to)
    (define-key message-mode-map "\C-c?" 'describe-mode)
  
    (define-key message-mode-map "\C-c\C-f\C-t" 'message-goto-to)
@@ -1220,7 +1411,9 @@ Point is left at the beginning of the narrowed-to region."
    (define-key message-mode-map "\C-c\C-f\C-w" 'message-goto-fcc)
    (define-key message-mode-map "\C-c\C-f\C-c" 'message-goto-cc)
    (define-key message-mode-map "\C-c\C-f\C-s" 'message-goto-subject)
    (define-key message-mode-map "\C-c\C-f\C-w" 'message-goto-fcc)
    (define-key message-mode-map "\C-c\C-f\C-c" 'message-goto-cc)
    (define-key message-mode-map "\C-c\C-f\C-s" 'message-goto-subject)
-  (define-key message-mode-map "\C-c\C-f\C-r" 'message-goto-reply-to)
+  ;; (define-key message-mode-map "\C-c\C-f\C-r" 'message-goto-reply-to)
+  (define-key message-mode-map "\C-c\C-f\C-r" 'message-goto-mail-reply-to)
+  (define-key message-mode-map "\C-c\C-f\C-m" 'message-goto-mail-followup-to)
    (define-key message-mode-map "\C-c\C-f\C-n" 'message-goto-newsgroups)
    (define-key message-mode-map "\C-c\C-f\C-d" 'message-goto-distribution)
    (define-key message-mode-map "\C-c\C-f\C-f" 'message-goto-followup-to)
    (define-key message-mode-map "\C-c\C-f\C-n" 'message-goto-newsgroups)
    (define-key message-mode-map "\C-c\C-f\C-d" 'message-goto-distribution)
    (define-key message-mode-map "\C-c\C-f\C-f" 'message-goto-followup-to)
@@ -1249,7 +1442,10 @@ Point is left at the beginning of the narrowed-to region."
    (define-key message-mode-map "\C-c\C-z" 'message-kill-to-signature)
    (define-key message-mode-map "\M-\r" 'message-newline-and-reformat)
  
    (define-key message-mode-map "\C-c\C-z" 'message-kill-to-signature)
    (define-key message-mode-map "\M-\r" 'message-newline-and-reformat)
  
-  (define-key message-mode-map "\t" 'message-tab))
+  (define-key message-mode-map "\t" 'message-tab)
+
+  (define-key message-mode-map "\C-x\C-s" 'message-save-drafts)
+  (define-key message-mode-map "\C-xk" 'message-kill-buffer))
  
  (easy-menu-define
   message-mode-menu message-mode-map "Message Menu."
  
  (easy-menu-define
   message-mode-menu message-mode-map "Message Menu."
@@ -1281,6 +1477,9 @@ Point is left at the beginning of the narrowed-to region."
     ["Subject" message-goto-subject t]
     ["Cc" message-goto-cc t]
     ["Reply-To" message-goto-reply-to t]
     ["Subject" message-goto-subject t]
     ["Cc" message-goto-cc t]
     ["Reply-To" message-goto-reply-to t]
+   ["Mail-Reply-To" message-goto-mail-reply-to t]
+   ["Mail-Followup-To" message-goto-mail-followup-to t]
+   ["Mail-Copies-To" message-goto-mail-copies-to t]
     ["Summary" message-goto-summary t]
     ["Keywords" message-goto-keywords t]
     ["Newsgroups" message-goto-newsgroups t]
     ["Summary" message-goto-summary t]
     ["Keywords" message-goto-keywords t]
     ["Newsgroups" message-goto-newsgroups t]
@@ -1303,6 +1502,7 @@ C-c C-f  move to a header field (and create it if there isn't):
          C-c C-f C-w  move to Fcc       C-c C-f C-r  move to Reply-To
          C-c C-f C-u  move to Summary   C-c C-f C-n  move to Newsgroups
          C-c C-f C-k  move to Keywords  C-c C-f C-d  move to Distribution
          C-c C-f C-w  move to Fcc       C-c C-f C-r  move to Reply-To
          C-c C-f C-u  move to Summary   C-c C-f C-n  move to Newsgroups
          C-c C-f C-k  move to Keywords  C-c C-f C-d  move to Distribution
+        C-c C-f C-m  move to Mail-Followup-To
          C-c C-f C-f  move to Followup-To
  C-c C-t  message-insert-to (add a To header to a news followup)
  C-c C-n  message-insert-newsgroups (add a Newsgroup header to a news reply)
          C-c C-f C-f  move to Followup-To
  C-c C-t  message-insert-to (add a To header to a news followup)
  C-c C-n  message-insert-newsgroups (add a Newsgroup header to a news reply)
@@ -1312,12 +1512,12 @@ C-c C-w  message-insert-signature (insert `message-signature-file' file).
  C-c C-y  message-yank-original (insert current message, if any).
  C-c C-q  message-fill-yanked-message (fill what was yanked).
  C-c C-e  message-elide-region (elide the text between point and mark).
  C-c C-y  message-yank-original (insert current message, if any).
  C-c C-q  message-fill-yanked-message (fill what was yanked).
  C-c C-e  message-elide-region (elide the text between point and mark).
+C-c C-v  message-delete-not-region (remove the text outside the region).
  C-c C-z  message-kill-to-signature (kill the text up to the signature).
  C-c C-r  message-caesar-buffer-body (rot13 the message body)."
    (interactive)
    (kill-all-local-variables)
  C-c C-z  message-kill-to-signature (kill the text up to the signature).
  C-c C-r  message-caesar-buffer-body (rot13 the message body)."
    (interactive)
    (kill-all-local-variables)
-  (make-local-variable 'message-reply-buffer)
-  (setq message-reply-buffer nil)
+  (set (make-local-variable 'message-reply-buffer) nil)
    (make-local-variable 'message-send-actions) 
    (make-local-variable 'message-exit-actions) 
    (make-local-variable 'message-kill-actions)
    (make-local-variable 'message-send-actions) 
    (make-local-variable 'message-exit-actions) 
    (make-local-variable 'message-kill-actions)
@@ -1356,13 +1556,13 @@ C-c C-r  message-caesar-buffer-body (rot13 the message body)."
    (setq paragraph-separate paragraph-start)
    (make-local-variable 'message-reply-headers)
    (setq message-reply-headers nil)
    (setq paragraph-separate paragraph-start)
    (make-local-variable 'message-reply-headers)
    (setq message-reply-headers nil)
-  (make-local-variable 'message-newsreader)
-  (make-local-variable 'message-mailer)
+  (make-local-variable 'message-user-agent)
    (make-local-variable 'message-post-method)
    (make-local-variable 'message-post-method)
-  (make-local-variable 'message-sent-message-via)
-  (setq message-sent-message-via nil)
-  (make-local-variable 'message-checksum)
-  (setq message-checksum nil)
+  (set (make-local-variable 'message-sent-message-via) nil)
+  (set (make-local-variable 'message-checksum) nil)
+  (make-local-variable 'message-parameter-alist)
+  (setq message-parameter-alist
+       (copy-sequence message-startup-parameter-alist))
    ;;(when (fboundp 'mail-hist-define-keys)
    ;;  (mail-hist-define-keys))
    (when (string-match "XEmacs\\|Lucid" emacs-version)
    ;;(when (fboundp 'mail-hist-define-keys)
    ;;  (mail-hist-define-keys))
    (when (string-match "XEmacs\\|Lucid" emacs-version)
@@ -1387,7 +1587,6 @@ C-c C-r  message-caesar-buffer-body (rot13 the message body)."
    (setq adaptive-fill-first-line-regexp
         (concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|"
                 adaptive-fill-first-line-regexp))
    (setq adaptive-fill-first-line-regexp
         (concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|"
                 adaptive-fill-first-line-regexp))
-  (mm-enable-multibyte)
    (run-hooks 'text-mode-hook 'message-mode-hook))
  
  \f
    (run-hooks 'text-mode-hook 'message-mode-hook))
  
  \f
@@ -1428,6 +1627,21 @@ C-c C-r  message-caesar-buffer-body (rot13 the message body)."
    (interactive)
    (message-position-on-field "Reply-To" "Subject"))
  
    (interactive)
    (message-position-on-field "Reply-To" "Subject"))
  
+(defun message-goto-mail-reply-to ()
+  "Move point to the Mail-Reply-To header."
+  (interactive)
+  (message-position-on-field "Mail-Reply-To" "Subject"))
+
+(defun message-goto-mail-followup-to ()
+  "Move point to the Mail-Followup-To header."
+  (interactive)
+  (message-position-on-field "Mail-Followup-To" "Subject"))
+
+(defun message-goto-mail-copies-to ()
+  "Move point to the Mail-Copies-To header."
+  (interactive)
+  (message-position-on-field "Mail-Copies-To" "Subject"))
+
  (defun message-goto-newsgroups ()
    "Move point to the Newsgroups header."
    (interactive)
  (defun message-goto-newsgroups ()
    "Move point to the Newsgroups header."
    (interactive)
@@ -1488,7 +1702,8 @@ With the prefix argument FORCE, insert the header anyway."
    (let ((co (message-fetch-reply-field "mail-copies-to")))
      (when (and (null force)
                co
    (let ((co (message-fetch-reply-field "mail-copies-to")))
      (when (and (null force)
                co
-              (equal (downcase co) "never"))
+              (or (equal (downcase co) "never")
+                  (equal (downcase co) "nobody")))
        (error "The user has requested not to have copies sent via mail")))
    (when (and (message-position-on-field "To")
              (mail-fetch-field "to")
        (error "The user has requested not to have copies sent via mail")))
    (when (and (message-position-on-field "To")
              (mail-fetch-field "to")
@@ -1623,9 +1838,10 @@ text was killed."
      ;; Then we translate the region.  Do it this way to retain
      ;; text properties.
      (while (< b e)
      ;; Then we translate the region.  Do it this way to retain
      ;; text properties.
      (while (< b e)
-      (subst-char-in-region
-       b (1+ b) (char-after b)
-       (aref message-caesar-translation-table (char-after b)))
+      (when (< (char-after b) 255)
+       (subst-char-in-region
+        b (1+ b) (char-after b)
+        (aref message-caesar-translation-table (char-after b))))
        (incf b))))
  
  (defun message-make-caesar-translation-table (n)
        (incf b))))
  
  (defun message-make-caesar-translation-table (n)
@@ -1749,6 +1965,7 @@ However, if `message-yank-prefix' is non-nil, insert that prefix on each line."
           (forward-line 1))))
      (goto-char start)))
  
           (forward-line 1))))
      (goto-char start)))
  
+(defvar gnus-article-copy)
  (defun message-yank-original (&optional arg)
    "Insert the message being replied to, if any.
  Puts point before the text and mark after.
  (defun message-yank-original (&optional arg)
    "Insert the message being replied to, if any.
  Puts point before the text and mark after.
@@ -1760,11 +1977,12 @@ This function uses `message-cite-function' to do the actual citing.
  Just \\[universal-argument] as argument means don't indent, insert no
  prefix, and don't delete any headers."
    (interactive "P")
  Just \\[universal-argument] as argument means don't indent, insert no
  prefix, and don't delete any headers."
    (interactive "P")
-  (let ((modified (buffer-modified-p)))
-    (when (and message-reply-buffer
+  (let ((modified (buffer-modified-p))
+       (buffer (message-get-reply-buffer)))
+    (when (and buffer
                message-cite-function)
                message-cite-function)
-      (delete-windows-on message-reply-buffer t)
-      (insert-buffer message-reply-buffer)
+      (delete-windows-on buffer t)
+      (insert-buffer buffer)
        (funcall message-cite-function)
        (message-exchange-point-and-mark)
        (unless (bolp)
        (funcall message-cite-function)
        (message-exchange-point-and-mark)
        (unless (bolp)
@@ -1781,6 +1999,11 @@ prefix, and don't delete any headers."
            (if (listp message-indent-citation-function)
                message-indent-citation-function
              (list message-indent-citation-function)))))
            (if (listp message-indent-citation-function)
                message-indent-citation-function
              (list message-indent-citation-function)))))
+    (goto-char start)
+    ;; Quote parts.
+    (while (re-search-forward "<#/?!*\\(multi\\|part\\)>" end t)
+      (goto-char (match-beginning 1))
+      (insert "!"))
      (goto-char end)
      (when (re-search-backward "^-- $" start t)
        ;; Also peel off any blank lines before the signature.
      (goto-char end)
      (when (re-search-backward "^-- $" start t)
        ;; Also peel off any blank lines before the signature.
@@ -1804,12 +2027,18 @@ prefix, and don't delete any headers."
            mail-citation-hook)
        (run-hooks 'mail-citation-hook)
      (let ((start (point))
            mail-citation-hook)
        (run-hooks 'mail-citation-hook)
      (let ((start (point))
+         (end (mark t))
           (functions
            (when message-indent-citation-function
              (if (listp message-indent-citation-function)
                  message-indent-citation-function
                (list message-indent-citation-function)))))
        (goto-char start)
           (functions
            (when message-indent-citation-function
              (if (listp message-indent-citation-function)
                  message-indent-citation-function
                (list message-indent-citation-function)))))
        (goto-char start)
+      ;; Quote parts.
+      (while (re-search-forward "<#/?!*\\(multi\\|part\\)>" end t)
+       (goto-char (match-beginning 1))
+       (insert "!"))
+      (goto-char start)
        (while functions
         (funcall (pop functions)))
        (when message-citation-line-function
        (while functions
         (funcall (pop functions)))
        (when message-citation-line-function
@@ -1878,11 +2107,18 @@ The text will also be indented the normal way."
  ;;; Sending messages
  ;;;
  
  ;;; Sending messages
  ;;;
  
+;; Avoid byte-compile warning.
+(defvar message-encoding-buffer nil)
+(defvar message-edit-buffer nil)
+(defvar message-mime-mode nil)
+
  (defun message-send-and-exit (&optional arg)
    "Send message like `message-send', then, if no errors, exit from mail buffer."
    (interactive "P")
    (let ((buf (current-buffer))
  (defun message-send-and-exit (&optional arg)
    "Send message like `message-send', then, if no errors, exit from mail buffer."
    (interactive "P")
    (let ((buf (current-buffer))
-       (actions message-exit-actions))
+       (actions message-exit-actions)
+       (frame (selected-frame))
+       (org-frame message-original-frame))
      (when (and (message-send arg)
                (buffer-name buf))
        (if message-kill-buffer-on-exit
      (when (and (message-send arg)
                (buffer-name buf))
        (if message-kill-buffer-on-exit
@@ -1890,7 +2126,9 @@ The text will also be indented the normal way."
         (bury-buffer buf)
         (when (eq buf (current-buffer))
           (message-bury buf)))
         (bury-buffer buf)
         (when (eq buf (current-buffer))
           (message-bury buf)))
-      (message-do-actions actions))))
+      (message-do-actions actions)
+      (message-delete-frame frame org-frame)
+      t)))
  
  (defun message-dont-send ()
    "Don't send the message you have been editing."
  
  (defun message-dont-send ()
    "Don't send the message you have been editing."
@@ -1905,11 +2143,36 @@ The text will also be indented the normal way."
    "Kill the current buffer."
    (interactive)
    (when (or (not (buffer-modified-p))
    "Kill the current buffer."
    (interactive)
    (when (or (not (buffer-modified-p))
-           (yes-or-no-p "Message modified; kill anyway? "))
-    (let ((actions message-kill-actions))
+           (eq t message-kill-buffer-query-function)
+           (funcall message-kill-buffer-query-function
+                    "The buffer modified; kill anyway? "))
+    (let ((actions message-kill-actions)
+         (frame (selected-frame))
+         (org-frame message-original-frame))
        (setq buffer-file-name nil)
        (kill-buffer (current-buffer))
        (setq buffer-file-name nil)
        (kill-buffer (current-buffer))
-      (message-do-actions actions))))
+      (message-do-actions actions)
+      (message-delete-frame frame org-frame)))
+  (message ""))
+
+(defun message-delete-frame (frame org-frame)
+  "Delete frame for editing message."
+  (when (and (or (and (featurep 'xemacs)
+                     (not (eq 'tty (device-type))))
+                window-system
+                (>= emacs-major-version 20))
+            (or (and (eq message-delete-frame-on-exit t)
+                     (select-frame frame)
+                     (or (eq frame org-frame)
+                         (prog1
+                             (y-or-n-p "Delete this frame?")
+                           (message ""))))
+                (and (eq message-delete-frame-on-exit 'ask)
+                     (select-frame frame)
+                     (prog1
+                         (y-or-n-p "Delete this frame?")
+                       (message "")))))
+    (delete-frame frame)))
  
  (defun message-bury (buffer)
    "Bury this mail buffer."
  
  (defun message-bury (buffer)
    "Bury this mail buffer."
@@ -1936,23 +2199,32 @@ the user from the mailer."
      (undo-boundary)
      (let ((inhibit-read-only t))
        (put-text-property (point-min) (point-max) 'read-only nil))
      (undo-boundary)
      (let ((inhibit-read-only t))
        (put-text-property (point-min) (point-max) 'read-only nil))
-    (message-fix-before-sending)
      (run-hooks 'message-send-hook)
      (message "Sending...")
      (run-hooks 'message-send-hook)
      (message "Sending...")
-    (let ((alist message-send-method-alist)
+    (let ((message-encoding-buffer
+          (message-generate-new-buffer-clone-locals " message encoding"))
+         (message-edit-buffer (current-buffer))
+         (message-mime-mode mime-edit-mode-flag)
+         (alist message-send-method-alist)
           (success t)
           elem sent)
           (success t)
           elem sent)
-      (while (and success
-                 (setq elem (pop alist)))
-       (when (and (or (not (funcall (cadr elem)))
-                      (and (or (not (memq (car elem)
-                                          message-sent-message-via))
-                               (y-or-n-p
-                                (format
-                                 "Already sent message via %s; resend? "
-                                 (car elem))))
-                           (setq success (funcall (caddr elem) arg)))))
-         (setq sent t)))
+      (save-excursion
+       (set-buffer message-encoding-buffer)
+       (erase-buffer)
+       (insert-buffer message-edit-buffer)
+       (funcall message-encode-function)
+       (message-fix-before-sending)
+       (while (and success
+                   (setq elem (pop alist)))
+         (when (and (or (not (funcall (cadr elem)))
+                        (and (or (not (memq (car elem)
+                                            message-sent-message-via))
+                                 (y-or-n-p
+                                  (format
+                                   "Already sent message via %s; resend? "
+                                   (car elem))))
+                             (setq success (funcall (caddr elem) arg)))))
+           (setq sent t))))
        (when (and success sent)
         (message-do-fcc)
         ;;(when (fboundp 'mail-hist-put-headers-into-history)
        (when (and success sent)
         (message-do-fcc)
         ;;(when (fboundp 'mail-hist-put-headers-into-history)
@@ -1975,7 +2247,16 @@ the user from the mailer."
  
  (defun message-send-via-news (arg)
    "Send the current message via news."
  
  (defun message-send-via-news (arg)
    "Send the current message via news."
-  (funcall message-send-news-function arg))
+  (message-send-news arg))
+
+(defmacro message-check (type &rest forms)
+  "Eval FORMS if TYPE is to be checked."
+  `(or (message-check-element ,type)
+       (save-excursion
+        ,@forms)))
+
+(put 'message-check 'lisp-indent-function 1)
+(put 'message-check 'edebug-form-spec '(form body))
  
  (defun message-fix-before-sending ()
    "Do various things to make the message nice before sending it."
  
  (defun message-fix-before-sending ()
    "Do various things to make the message nice before sending it."
@@ -1984,10 +2265,11 @@ the user from the mailer."
    (unless (bolp)
      (insert "\n"))
    ;; Delete all invisible text.
    (unless (bolp)
      (insert "\n"))
    ;; Delete all invisible text.
-  (when (text-property-any (point-min) (point-max) 'invisible t)
-    (put-text-property (point-min) (point-max) 'invisible nil)
-    (unless (yes-or-no-p "Invisible text found and made visible; continue posting?")
-      (error "Invisible text found and made visible"))))
+  (message-check 'invisible-text
+    (when (text-property-any (point-min) (point-max) 'invisible t)
+      (put-text-property (point-min) (point-max) 'invisible nil)
+      (unless (yes-or-no-p "Invisible text found and made visible; continue posting? ")
+       (error "Invisible text found and made visible")))))
  
  (defun message-add-action (action &rest types)
    "Add ACTION to be performed when doing an exit of type TYPES."
  
  (defun message-add-action (action &rest types)
    "Add ACTION to be performed when doing an exit of type TYPES."
@@ -2010,48 +2292,94 @@ the user from the mailer."
         (eval (car actions)))))
      (pop actions)))
  
         (eval (car actions)))))
      (pop actions)))
  
+(defsubst message-maybe-split-and-send-mail ()
+  "Split a message if necessary, and send it via mail.
+Returns nil if sending succeeded, returns any string if sending failed.
+This sub function is for exclusive use of `message-send-mail'."
+  (let ((mime-edit-split-ignored-field-regexp
+        mime-edit-split-ignored-field-regexp)
+       (case-fold-search t)
+       failure)
+    (while (string-match "Message-ID" mime-edit-split-ignored-field-regexp)
+      (setq mime-edit-split-ignored-field-regexp
+           (concat (substring mime-edit-split-ignored-field-regexp
+                              0 (match-beginning 0))
+                   "Hey_MIME-Edit,_there_is_an_inviolable_Message_ID"
+                   "_so_don't_rape_it!"
+                   (substring mime-edit-split-ignored-field-regexp
+                              (match-end 0)))))
+    (setq failure
+         (or
+          (catch 'message-sending-mail-failure
+            (mime-edit-maybe-split-and-send
+             (function
+              (lambda ()
+                (interactive)
+                (save-restriction
+                  (std11-narrow-to-header mail-header-separator)
+                  (goto-char (point-min))
+                  (when (re-search-forward "^Message-ID:" nil t)
+                    (delete-region (match-end 0) (std11-field-end))
+                    (insert " " (message-make-message-id))))
+                (condition-case err
+                    (funcall message-send-mail-function)
+                  (error
+                   (throw 'message-sending-mail-failure err))))))
+            nil)
+          (condition-case err
+              (progn
+                (funcall message-send-mail-function)
+                nil)
+            (error err))))
+    (when failure
+      (if (eq 'error (car failure))
+         (cadr failure)
+       (prin1-to-string failure)))))
+
  (defun message-send-mail (&optional arg)
    (require 'mail-utils)
    (let ((tembuf (message-generate-new-buffer-clone-locals " message temp"))
         (case-fold-search nil)
         (news (message-news-p))
  (defun message-send-mail (&optional arg)
    (require 'mail-utils)
    (let ((tembuf (message-generate-new-buffer-clone-locals " message temp"))
         (case-fold-search nil)
         (news (message-news-p))
-       (mailbuf (current-buffer)))
+       failure)
      (save-restriction
        (message-narrow-to-headers)
        ;; Insert some headers.
        (let ((message-deletable-headers
              (if news nil message-deletable-headers)))
         (message-generate-headers message-required-mail-headers))
      (save-restriction
        (message-narrow-to-headers)
        ;; Insert some headers.
        (let ((message-deletable-headers
              (if news nil message-deletable-headers)))
         (message-generate-headers message-required-mail-headers))
-      (rfc2047-encode-message-header)
        ;; Let the user do all of the above.
        (run-hooks 'message-header-hook))
        ;; Let the user do all of the above.
        (run-hooks 'message-header-hook))
-    (message-encode-message-body)
-    (unwind-protect
-       (save-excursion
-         (set-buffer tembuf)
-         (erase-buffer)
-         ;; Avoid copying text props.
-         (insert (format
-                  "%s" (save-excursion
-                         (set-buffer mailbuf)
-                         (buffer-string))))
-         ;; Remove some headers.
-         (save-restriction
-           (message-narrow-to-headers)
+    (if (not (message-check-mail-syntax))
+       (progn
+         (message "")
+         nil)
+      (unwind-protect
+         (save-excursion
+           (set-buffer tembuf)
+           (erase-buffer)
+           (insert-buffer message-encoding-buffer)
             ;; Remove some headers.
             ;; Remove some headers.
-           (message-remove-header message-ignored-mail-headers t))
-         (goto-char (point-max))
-         ;; require one newline at the end.
-         (or (= (preceding-char) ?\n)
-             (insert ?\n))
-         (when (and news
-                    (or (message-fetch-field "cc")
-                        (message-fetch-field "to")))
-           (message-insert-courtesy-copy))
-         (funcall message-send-mail-function))
-      (kill-buffer tembuf))
-    (set-buffer mailbuf)
-    (push 'mail message-sent-message-via)))
+           (save-restriction
+             (message-narrow-to-headers)
+             ;; Remove some headers.
+             (message-remove-header message-ignored-mail-headers t))
+           (goto-char (point-max))
+           ;; require one newline at the end.
+           (or (= (preceding-char) ?\n)
+               (insert ?\n))
+           (when (and news
+                      (or (message-fetch-field "cc")
+                          (message-fetch-field "to")))
+             (message-insert-courtesy-copy))
+           (setq failure (message-maybe-split-and-send-mail)))
+       (kill-buffer tembuf))
+      (set-buffer message-edit-buffer)
+      (if failure
+         (progn
+           (message "Couldn't send message via mail: %s" failure)
+           nil)
+       (push 'mail message-sent-message-via)))))
  
  (defun message-send-mail-with-sendmail ()
    "Send off the prepared buffer with sendmail."
  
  (defun message-send-mail-with-sendmail ()
    "Send off the prepared buffer with sendmail."
@@ -2126,6 +2454,7 @@ to find out how to use this."
    (re-search-forward
     (concat "^" (regexp-quote mail-header-separator) "\n"))
    (replace-match "\n")
    (re-search-forward
     (concat "^" (regexp-quote mail-header-separator) "\n"))
    (replace-match "\n")
+  (backward-char 1)
    (run-hooks 'message-send-mail-hook)
    ;; send the message
    (case
    (run-hooks 'message-send-mail-hook)
    ;; send the message
    (case
@@ -2177,13 +2506,72 @@ to find out how to use this."
      ;; Pass it on to mh.
      (mh-send-letter)))
  
      ;; Pass it on to mh.
      (mh-send-letter)))
  
+(defun message-send-mail-with-smtp ()
+  "Send off the prepared buffer with SMTP."
+  (require 'smtp) ; XXX
+  (let ((case-fold-search t)
+       recipients)
+    (save-restriction
+      (message-narrow-to-headers)
+      (setq recipients
+           ;; XXX: Should be replaced by better one.
+           (smtp-deduce-address-list (current-buffer)
+                                     (point-min) (point-max)))
+      ;; Remove BCC lines.
+      (message-remove-header "bcc"))
+    ;; replace the header delimiter with a blank line.
+    (goto-char (point-min))
+    (re-search-forward
+     (concat "^" (regexp-quote mail-header-separator) "\n"))
+    (replace-match "\n")
+    (backward-char 1)
+    (run-hooks 'message-send-mail-hook)
+    (if recipients
+       (let ((result (smtp-via-smtp user-mail-address
+                                    recipients
+                                    (current-buffer))))
+         (unless (eq result t)
+           (error "Sending failed; " result)))
+      (error "Sending failed; no recipients"))))
+
+(defsubst message-maybe-split-and-send-news (method)
+  "Split a message if necessary, and send it via news.
+Returns nil if sending succeeded, returns t if sending failed.
+This sub function is for exclusive use of `message-send-news'."
+  (let ((mime-edit-split-ignored-field-regexp
+        mime-edit-split-ignored-field-regexp)
+       (case-fold-search t))
+    (while (string-match "Message-ID" mime-edit-split-ignored-field-regexp)
+      (setq mime-edit-split-ignored-field-regexp
+           (concat (substring mime-edit-split-ignored-field-regexp
+                              0 (match-beginning 0))
+                   "Hey_MIME-Edit,_there_is_an_inviolable_Message_ID"
+                   "_so_don't_rape_it!"
+                   (substring mime-edit-split-ignored-field-regexp
+                              (match-end 0)))))
+    (or
+     (catch 'message-sending-news-failure
+       (mime-edit-maybe-split-and-send
+       (function
+        (lambda ()
+          (interactive)
+          (save-restriction
+            (std11-narrow-to-header mail-header-separator)
+            (goto-char (point-min))
+            (when (re-search-forward "^Message-ID:" nil t)
+              (delete-region (match-end 0) (std11-field-end))
+              (insert " " (message-make-message-id))))
+          (unless (funcall message-send-news-function method)
+            (throw 'message-sending-news-failure t)))))
+       nil)
+     (not (funcall message-send-news-function method)))))
+
  (defun message-send-news (&optional arg)
    (let ((tembuf (message-generate-new-buffer-clone-locals " *message temp*"))
         (case-fold-search nil)
         (method (if (message-functionp message-post-method)
                     (funcall message-post-method arg)
                   message-post-method))
  (defun message-send-news (&optional arg)
    (let ((tembuf (message-generate-new-buffer-clone-locals " *message temp*"))
         (case-fold-search nil)
         (method (if (message-functionp message-post-method)
                     (funcall message-post-method arg)
                   message-post-method))
-       (messbuf (current-buffer))
         (message-syntax-checks
          (if arg
              (cons '(existing-newsgroups . disabled)
         (message-syntax-checks
          (if arg
              (cons '(existing-newsgroups . disabled)
@@ -2194,25 +2582,17 @@ to find out how to use this."
        (message-narrow-to-headers)
        ;; Insert some headers.
        (message-generate-headers message-required-news-headers)
        (message-narrow-to-headers)
        ;; Insert some headers.
        (message-generate-headers message-required-news-headers)
-      (rfc2047-encode-message-header)
        ;; Let the user do all of the above.
        (run-hooks 'message-header-hook))
        ;; Let the user do all of the above.
        (run-hooks 'message-header-hook))
-    (message-encode-message-body)
      (message-cleanup-headers)
      (if (not (message-check-news-syntax))
      (message-cleanup-headers)
      (if (not (message-check-news-syntax))
-       (progn
-         ;;(message "Posting not performed")
-         nil)
+       nil
        (unwind-protect
           (save-excursion
             (set-buffer tembuf)
        (unwind-protect
           (save-excursion
             (set-buffer tembuf)
-           (buffer-disable-undo (current-buffer))
+           (buffer-disable-undo)
             (erase-buffer)
             (erase-buffer)
-           ;; Avoid copying text props.
-           (insert (format
-                    "%s" (save-excursion
-                           (set-buffer messbuf)
-                           (buffer-string))))
+           (insert-buffer message-encoding-buffer)
             ;; Remove some headers.
             (save-restriction
               (message-narrow-to-headers)
             ;; Remove some headers.
             (save-restriction
               (message-narrow-to-headers)
@@ -2222,43 +2602,40 @@ to find out how to use this."
             ;; require one newline at the end.
             (or (= (preceding-char) ?\n)
                 (insert ?\n))
             ;; require one newline at the end.
             (or (= (preceding-char) ?\n)
                 (insert ?\n))
-           (let ((case-fold-search t))
-             ;; Remove the delimiter.
-             (goto-char (point-min))
-             (re-search-forward
-              (concat "^" (regexp-quote mail-header-separator) "\n"))
-             (replace-match "\n")
-             (backward-char 1))
-           (run-hooks 'message-send-news-hook)
-           ;;(require (car method))
-           ;;(funcall (intern (format "%s-open-server" (car method)))
-           ;;(cadr method) (cddr method))
-           ;;(setq result
-           ;;    (funcall (intern (format "%s-request-post" (car method)))
-           ;;             (cadr method)))
-           (gnus-open-server method)
-           (setq result (gnus-request-post method)))
+           (setq result (message-maybe-split-and-send-news method)))
         (kill-buffer tembuf))
         (kill-buffer tembuf))
-      (set-buffer messbuf)
+      (set-buffer message-edit-buffer)
        (if result
        (if result
-         (push 'news message-sent-message-via)
-       (message "Couldn't send message via news: %s"
-                (nnheader-get-report (car method)))
-       nil))))
+         (progn
+           (message "Couldn't send message via news: %s"
+                    (nnheader-get-report (car method)))
+           nil)
+       (push 'news message-sent-message-via)))))
+
+;; 1997-09-29 by MORIOKA Tomohiko
+(defun message-send-news-with-gnus (method)
+  (let ((case-fold-search t))
+    ;; Remove the delimiter.
+    (goto-char (point-min))
+    (re-search-forward
+     (concat "^" (regexp-quote mail-header-separator) "\n"))
+    (replace-match "\n")
+    (backward-char 1)
+    (run-hooks 'message-send-news-hook)
+    ;;(require (car method))
+    ;;(funcall (intern (format "%s-open-server" (car method)))
+    ;;(cadr method) (cddr method))
+    ;;(setq result
+    ;;   (funcall (intern (format "%s-request-post" (car method)))
+    ;;            (cadr method)))
+    (gnus-open-server method)
+    (gnus-request-post method)
+    ))
  
  ;;;
  ;;; Header generation & syntax checking.
  ;;;
  
  
  ;;;
  ;;; Header generation & syntax checking.
  ;;;
  
-(defmacro message-check (type &rest forms)
-  "Eval FORMS if TYPE is to be checked."
-  `(or (message-check-element ,type)
-       (save-excursion
-        ,@forms)))
-
-(put 'message-check 'lisp-indent-function 1)
-(put 'message-check 'edebug-form-spec '(form body))
-
  (defun message-check-element (type)
    "Returns non-nil if this type is not to be checked."
    (if (eq message-syntax-checks 'dont-check-for-anything-just-trust-me)
  (defun message-check-element (type)
    "Returns non-nil if this type is not to be checked."
    (if (eq message-syntax-checks 'dont-check-for-anything-just-trust-me)
@@ -2279,7 +2656,9 @@ to find out how to use this."
            (message-narrow-to-headers)
            (message-check-news-header-syntax)))
         ;; Check the body.
            (message-narrow-to-headers)
            (message-check-news-header-syntax)))
         ;; Check the body.
-       (message-check-news-body-syntax)))))
+       (save-excursion
+        (set-buffer message-edit-buffer)
+        (message-check-news-body-syntax))))))
  
  (defun message-check-news-header-syntax ()
    (and
  
  (defun message-check-news-header-syntax ()
    (and
@@ -2445,7 +2824,7 @@ to find out how to use this."
     (message-check 'from
       (let* ((case-fold-search t)
             (from (message-fetch-field "from"))
     (message-check 'from
       (let* ((case-fold-search t)
             (from (message-fetch-field "from"))
-           (ad (nth 1 (mail-extract-address-components from))))
+           (ad (nth 1 (std11-extract-address-components from))))
         (cond
         ((not from)
          (message "There is no From line.  Posting is denied.")
         (cond
         ((not from)
          (message "There is no From line.  Posting is denied.")
@@ -2495,6 +2874,9 @@ to find out how to use this."
          (y-or-n-p
           "The article contains control characters.  Really post? ")
         t))
          (y-or-n-p
           "The article contains control characters.  Really post? ")
         t))
+   ;; Check 8bit characters.
+   (message-check '8bit
+     (message-check-8bit))
     ;; Check excessive size.
     (message-check 'size
       (if (> (buffer-size) 60000)
     ;; Check excessive size.
     (message-check 'size
       (if (> (buffer-size) 60000)
@@ -2522,6 +2904,54 @@ to find out how to use this."
              (1- (count-lines (point) (point-max)))))
          t)))))
  
              (1- (count-lines (point) (point-max)))))
          t)))))
  
+(defun message-check-mail-syntax ()
+  "Check the syntax of the message."
+  (save-excursion
+    (save-restriction
+      (widen)
+      (and
+       ;; We narrow to the headers and check them first.
+       (save-excursion
+        (save-restriction
+          (message-narrow-to-headers)
+          (message-check-mail-header-syntax)))
+       ;; Check the body.
+       (save-excursion
+        (set-buffer message-edit-buffer)
+        (message-check-mail-body-syntax))))))
+
+(defun message-check-mail-header-syntax ()
+  t)
+
+(defun message-check-mail-body-syntax ()
+  (and
+   ;; Check 8bit characters.
+   (message-check '8bit
+     (message-check-8bit)
+     )))
+
+(defun message-check-8bit ()
+  "Check the article contains 8bit characters."
+  (save-excursion
+    (set-buffer message-encoding-buffer)
+    (message-narrow-to-headers)
+    (let* ((case-fold-search t)
+          (field-value (message-fetch-field "content-transfer-encoding")))
+      (if (and field-value
+              (member (downcase field-value) message-8bit-encoding-list))
+         t
+       (widen)
+       (set-buffer (get-buffer-create " message syntax"))
+       (erase-buffer)
+       (goto-char (point-min))
+       (set-buffer-multibyte nil)
+       (insert-buffer message-encoding-buffer)
+       (goto-char (point-min))
+       (if (re-search-forward "[^\x00-\x7f]" nil t)
+           (y-or-n-p
+            "The article contains 8bit characters.  Really post? ")
+         t)))))
+
  (defun message-checksum ()
    "Return a \"checksum\" for the current buffer."
    (let ((sum 0))
  (defun message-checksum ()
    "Return a \"checksum\" for the current buffer."
    (let ((sum 0))
@@ -2532,20 +2962,19 @@ to find out how to use this."
        (while (not (eobp))
         (when (not (looking-at "[ \t\n]"))
           (setq sum (logxor (ash sum 1) (if (natnump sum) 0 1)
        (while (not (eobp))
         (when (not (looking-at "[ \t\n]"))
           (setq sum (logxor (ash sum 1) (if (natnump sum) 0 1)
-                           (following-char))))
+                           (char-after))))
         (forward-char 1)))
      sum))
  
  (defun message-do-fcc ()
    "Process Fcc headers in the current buffer."
    (let ((case-fold-search t)
         (forward-char 1)))
      sum))
  
  (defun message-do-fcc ()
    "Process Fcc headers in the current buffer."
    (let ((case-fold-search t)
-       (buf (current-buffer))
+       (coding-system-for-write 'raw-text)
         list file)
      (save-excursion
        (set-buffer (get-buffer-create " *message temp*"))
         list file)
      (save-excursion
        (set-buffer (get-buffer-create " *message temp*"))
-      (buffer-disable-undo (current-buffer))
        (erase-buffer)
        (erase-buffer)
-      (insert-buffer-substring buf)
+      (insert-buffer-substring message-encoding-buffer)
        (save-restriction
         (message-narrow-to-headers)
         (while (setq file (message-fetch-field "fcc"))
        (save-restriction
         (message-narrow-to-headers)
         (while (setq file (message-fetch-field "fcc"))
@@ -2573,14 +3002,13 @@ to find out how to use this."
                 (rmail-output file 1 nil t)
               (let ((mail-use-rfc822 t))
                 (rmail-output file 1 t t))))))
                 (rmail-output file 1 nil t)
               (let ((mail-use-rfc822 t))
                 (rmail-output file 1 t t))))))
-
        (kill-buffer (current-buffer)))))
  
  (defun message-output (filename)
    "Append this article to Unix/babyl mail file.."
    (if (and (file-readable-p filename)
            (mail-file-babyl-p filename))
        (kill-buffer (current-buffer)))))
  
  (defun message-output (filename)
    "Append this article to Unix/babyl mail file.."
    (if (and (file-readable-p filename)
            (mail-file-babyl-p filename))
-      (gnus-output-to-rmail filename t)
+      (rmail-output-to-rmail-file filename t)
      (gnus-output-to-mail filename t)))
  
  (defun message-cleanup-headers ()
      (gnus-output-to-mail filename t)))
  
  (defun message-cleanup-headers ()
@@ -2615,11 +3043,34 @@ to find out how to use this."
         (when (re-search-forward ",+$" nil t)
           (replace-match "" t t))))))
  
         (when (re-search-forward ",+$" nil t)
           (replace-match "" t t))))))
  
-(defun message-make-date ()
-  "Make a valid data header."
-  (let ((now (current-time)))
-    (timezone-make-date-arpa-standard
-     (current-time-string now) (current-time-zone now))))
+(defun message-make-date (&optional now)
+  "Make a valid data header.
+If NOW, use that time instead."
+  (let* ((now (or now (current-time)))
+        (zone (nth 8 (decode-time now)))
+        (sign "+"))
+    (when (< zone 0)
+      (setq sign "-")
+      (setq zone (- zone)))
+    (concat
+     (format-time-string "%d" now)
+     ;; The month name of the %b spec is locale-specific.  Pfff.
+     (format " %s "
+            (capitalize (car (rassoc (nth 4 (decode-time now))
+                                     parse-time-months))))
+     (format-time-string "%Y %H:%M:%S " now)
+     ;; We do all of this because XEmacs doesn't have the %z spec.
+     (format "%s%02d%02d" sign (/ zone 3600) (% zone 3600)))))
+
+(defun message-make-followup-subject (subject)
+  "Make a followup Subject."
+  (cond
+   ((and (eq message-use-subject-re 'guess)
+         (string-match message-subject-encoded-re-regexp subject))
+    subject)
+   (message-use-subject-re
+    (concat "Re: " (message-strip-subject-re subject)))
+   (t subject)))
  
  (defun message-make-message-id ()
    "Make a unique Message-ID."
  
  (defun message-make-message-id ()
    "Make a unique Message-ID."
@@ -2717,18 +3168,19 @@ to find out how to use this."
  (defun message-make-in-reply-to ()
    "Return the In-Reply-To header for this message."
    (when message-reply-headers
  (defun message-make-in-reply-to ()
    "Return the In-Reply-To header for this message."
    (when message-reply-headers
-    (let ((from (mail-header-from message-reply-headers))
+    (let ((mid (mail-header-message-id message-reply-headers))
+         (from (mail-header-from message-reply-headers))
           (date (mail-header-date message-reply-headers)))
           (date (mail-header-date message-reply-headers)))
-      (when from
-       (let ((stop-pos
-              (string-match "  *at \\|  *@ \\| *(\\| *<" from)))
-         (concat (if (and stop-pos
-                          (not (zerop stop-pos)))
-                     (substring from 0 stop-pos) from)
-                 "'s message of \""
-                 (if (or (not date) (string= date ""))
-                     "(unknown date)" date)
-                 "\""))))))
+      (when mid
+       (concat mid
+               (when from
+                 (let ((pair (std11-extract-address-components from)))
+                   (concat "\n ("
+                           (or (car pair) (cadr pair))
+                           "'s message of \""
+                           (if (or (not date) (string= date ""))
+                               "(unknown date)" date)
+                           "\")"))))))))
  
  (defun message-make-distribution ()
    "Make a Distribution header."
  
  (defun message-make-distribution ()
    "Make a Distribution header."
@@ -2744,9 +3196,7 @@ to find out how to use this."
      ;; Add the future to current.
      (setcar current (+ (car current) (round (/ future (expt 2 16)))))
      (setcar (cdr current) (+ (nth 1 current) (% (round future) (expt 2 16))))
      ;; Add the future to current.
      (setcar current (+ (car current) (round (/ future (expt 2 16)))))
      (setcar (cdr current) (+ (nth 1 current) (% (round future) (expt 2 16))))
-    ;; Return the date in the future in UT.
-    (timezone-make-date-arpa-standard
-     (current-time-string current) (current-time-zone current) '(0 "UT"))))
+    (message-make-date current)))
  
  (defun message-make-path ()
    "Return uucp path."
  
  (defun message-make-path ()
    "Return uucp path."
@@ -2832,7 +3282,7 @@ give as trustworthy answer as possible."
    "Return the pertinent part of `user-mail-address'."
    (when user-mail-address
      (if (string-match " " user-mail-address)
    "Return the pertinent part of `user-mail-address'."
    (when user-mail-address
      (if (string-match " " user-mail-address)
-       (nth 1 (mail-extract-address-components user-mail-address))
+       (nth 1 (std11-extract-address-components user-mail-address))
        user-mail-address)))
  
  (defun message-make-fqdn ()
        user-mail-address)))
  
  (defun message-make-fqdn ()
@@ -2868,6 +3318,31 @@ give as trustworthy answer as possible."
    (or mail-host-address
        (message-make-fqdn)))
  
    (or mail-host-address
        (message-make-fqdn)))
  
+;; Dummy to avoid byte-compile warning.
+(defvar mule-version)
+(defvar emacs-beta-version)
+(defvar xemacs-codename)
+(defvar gnus-inviolable-extended-version)
+
+(defun message-make-user-agent ()
+  "Return user-agent info if the value `message-user-agent' is non-nil. If the
+\"User-Agent\" field has already exist, it's value will be added in the return
+string."
+  (when message-user-agent
+    (save-excursion
+      (goto-char (point-min))
+      (let ((case-fold-search t)
+           user-agent start p end)
+       (if (re-search-forward "^User-Agent:[\t ]*" nil t)
+           (progn
+             (setq start (match-beginning 0)
+                   p (match-end 0)
+                   end (std11-field-end)
+                   user-agent (buffer-substring-no-properties p end))
+             (delete-region start (1+ end))
+             (concat message-user-agent " " user-agent))
+         message-user-agent)))))
+
  (defun message-generate-headers (headers)
    "Prepare article HEADERS.
  Headers already prepared in the buffer are not modified."
  (defun message-generate-headers (headers)
    "Prepare article HEADERS.
  Headers already prepared in the buffer are not modified."
@@ -2884,9 +3359,7 @@ Headers already prepared in the buffer are not modified."
            (To nil)
            (Distribution (message-make-distribution))
            (Lines (message-make-lines))
            (To nil)
            (Distribution (message-make-distribution))
            (Lines (message-make-lines))
-          (X-Newsreader message-newsreader)
-          (X-Mailer (and (not (message-fetch-field "X-Newsreader"))
-                         message-mailer))
+          (User-Agent (message-make-user-agent))
            (Expires (message-make-expires))
            (case-fold-search t)
            header value elem)
            (Expires (message-make-expires))
            (case-fold-search t)
            header value elem)
@@ -2925,7 +3398,7 @@ Headers already prepared in the buffer are not modified."
                   (progn
                     ;; The header was found.  We insert a space after the
                     ;; colon, if there is none.
                   (progn
                     ;; The header was found.  We insert a space after the
                     ;; colon, if there is none.
-                   (if (/= (following-char) ? ) (insert " ") (forward-char 1))
+                   (if (/= (char-after) ? ) (insert " ") (forward-char 1))
                     ;; Find out whether the header is empty...
                     (looking-at "[ \t]*$")))
           ;; So we find out what value we should insert.
                     ;; Find out whether the header is empty...
                     (looking-at "[ \t]*$")))
           ;; So we find out what value we should insert.
@@ -2983,13 +3456,13 @@ Headers already prepared in the buffer are not modified."
                    (not (message-check-element 'sender))
                    (not (string=
                          (downcase
                    (not (message-check-element 'sender))
                    (not (string=
                          (downcase
-                         (cadr (mail-extract-address-components from)))
+                         (cadr (std11-extract-address-components from)))
                          (downcase secure-sender)))
                    (or (null sender)
                        (not
                         (string=
                          (downcase
                          (downcase secure-sender)))
                    (or (null sender)
                        (not
                         (string=
                          (downcase
-                         (cadr (mail-extract-address-components sender)))
+                         (cadr (std11-extract-address-components sender)))
                          (downcase secure-sender)))))
           (goto-char (point-min))
           ;; Rename any old Sender headers to Original-Sender.
                          (downcase secure-sender)))))
           (goto-char (point-min))
           ;; Rename any old Sender headers to Original-Sender.
@@ -3034,17 +3507,16 @@ Headers already prepared in the buffer are not modified."
        (goto-char (point-min))
        (while (not (eobp))
         (skip-chars-forward "^,\"" (point-max))
        (goto-char (point-min))
        (while (not (eobp))
         (skip-chars-forward "^,\"" (point-max))
-       (if (or (= (following-char) ?,)
+       (if (or (eq (char-after) ?,)
                 (eobp))
             (when (not quoted)
               (if (and (> (current-column) 78)
                        last)
                 (eobp))
             (when (not quoted)
               (if (and (> (current-column) 78)
                        last)
-                 (progn
-                   (save-excursion
-                     (goto-char last)
-                     (insert "\n\t"))
-                   (setq last (1+ (point))))
-               (setq last (1+ (point)))))
+                  (save-excursion
+                    (goto-char last)
+                   (looking-at "[ \t]*")
+                    (replace-match "\n " t t)))
+              (setq last (1+ (point))))
           (setq quoted (not quoted)))
         (unless (eobp)
           (forward-char 1))))
           (setq quoted (not quoted)))
         (unless (eobp)
           (forward-char 1))))
@@ -3052,10 +3524,17 @@ Headers already prepared in the buffer are not modified."
      (widen)
      (forward-line 1)))
  
      (widen)
      (forward-line 1)))
  
+(defun message-fill-references (header value)
+  (insert (capitalize (symbol-name header))
+         ": "
+         (std11-fill-msg-id-list-string
+         (if (consp value) (car value) value))
+         "\n"))
+
  (defun message-fill-header (header value)
    (let ((begin (point))
  (defun message-fill-header (header value)
    (let ((begin (point))
-       (fill-column 990)
-       (fill-prefix "\t"))
+       (fill-column 78)
+       (fill-prefix " "))
      (insert (capitalize (symbol-name header))
             ": "
             (if (consp value) (car value) value)
      (insert (capitalize (symbol-name header))
             ": "
             (if (consp value) (car value) value)
@@ -3099,7 +3578,7 @@ Headers already prepared in the buffer are not modified."
      (search-backward ":" )
      (widen)
      (forward-char 1)
      (search-backward ":" )
      (widen)
      (forward-char 1)
-    (if (= (following-char) ? )
+    (if (eq (char-after) ? )
         (forward-char 1)
        (insert " ")))
     (t
         (forward-char 1)
        (insert " ")))
     (t
@@ -3118,11 +3597,21 @@ Headers already prepared in the buffer are not modified."
     ((message-functionp message-generate-new-buffers)
      (funcall message-generate-new-buffers type to group))
     ;; Generate a new buffer name The Message Way.
     ((message-functionp message-generate-new-buffers)
      (funcall message-generate-new-buffers type to group))
     ;; Generate a new buffer name The Message Way.
-   (message-generate-new-buffers
+   ((eq message-generate-new-buffers 'unique)
      (generate-new-buffer-name
       (concat "*" type
              (if to
                  (concat " to "
      (generate-new-buffer-name
       (concat "*" type
              (if to
                  (concat " to "
+                        (or (car (std11-extract-address-components to))
+                            to) "")
+              "")
+            (if (and group (not (string= group ""))) (concat " on " group) "")
+            "*")))
+   ((eq message-generate-new-buffers 'unsent)
+    (generate-new-buffer-name
+     (concat "*unsent " type
+            (if to
+                (concat " to "
                          (or (car (mail-extract-address-components to))
                              to) "")
                "")
                          (or (car (mail-extract-address-components to))
                              to) "")
                "")
@@ -3134,7 +3623,24 @@ Headers already prepared in the buffer are not modified."
  
  (defun message-pop-to-buffer (name)
    "Pop to buffer NAME, and warn if it already exists and is modified."
  
  (defun message-pop-to-buffer (name)
    "Pop to buffer NAME, and warn if it already exists and is modified."
-  (let ((buffer (get-buffer name)))
+  (let ((pop-up-frames pop-up-frames)
+       (special-display-buffer-names special-display-buffer-names)
+       (special-display-regexps special-display-regexps)
+       (same-window-buffer-names same-window-buffer-names)
+       (same-window-regexps same-window-regexps)
+       (buffer (get-buffer name))
+       (cur (current-buffer)))
+    (if (or (and (featurep 'xemacs)
+                (not (eq 'tty (device-type))))
+           window-system
+           (>= emacs-major-version 20))
+       (when message-use-multi-frames
+         (setq pop-up-frames t
+               special-display-buffer-names nil
+               special-display-regexps nil
+               same-window-buffer-names nil
+               same-window-regexps nil))
+      (setq pop-up-frames nil))
      (if (and buffer
              (buffer-name buffer))
         (progn
      (if (and buffer
              (buffer-name buffer))
         (progn
@@ -3145,7 +3651,10 @@ Headers already prepared in the buffer are not modified."
             (error "Message being composed")))
        (set-buffer (pop-to-buffer name)))
      (erase-buffer)
             (error "Message being composed")))
        (set-buffer (pop-to-buffer name)))
      (erase-buffer)
-    (message-mode)))
+    (message-mode)
+    (when pop-up-frames
+      (make-local-variable 'message-original-frame)
+      (setq message-original-frame (selected-frame)))))
  
  (defun message-do-send-housekeeping ()
    "Kill old message buffers."
  
  (defun message-do-send-housekeeping ()
    "Kill old message buffers."
@@ -3163,7 +3672,7 @@ Headers already prepared in the buffer are not modified."
    ;; Rename the buffer.
    (if message-send-rename-function
        (funcall message-send-rename-function)
    ;; Rename the buffer.
    (if message-send-rename-function
        (funcall message-send-rename-function)
-    (when (string-match "\\`\\*" (buffer-name))
+    (when (string-match "\\`\\*\\(unsent \\)?" (buffer-name))
        (rename-buffer
         (concat "*sent " (substring (buffer-name) (match-end 0))) t)))
    ;; Push the current buffer onto the list.
        (rename-buffer
         (concat "*sent " (substring (buffer-name) (match-end 0))) t)))
    ;; Push the current buffer onto the list.
@@ -3180,7 +3689,9 @@ Headers already prepared in the buffer are not modified."
           mc-modes-alist))
    (when actions
      (setq message-send-actions actions))
           mc-modes-alist))
    (when actions
      (setq message-send-actions actions))
-  (setq message-reply-buffer replybuffer)
+  (setq message-reply-buffer
+       (or (cdr (assq 'reply-buffer message-parameter-alist))
+           replybuffer))
    (goto-char (point-min))
    ;; Insert all the headers.
    (mail-header-format
    (goto-char (point-min))
    ;; Insert all the headers.
    (mail-header-format
@@ -3234,12 +3745,12 @@ Headers already prepared in the buffer are not modified."
  
  (defun message-set-auto-save-file-name ()
    "Associate the message buffer with a file in the drafts directory."
  
  (defun message-set-auto-save-file-name ()
    "Associate the message buffer with a file in the drafts directory."
-  (when message-autosave-directory
+  (when message-auto-save-directory
      (if (gnus-alive-p)
         (setq message-draft-article
               (nndraft-request-associate-buffer "drafts"))
        (setq buffer-file-name (expand-file-name "*message*"
      (if (gnus-alive-p)
         (setq message-draft-article
               (nndraft-request-associate-buffer "drafts"))
        (setq buffer-file-name (expand-file-name "*message*"
-                                              message-autosave-directory))
+                                              message-auto-save-directory))
        (setq buffer-auto-save-file-name (make-auto-save-file-name)))
      (clear-visited-file-modtime)))
  
        (setq buffer-auto-save-file-name (make-auto-save-file-name)))
      (clear-visited-file-modtime)))
  
@@ -3283,10 +3794,10 @@ OTHER-HEADERS is an alist of header/value pairs."
    "Start editing a reply to the article in the current buffer."
    (interactive)
    (let ((cur (current-buffer))
    "Start editing a reply to the article in the current buffer."
    (interactive)
    (let ((cur (current-buffer))
-       from subject date reply-to to cc
+       from subject date to cc
         references message-id follow-to
         (inhibit-point-motion-hooks t)
         references message-id follow-to
         (inhibit-point-motion-hooks t)
-       mct never-mct gnus-warning)
+       mct never-mct mft mrt gnus-warning)
      (save-restriction
        (message-narrow-to-head)
        ;; Allow customizations to have their say.
      (save-restriction
        (message-narrow-to-head)
        ;; Allow customizations to have their say.
@@ -3301,88 +3812,137 @@ OTHER-HEADERS is an alist of header/value pairs."
                     (funcall message-wide-reply-to-function)))))
        ;; Find all relevant headers we need.
        (setq from (message-fetch-field "from")
                     (funcall message-wide-reply-to-function)))))
        ;; Find all relevant headers we need.
        (setq from (message-fetch-field "from")
-           date (message-fetch-field "date")
+           date (message-fetch-field "date" t)
             subject (or (message-fetch-field "subject") "none")
             subject (or (message-fetch-field "subject") "none")
+           references (message-fetch-field "references")
+           message-id (message-fetch-field "message-id" t)
             to (message-fetch-field "to")
             cc (message-fetch-field "cc")
             to (message-fetch-field "to")
             cc (message-fetch-field "cc")
-           mct (message-fetch-field "mail-copies-to")
-           reply-to (message-fetch-field "reply-to")
-           references (message-fetch-field "references")
-           message-id (message-fetch-field "message-id" t))
+           mct (when (and wide message-use-mail-copies-to)
+                 (message-fetch-field "mail-copies-to"))
+           mft (when (and wide message-use-mail-followup-to)
+                 (message-fetch-field "mail-followup-to"))
+           mrt (when message-use-mail-reply-to
+                 (or (message-fetch-field "mail-reply-to")
+                     (message-fetch-field "reply-to")))
+           gnus-warning (message-fetch-field "gnus-warning"))
+      (when (and gnus-warning (string-match "<[^>]+>" gnus-warning))
+       (setq message-id (match-string 0 gnus-warning)))
        ;; Remove any (buggy) Re:'s that are present and make a
        ;; proper one.
        ;; Remove any (buggy) Re:'s that are present and make a
        ;; proper one.
-      (when (string-match message-subject-re-regexp subject)
-       (setq subject (substring subject (match-end 0))))
-      (setq subject (concat "Re: " subject))
-
-      (when (and (setq gnus-warning (message-fetch-field "gnus-warning"))
-                (string-match "<[^>]+>" gnus-warning))
-       (setq message-id (match-string 0 gnus-warning)))
-
-      ;; Handle special values of Mail-Copies-To.
-      (when mct
-       (cond ((equal (downcase mct) "never")
-              (setq never-mct t)
-              (setq mct nil))
-             ((equal (downcase mct) "always")
-              (setq mct (or reply-to from)))))
-
-      (unless follow-to
-       (if (or (not wide)
-               to-address)
-           (progn
-             (setq follow-to (list (cons 'To (or to-address reply-to from))))
-             (when (and wide mct)
-               (push (cons 'Cc mct) follow-to)))
-         (let (ccalist)
-           (save-excursion
-             (message-set-work-buffer)
-             (unless never-mct
-               (insert (or reply-to from "")))
-             (insert (if to (concat (if (bolp) "" ", ") to "") ""))
-             (insert (if mct (concat (if (bolp) "" ", ") mct) ""))
-             (insert (if cc (concat (if (bolp) "" ", ") cc) ""))
-             (goto-char (point-min))
-             (while (re-search-forward "[ \t]+" nil t)
-               (replace-match " " t t))
-             ;; Remove addresses that match `rmail-dont-reply-to-names'.
-             (insert (prog1 (rmail-dont-reply-to (buffer-string))
-                       (erase-buffer)))
-             (goto-char (point-min))
-             ;; Perhaps Mail-Copies-To: never removed the only address?
-             (when (eobp)
-               (insert (or reply-to from "")))
-             (setq ccalist
-                   (mapcar
-                    (lambda (addr)
-                      (cons (mail-strip-quoted-names addr) addr))
-                    (message-tokenize-header (buffer-string))))
-             (let ((s ccalist))
-               (while s
-                 (setq ccalist (delq (assoc (car (pop s)) s) ccalist)))))
-           (setq follow-to (list (cons 'To (cdr (pop ccalist)))))
-           (when ccalist
-             (let ((ccs (cons 'Cc (mapconcat
-                                   (lambda (addr) (cdr addr)) ccalist ", "))))
-               (when (string-match "^ +" (cdr ccs))
-                 (setcdr ccs (substring (cdr ccs) (match-end 0))))
-               (push ccs follow-to))))))
+      (setq subject (message-make-followup-subject subject))
        (widen))
  
        (widen))
  
+    ;; Handle special values of Mail-Copies-To.
+    (when mct
+      (cond
+       ((and (or (equal (downcase mct) "never")
+                (equal (downcase mct) "nobody"))
+            (or (not (eq message-use-mail-copies-to 'ask))
+                (message-y-or-n-p
+                 (concat "Obey Mail-Copies-To: never? ") t "\
+You should normally obey the Mail-Copies-To: header.
+
+       `Mail-Copies-To: never'
+directs you not to send your response to the author.")))
+       (setq never-mct t)
+       (setq mct nil))
+       ((and (or (equal (downcase mct) "always")
+                (equal (downcase mct) "poster"))
+            (or (not (eq message-use-mail-copies-to 'ask))
+                (message-y-or-n-p
+                 (concat "Obey Mail-Copies-To: always? ") t "\
+You should normally obey the Mail-Copies-To: header.
+
+       `Mail-Copies-To: always'
+sends a copy of your response to the author.")))
+       (setq mct (or mrt from)))
+       ((and (eq message-use-mail-copies-to 'ask)
+            (not 
+             (message-y-or-n-p
+              (concat "Obey Mail-Copies-To: " mct " ? ") t "\
+You should normally obey the Mail-Copies-To: header.
+
+       `Mail-Copies-To: " mct "'
+sends a copy of your response to " (if (string-match "," mct)
+                                      "the specified addresses"
+                                    "that address") ".")))
+       (setq mct nil))
+       ))
+
+    (unless follow-to
+      (cond
+       (to-address (setq follow-to (list (cons 'To to-address))))
+       ((not wide) (setq follow-to (list (cons 'To (or mrt from)))))
+       ;; Handle Mail-Followup-To.
+       ((and mft
+            (or (not (eq message-use-mail-followup-to 'ask))
+                (message-y-or-n-p
+                 (concat "Obey Mail-Followup-To: " mft "? ") t "\
+You should normally obey the Mail-Followup-To: header.
+
+       `Mail-Followup-To: " mft "'
+directs your response to " (if (string-match "," mft)
+                              "the specified addresses"
+                            "that address only") ".
+
+A typical situation where Mail-Followup-To is used is when the author thinks
+that further discussion should take place only in "
+                 (if (string-match "," mft)
+                     "the specified mailing lists"
+                   "that mailing list") ".")))
+       (setq follow-to (list (cons 'To mft)))
+       (when mct
+         (push (cons 'Cc mct) follow-to)))
+       (t
+       (let (ccalist)
+         (save-excursion
+           (message-set-work-buffer)
+           (unless never-mct
+             (insert (or mrt from "")))
+           (insert (if to (concat (if (bolp) "" ", ") to "") ""))
+           (insert (if mct (concat (if (bolp) "" ", ") mct) ""))
+           (insert (if cc (concat (if (bolp) "" ", ") cc) ""))
+           (goto-char (point-min))
+           (while (re-search-forward "[ \t]+" nil t)
+             (replace-match " " t t))
+           ;; Remove addresses that match `rmail-dont-reply-to-names'.
+           (insert (prog1 (rmail-dont-reply-to (buffer-string))
+                     (erase-buffer)))
+           (goto-char (point-min))
+           ;; Perhaps Mail-Copies-To: never removed the only address?
+           (when (eobp)
+             (insert (or mrt from "")))
+           (setq ccalist
+                 (mapcar
+                  (lambda (addr)
+                    (cons (mail-strip-quoted-names addr) addr))
+                  (message-tokenize-header (buffer-string))))
+           (let ((s ccalist))
+             (while s
+               (setq ccalist (delq (assoc (car (pop s)) s) ccalist)))))
+         (setq follow-to (list (cons 'To (cdr (pop ccalist)))))
+         (when ccalist
+           (let ((ccs (cons 'Cc (mapconcat
+                                 (lambda (addr) (cdr addr)) ccalist ", "))))
+             (when (string-match "^ +" (cdr ccs))
+               (setcdr ccs (substring (cdr ccs) (match-end 0))))
+             (push ccs follow-to)))))))
+
      (message-pop-to-buffer (message-buffer-name
                             (if wide "wide reply" "reply") from
                             (if wide to-address nil)))
  
      (setq message-reply-headers
      (message-pop-to-buffer (message-buffer-name
                             (if wide "wide reply" "reply") from
                             (if wide to-address nil)))
  
      (setq message-reply-headers
-         (vector 0 subject from date message-id references 0 0 ""))
+         (make-full-mail-header-from-decoded-header
+          0 subject from date message-id references 0 0 ""))
  
      (message-setup
       `((Subject . ,subject)
         ,@follow-to
         ,@(if (or references message-id)
              `((References . ,(concat (or references "") (and references " ")
  
      (message-setup
       `((Subject . ,subject)
         ,@follow-to
         ,@(if (or references message-id)
              `((References . ,(concat (or references "") (and references " ")
-                                     (or message-id ""))))
-          nil))
+                                     (or message-id ""))))))
       cur)))
  
  ;;;###autoload
       cur)))
  
  ;;;###autoload
@@ -3397,33 +3957,35 @@ OTHER-HEADERS is an alist of header/value pairs."
  If TO-NEWSGROUPS, use that as the new Newsgroups line."
    (interactive)
    (let ((cur (current-buffer))
  If TO-NEWSGROUPS, use that as the new Newsgroups line."
    (interactive)
    (let ((cur (current-buffer))
-       from subject date reply-to mct
+       from subject date mct
         references message-id follow-to
         (inhibit-point-motion-hooks t)
         (message-this-is-news t)
         references message-id follow-to
         (inhibit-point-motion-hooks t)
         (message-this-is-news t)
-       followup-to distribution newsgroups gnus-warning posted-to)
+       followup-to distribution newsgroups gnus-warning posted-to mft mrt)
      (save-restriction
      (save-restriction
-      (narrow-to-region
-       (goto-char (point-min))
-       (if (search-forward "\n\n" nil t)
-          (1- (point))
-        (point-max)))
+      (message-narrow-to-head)
        (when (message-functionp message-followup-to-function)
         (setq follow-to
               (funcall message-followup-to-function)))
        (setq from (message-fetch-field "from")
        (when (message-functionp message-followup-to-function)
         (setq follow-to
               (funcall message-followup-to-function)))
        (setq from (message-fetch-field "from")
-           date (message-fetch-field "date")
+           date (message-fetch-field "date" t)
             subject (or (message-fetch-field "subject") "none")
             references (message-fetch-field "references")
             message-id (message-fetch-field "message-id" t)
             subject (or (message-fetch-field "subject") "none")
             references (message-fetch-field "references")
             message-id (message-fetch-field "message-id" t)
-           followup-to (message-fetch-field "followup-to")
+           followup-to (when message-use-followup-to
+                         (message-fetch-field "followup-to"))
+           distribution (message-fetch-field "distribution")
             newsgroups (message-fetch-field "newsgroups")
             posted-to (message-fetch-field "posted-to")
             newsgroups (message-fetch-field "newsgroups")
             posted-to (message-fetch-field "posted-to")
-           reply-to (message-fetch-field "reply-to")
-           distribution (message-fetch-field "distribution")
-           mct (message-fetch-field "mail-copies-to"))
-      (when (and (setq gnus-warning (message-fetch-field "gnus-warning"))
-                (string-match "<[^>]+>" gnus-warning))
+           mct (when message-use-mail-copies-to
+                 (message-fetch-field "mail-copies-to"))
+           mft (when message-use-mail-followup-to
+                 (message-fetch-field "mail-followup-to"))
+           mrt (when message-use-mail-reply-to
+                 (or (message-fetch-field "mail-reply-to")
+                     (message-fetch-field "reply-to")))
+           gnus-warning (message-fetch-field "gnus-warning"))
+      (when (and gnus-warning (string-match "<[^>]+>" gnus-warning))
         (setq message-id (match-string 0 gnus-warning)))
        ;; Remove bogus distribution.
        (when (and (stringp distribution)
         (setq message-id (match-string 0 gnus-warning)))
        ;; Remove bogus distribution.
        (when (and (stringp distribution)
@@ -3432,40 +3994,70 @@ If TO-NEWSGROUPS, use that as the new Newsgroups line."
         (setq distribution nil))
        ;; Remove any (buggy) Re:'s that are present and make a
        ;; proper one.
         (setq distribution nil))
        ;; Remove any (buggy) Re:'s that are present and make a
        ;; proper one.
-      (when (string-match message-subject-re-regexp subject)
-       (setq subject (substring subject (match-end 0))))
-      (setq subject (concat "Re: " subject))
+      (setq subject (message-make-followup-subject subject))
        (widen))
  
        (widen))
  
-    (message-pop-to-buffer (message-buffer-name "followup" from newsgroups))
-
-    (message-setup
-     `((Subject . ,subject)
-       ,@(cond
-         (to-newsgroups
-          (list (cons 'Newsgroups to-newsgroups)))
-         (follow-to follow-to)
-         ((and followup-to message-use-followup-to)
-          (list
-           (cond
-            ((equal (downcase followup-to) "poster")
-             (if (or (eq message-use-followup-to 'use)
-                     (message-y-or-n-p "Obey Followup-To: poster? " t "\
+    ;; Handle special values of Mail-Copies-To.
+    (when mct
+      (cond
+       ((and (or (equal (downcase mct) "never")
+                (equal (downcase mct) "nobody"))
+            (or (not (eq message-use-mail-copies-to 'ask))
+                (message-y-or-n-p
+                 (concat "Obey Mail-Copies-To: never? ") t "\
+You should normally obey the Mail-Copies-To: header.
+
+       `Mail-Copies-To: never'
+directs you not to send your response to the author.")))
+       (setq mct nil))
+       ((and (or (equal (downcase mct) "always")
+                (equal (downcase mct) "poster"))
+            (or (not (eq message-use-mail-copies-to 'ask))
+                (message-y-or-n-p
+                 (concat "Obey Mail-Copies-To: always? ") t "\
+You should normally obey the Mail-Copies-To: header.
+
+       `Mail-Copies-To: always'
+sends a copy of your response to the author.")))
+       (setq mct (or mrt from)))
+       ((and (eq message-use-mail-copies-to 'ask)
+            (not 
+             (message-y-or-n-p
+              (concat "Obey Mail-Copies-To: " mct " ? ") t "\
+You should normally obey the Mail-Copies-To: header.
+
+       `Mail-Copies-To: " mct "'
+sends a copy of your response to " (if (string-match "," mct)
+                                      "the specified addresses"
+                                    "that address") ".")))
+       (setq mct nil))
+       ))
+
+    (unless follow-to
+      (cond
+       (to-newsgroups (setq follow-to (list (cons 'Newsgroups to-newsgroups))))
+       ;; Handle Followup-To.
+       (followup-to
+       (cond
+        ((equal (downcase followup-to) "poster")
+         (if (or (eq message-use-followup-to 'use)
+                 (message-y-or-n-p "Obey Followup-To: poster? " t "\
  You should normally obey the Followup-To: header.
  
  You should normally obey the Followup-To: header.
  
-`Followup-To: poster' sends your response via e-mail instead of news.
+       `Followup-To: poster'
+sends your response via e-mail instead of news.
  
  
-A typical situation where `Followup-To: poster' is used is when the poster
+A typical situation where `Followup-To: poster' is used is when the author
  does not read the newsgroup, so he wouldn't see any replies sent to it."))
  does not read the newsgroup, so he wouldn't see any replies sent to it."))
-                 (progn
-                   (setq message-this-is-news nil)
-                   (cons 'To (or reply-to from "")))
-               (cons 'Newsgroups newsgroups)))
-            (t
-             (if (or (equal followup-to newsgroups)
-                     (not (eq message-use-followup-to 'ask))
-                     (message-y-or-n-p
-                      (concat "Obey Followup-To: " followup-to "? ") t "\
+             (setq message-this-is-news nil
+                   distribution nil
+                   follow-to (list (cons 'To (or mrt from ""))))
+           (setq follow-to (list (cons 'Newsgroups newsgroups)))))
+        (t
+         (if (or (equal followup-to newsgroups)
+                 (not (eq message-use-followup-to 'ask))
+                 (message-y-or-n-p
+                  (concat "Obey Followup-To: " followup-to "? ") t "\
  You should normally obey the Followup-To: header.
  
         `Followup-To: " followup-to "'
  You should normally obey the Followup-To: header.
  
         `Followup-To: " followup-to "'
@@ -3480,27 +4072,47 @@ be fragmented and very difficult to follow.
  
  Also, some source/announcement newsgroups are not indented for discussion;
  responses here are directed to other newsgroups."))
  
  Also, some source/announcement newsgroups are not indented for discussion;
  responses here are directed to other newsgroups."))
-                 (cons 'Newsgroups followup-to)
-               (cons 'Newsgroups newsgroups))))))
-         (posted-to
-          `((Newsgroups . ,posted-to)))
-         (t
-          `((Newsgroups . ,newsgroups))))
-       ,@(and distribution (list (cons 'Distribution distribution)))
-       ,@(if (or references message-id)
-            `((References . ,(concat (or references "") (and references " ")
-                                     (or message-id "")))))
-       ,@(when (and mct
-                   (not (equal (downcase mct) "never")))
-          (list (cons 'Cc (if (equal (downcase mct) "always")
-                              (or reply-to from "")
-                            mct)))))
+             (setq follow-to (list (cons 'Newsgroups followup-to)))
+           (setq follow-to (list (cons 'Newsgroups newsgroups)))))))
+       ;; Handle Mail-Followup-To, followup via e-mail.
+       ((and mft
+            (or (not (eq message-use-mail-followup-to 'ask))
+                (message-y-or-n-p
+                 (concat "Obey Mail-Followup-To: " mft "? ") t "\
+You should normally obey the Mail-Followup-To: header.
+
+       `Mail-Followup-To: " mft "'
+directs your response to " (if (string-match "," mft)
+                              "the specified addresses"
+                            "that address only") " instead of news.
+
+A typical situation where Mail-Followup-To is used is when the author thinks
+that further discussion should take place only in "
+                            (if (string-match "," mft)
+                                "the specified mailing lists"
+                              "that mailing list") ".")))
+       (setq message-this-is-news nil
+             distribution nil
+             follow-to (list (cons 'To mft))))
+       (posted-to (setq follow-to (list (cons 'Newsgroups posted-to))))
+       (t
+       (setq follow-to (list (cons 'Newsgroups newsgroups))))))
  
  
-     cur)
+    (message-pop-to-buffer (message-buffer-name "followup" from newsgroups))
  
      (setq message-reply-headers
  
      (setq message-reply-headers
-         (vector 0 subject from date message-id references 0 0 ""))))
+         (make-full-mail-header-from-decoded-header
+          0 subject from date message-id references 0 0 ""))
  
  
+    (message-setup
+     `((Subject . ,subject)
+       ,@follow-to
+       ,@(and mct (list (cons 'Cc mct)))
+       ,@(and distribution (list (cons 'Distribution distribution)))
+       ,@(if (or references message-id)
+            `((References . ,(concat (or references "") (and references " ")
+                                     (or message-id ""))))))
+     cur)))
  
  ;;;###autoload
  (defun message-cancel-news ()
  
  ;;;###autoload
  (defun message-cancel-news ()
@@ -3520,18 +4132,18 @@ responses here are directed to other newsgroups."))
                 message-id (message-fetch-field "message-id" t)
                 distribution (message-fetch-field "distribution")))
         ;; Make sure that this article was written by the user.
                 message-id (message-fetch-field "message-id" t)
                 distribution (message-fetch-field "distribution")))
         ;; Make sure that this article was written by the user.
-       (unless (or (and sender
-                        (string-equal
-                         (downcase sender)
-                         (downcase (message-make-sender))))
-                   (string-equal
-                    (downcase (cadr (mail-extract-address-components from)))
-                    (downcase (cadr (mail-extract-address-components
+       (unless (or (and sender
+                        (string-equal
+                         (downcase sender)
+                         (downcase (message-make-sender))))
+                   (string-equal
+                    (downcase (cadr (std11-extract-address-components
+                                     from)))
+                    (downcase (cadr (std11-extract-address-components
                                       (message-make-from))))))
           (error "This article is not yours"))
         ;; Make control message.
         (setq buf (set-buffer (get-buffer-create " *message cancel*")))
                                       (message-make-from))))))
           (error "This article is not yours"))
         ;; Make control message.
         (setq buf (set-buffer (get-buffer-create " *message cancel*")))
-       (buffer-disable-undo (current-buffer))
         (erase-buffer)
         (insert "Newsgroups: " newsgroups "\n"
                 "From: " (message-make-from) "\n"
         (erase-buffer)
         (insert "Newsgroups: " newsgroups "\n"
                 "From: " (message-make-from) "\n"
@@ -3544,8 +4156,10 @@ responses here are directed to other newsgroups."))
                 message-cancel-message)
         (message "Canceling your article...")
         (if (let ((message-syntax-checks
                 message-cancel-message)
         (message "Canceling your article...")
         (if (let ((message-syntax-checks
-                  'dont-check-for-anything-just-trust-me))
-             (funcall message-send-news-function))
+                  'dont-check-for-anything-just-trust-me)
+                 (message-encoding-buffer (current-buffer))
+                 (message-edit-buffer (current-buffer)))
+             (message-send-news))
             (message "Canceling your article...done"))
         (kill-buffer buf)))))
  
             (message "Canceling your article...done"))
         (kill-buffer buf)))))
  
@@ -3564,8 +4178,8 @@ header line with the old Message-ID."
                       (downcase sender)
                       (downcase (message-make-sender))))
                 (string-equal
                       (downcase sender)
                       (downcase (message-make-sender))))
                 (string-equal
-                (downcase (cadr (mail-extract-address-components from)))
-                (downcase (cadr (mail-extract-address-components
+                (downcase (cadr (std11-extract-address-components from)))
+                (downcase (cadr (std11-extract-address-components
                                   (message-make-from))))))
        (error "This article is not yours"))
      ;; Get a normal message buffer.
                                   (message-make-from))))))
        (error "This article is not yours"))
      ;; Get a normal message buffer.
@@ -3662,8 +4276,12 @@ the message."
        (let ((funcs message-make-forward-subject-function)
             (subject (if message-wash-forwarded-subjects
                          (message-wash-subject
        (let ((funcs message-make-forward-subject-function)
             (subject (if message-wash-forwarded-subjects
                          (message-wash-subject
-                         (or (message-fetch-field "Subject") ""))
-                      (or (message-fetch-field "Subject") ""))))
+                         (or (nnheader-decode-subject
+                              (message-fetch-field "Subject"))
+                             ""))
+                      (or (nnheader-decode-subject
+                           (message-fetch-field "Subject"))
+                          ""))))
         ;; Make sure funcs is a list.
         (and funcs
              (not (listp funcs))
         ;; Make sure funcs is a list.
         (and funcs
              (not (listp funcs))
@@ -3722,9 +4340,11 @@ Optional NEWS will use news to forward instead of mail."
           beg)
        ;; We first set up a normal mail buffer.
        (set-buffer (get-buffer-create " *message resend*"))
           beg)
        ;; We first set up a normal mail buffer.
        (set-buffer (get-buffer-create " *message resend*"))
-      (buffer-disable-undo (current-buffer))
        (erase-buffer)
        (erase-buffer)
-      (message-setup `((To . ,address)))
+      ;; avoid to turn-on-mime-edit
+      (let (message-setup-hook)
+       (message-setup `((To . ,address)))
+       )
        ;; Insert our usual headers.
        (message-generate-headers '(From Date To))
        (message-narrow-to-headers)
        ;; Insert our usual headers.
        (message-generate-headers '(From Date To))
        (message-narrow-to-headers)
@@ -3755,10 +4375,20 @@ Optional NEWS will use news to forward instead of mail."
        (when (looking-at "From ")
         (replace-match "X-From-Line: "))
        ;; Send it.
        (when (looking-at "From ")
         (replace-match "X-From-Line: "))
        ;; Send it.
-      (message-send-mail)
+      (let ((message-encoding-buffer (current-buffer))
+           (message-edit-buffer (current-buffer)))
+       (let (message-required-mail-headers)
+         (message-send-mail)))
        (kill-buffer (current-buffer)))
      (message "Resending message to %s...done" address)))
  
        (kill-buffer (current-buffer)))
      (message "Resending message to %s...done" address)))
  
+(defun message-bounce-setup-for-mime-edit ()
+  (goto-char (point-min))
+  (when (search-forward (concat "\n" mail-header-separator "\n") nil t)
+    (replace-match "\n\n"))
+  (set (make-local-variable 'message-setup-hook) nil)
+  (mime-edit-again))
+
  ;;;###autoload
  (defun message-bounce ()
    "Re-mail the current message.
  ;;;###autoload
  (defun message-bounce ()
    "Re-mail the current message.
@@ -3772,7 +4402,7 @@ you."
      (insert-buffer-substring cur)
      (undo-boundary)
      (message-narrow-to-head)
      (insert-buffer-substring cur)
      (undo-boundary)
      (message-narrow-to-head)
-    (if (and (message-fetch-field "Mime-Version")
+    (if (and (message-fetch-field "MIME-Version")
              (setq boundary (message-fetch-field "Content-Type")))
         (if (string-match "boundary=\"\\([^\"]+\\)\"" boundary)
             (setq boundary (concat (match-string 1 boundary) " *\n"
              (setq boundary (message-fetch-field "Content-Type")))
         (if (string-match "boundary=\"\\([^\"]+\\)\"" boundary)
             (setq boundary (concat (match-string 1 boundary) " *\n"
@@ -3798,6 +4428,9 @@ you."
        (message-remove-header message-ignored-bounced-headers t)
        (goto-char (point-max))
        (insert mail-header-separator))
        (message-remove-header message-ignored-bounced-headers t)
        (goto-char (point-max))
        (insert mail-header-separator))
+    (when message-bounce-setup-function
+      (funcall message-bounce-setup-function))
+    (run-hooks 'message-bounce-setup-hook)
      (message-position-point)))
  
  ;;;
      (message-position-point)))
  
  ;;;
@@ -3875,7 +4508,7 @@ which specify the range to operate on."
        (goto-char (min start end))
        (while (< (point) end1)
         (or (looking-at "[_\^@- ]")
        (goto-char (min start end))
        (while (< (point) end1)
         (or (looking-at "[_\^@- ]")
-           (insert (following-char) "\b"))
+           (insert (char-after) "\b"))
         (forward-char 1)))))
  
  ;;;###autoload
         (forward-char 1)))))
  
  ;;;###autoload
@@ -3889,7 +4522,7 @@ which specify the range to operate on."
        (move-marker end1 (max start end))
        (goto-char (min start end))
        (while (re-search-forward "\b" end1 t)
        (move-marker end1 (max start end))
        (goto-char (min start end))
        (while (re-search-forward "\b" end1 t)
-       (if (eq (following-char) (char-after (- (point) 2)))
+       (if (eq (char-after) (char-after (- (point) 2)))
             (delete-char -2))))))
  
  (defalias 'message-exchange-point-and-mark 'exchange-point-and-mark)
             (delete-char -2))))))
  
  (defalias 'message-exchange-point-and-mark 'exchange-point-and-mark)
@@ -3948,7 +4581,7 @@ Do a `tab-to-tab-stop' if not in those headers."
           (message "No matching groups")
         (save-selected-window
           (pop-to-buffer "*Completions*")
           (message "No matching groups")
         (save-selected-window
           (pop-to-buffer "*Completions*")
-         (buffer-disable-undo (current-buffer))
+         (buffer-disable-undo)
           (let ((buffer-read-only nil))
             (erase-buffer)
             (let ((standard-output (current-buffer)))
           (let ((buffer-read-only nil))
             (erase-buffer)
             (let ((standard-output (current-buffer)))
@@ -4010,6 +4643,43 @@ regexp varstr."
                 (cdr local)))))
       locals)))
  
                 (cdr local)))))
       locals)))
  
+
+;;; @ for MIME Edit mode
+;;;
+
+(defun message-maybe-encode ()
+  (when message-mime-mode
+    (run-hooks 'mime-edit-translate-hook)
+    (if (catch 'mime-edit-error
+         (save-excursion
+           (mime-edit-translate-body)
+           ))
+       (error "Translation error!")
+      )
+    (end-of-invisible)
+    (run-hooks 'mime-edit-exit-hook)
+    ))
+
+(defun message-mime-insert-article (&optional full-headers)
+  (interactive "P")
+  (let ((message-cite-function 'mime-edit-inserted-message-filter)
+       (message-reply-buffer (message-get-original-reply-buffer))
+       (start (point)))
+    (message-yank-original nil)
+    (save-excursion
+      (narrow-to-region (goto-char start)
+                       (if (search-forward "\n\n" nil t)
+                           (1- (point))
+                         (point-max)))
+      (goto-char (point-min))
+      (let ((message-included-forward-headers
+            (if full-headers "" message-included-forward-headers)))
+       (message-remove-header message-included-forward-headers t nil t))
+      (widen))))
+
+(set-alist 'mime-edit-message-inserter-alist
+          'message-mode (function message-mime-insert-article))
+
  ;;; Miscellaneous functions
  
  ;; stolen (and renamed) from nnheader.el
  ;;; Miscellaneous functions
  
  ;; stolen (and renamed) from nnheader.el
@@ -4029,27 +4699,54 @@ regexp varstr."
  ;;; MIME functions
  ;;;
  
  ;;; MIME functions
  ;;;
  
+(defun message-insert-mime-part (file type)
+  "Insert a multipart/alternative part into the buffer."
+  (interactive
+   (let* ((file (read-file-name "Insert file: " nil nil t))
+         (type (mm-default-file-encoding file)))
+     (list file
+          (completing-read
+           (format "MIME type for %s: " file)
+           (mapcar (lambda (m) (list (cdr m))) mailcap-mime-extensions)
+           nil nil type))))
+  (insert (format "<#part type=%s filename=\"%s\"><#/part>\n"
+                 type file)))
+
  (defun message-encode-message-body ()
  (defun message-encode-message-body ()
-  "Examine the message body, encode it, and add the requisite headers."
-  (when (featurep 'mule)
-    (save-excursion
-      (save-restriction
-       (message-narrow-to-headers)
-       (message-remove-header
-        "^Content-Transfer-Encoding:\\|^Content-Type:\\|^Mime-Version:" t)
-       (goto-char (point-max))
-       (widen)
-       (narrow-to-region (point) (point-max))
-       (let* ((charset (mm-encode-body))
-              (encoding (mm-body-encoding)))
-         (when (consp charset)
-           (error "Can't encode messages with multiple charsets (yet)"))
-         (widen)
-         (message-narrow-to-headers)
-         (goto-char (point-max))
-         (mm-insert-rfc822-headers
-          (or charset (mm-mule-charset-to-mime-charset 'ascii))
-          encoding))))))
+  (message-goto-body)
+  (save-restriction
+    (narrow-to-region (point) (point-max))
+    (let ((new (mml-generate-mime)))
+      (delete-region (point-min) (point-max))
+      (insert new)
+      (goto-char (point-min))
+      (widen)
+      (forward-line -1)
+      (let ((beg (point))
+           (line (buffer-substring (point) (progn (forward-line 1) (point)))))
+       (delete-region beg (point))
+       (insert "Mime-Version: 1.0\n")
+       (search-forward "\n\n")
+       (insert line)
+       (when (save-excursion
+               (re-search-backward "^Content-Type: multipart/" nil t))
+         (insert "This is a MIME multipart message.  If you are reading\n")
+         (insert "this, you shouldn't.\n\n"))))))
+
+(defvar message-save-buffer " *encoding")
+(defun message-save-drafts ()
+  (interactive)
+  (if (not (get-buffer message-save-buffer))
+      (get-buffer-create message-save-buffer))
+  (let ((filename buffer-file-name)
+       (buffer (current-buffer)))
+    (set-buffer message-save-buffer)
+    (erase-buffer)
+    (insert-buffer buffer)
+    (mime-edit-translate-buffer)
+    (write-region (point-min) (point-max) filename)
+    (set-buffer buffer)
+    (set-buffer-modified-p nil)))
  
  (run-hooks 'message-load-hook)
  
  
  (run-hooks 'message-load-hook)