Synch to No Gnus 200409231508.

[elisp/gnus.git-] / lisp / message.el

diff --git a/lisp/message.el b/lisp/message.el
index 06e3f19..740bc5f 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -158,6 +158,7 @@ mailbox format."
 
 (defcustom message-fcc-externalize-attachments nil
   "If non-nil, attachments are included as external parts in Fcc copies."
 
 (defcustom message-fcc-externalize-attachments nil
   "If non-nil, attachments are included as external parts in Fcc copies."

+  :version "21.4"

   :type 'boolean
   :group 'message-sending)
 
   :type 'boolean
   :group 'message-sending)
 

@@ -191,6 +192,7 @@ the user what do do.  In this case, the subject is matched against
 `message-subject-trailing-was-query' is t, always strip the trailing
 old subject.  In this case, `message-subject-trailing-was-regexp' is
 used."
 `message-subject-trailing-was-query' is t, always strip the trailing
 old subject.  In this case, `message-subject-trailing-was-regexp' is
 used."

+  :version "21.4"

   :type '(choice (const :tag "never" nil)
                 (const :tag "always strip" t)
                  (const ask))
   :type '(choice (const :tag "never" nil)
                 (const :tag "always strip" t)
                  (const ask))

@@ -207,6 +209,7 @@ the variable is t instead of `ask', use
 `message-subject-trailing-was-regexp' instead.
 
 It is okay to create some false positives here, as the user is asked."
 `message-subject-trailing-was-regexp' instead.
 
 It is okay to create some false positives here, as the user is asked."

+  :version "21.4"

   :group 'message-various
   :link '(custom-manual "(message)Message Headers")
   :type 'regexp)
   :group 'message-various
   :link '(custom-manual "(message)Message Headers")
   :type 'regexp)

@@ -219,6 +222,7 @@ If `message-subject-trailing-was-query' is set to t, the subject is
 matched against `message-subject-trailing-was-regexp' in
 `message-strip-subject-trailing-was'.  You should use a regexp creating very
 few false positives here."
 matched against `message-subject-trailing-was-regexp' in
 `message-strip-subject-trailing-was'.  You should use a regexp creating very
 few false positives here."

+  :version "21.4"

   :group 'message-various
   :link '(custom-manual "(message)Message Headers")
   :type 'regexp)
   :group 'message-various
   :link '(custom-manual "(message)Message Headers")
   :type 'regexp)

@@ -231,6 +235,7 @@ few false positives here."
 (defcustom message-mark-insert-begin
   "--8<---------------cut here---------------start------------->8---\n"
   "How to mark the beginning of some inserted text."
 (defcustom message-mark-insert-begin
   "--8<---------------cut here---------------start------------->8---\n"
   "How to mark the beginning of some inserted text."

+  :version "21.4"

   :type 'string
   :link '(custom-manual "(message)Insertion Variables")
   :group 'message-various)
   :type 'string
   :link '(custom-manual "(message)Insertion Variables")
   :group 'message-various)

@@ -239,6 +244,7 @@ few false positives here."
 (defcustom message-mark-insert-end
   "--8<---------------cut here---------------end--------------->8---\n"
   "How to mark the end of some inserted text."
 (defcustom message-mark-insert-end
   "--8<---------------cut here---------------end--------------->8---\n"
   "How to mark the end of some inserted text."

+  :version "21.4"

   :type 'string
   :link '(custom-manual "(message)Insertion Variables")
   :group 'message-various)
   :type 'string
   :link '(custom-manual "(message)Insertion Variables")
   :group 'message-various)

@@ -248,6 +254,7 @@ few false positives here."
   "X-No-Archive: Yes\n"
   "Header to insert when you don't want your article to be archived.
 Archives \(such as groups.google.com\) respect this header."
   "X-No-Archive: Yes\n"
   "Header to insert when you don't want your article to be archived.
 Archives \(such as groups.google.com\) respect this header."

+  :version "21.4"

   :type 'string
   :link '(custom-manual "(message)Header Commands")
   :group 'message-various)
   :type 'string
   :link '(custom-manual "(message)Header Commands")
   :group 'message-various)

@@ -257,6 +264,7 @@ Archives \(such as groups.google.com\) respect this header."
   "X-No-Archive: Yes - save http://groups.google.com/"
   "Note to insert why you wouldn't want this posting archived.
 If nil, don't insert any text in the body."
   "X-No-Archive: Yes - save http://groups.google.com/"
   "Note to insert why you wouldn't want this posting archived.
 If nil, don't insert any text in the body."

+  :version "21.4"

   :type '(radio (string :format "%t: %v\n" :size 0)
                (const nil))
   :link '(custom-manual "(message)Header Commands")
   :type '(radio (string :format "%t: %v\n" :size 0)
                (const nil))
   :link '(custom-manual "(message)Header Commands")

@@ -276,6 +284,7 @@ If nil, don't insert any text in the body."
 If nil, `message-cross-post-followup-to' will only do a followup.  Note that
 you can explicitly override this setting by calling
 `message-cross-post-followup-to' with a prefix."
 If nil, `message-cross-post-followup-to' will only do a followup.  Note that
 you can explicitly override this setting by calling
 `message-cross-post-followup-to' with a prefix."

+  :version "21.4"

   :type 'boolean
   :group 'message-various)
 
   :type 'boolean
   :group 'message-various)
 

@@ -283,6 +292,7 @@ you can explicitly override this setting by calling
 (defcustom message-cross-post-note
   "Crosspost & Followup-To: "
   "Note to insert before signature to notify of xpost and follow-up."
 (defcustom message-cross-post-note
   "Crosspost & Followup-To: "
   "Note to insert before signature to notify of xpost and follow-up."

+  :version "21.4"

   :type 'string
   :group 'message-various)
 
   :type 'string
   :group 'message-various)
 

@@ -290,6 +300,7 @@ you can explicitly override this setting by calling
 (defcustom message-followup-to-note
   "Followup-To: "
   "Note to insert before signature to notify of follow-up only."
 (defcustom message-followup-to-note
   "Followup-To: "
   "Note to insert before signature to notify of follow-up only."

+  :version "21.4"

   :type 'string
   :group 'message-various)
 
   :type 'string
   :group 'message-various)
 

@@ -300,6 +311,7 @@ you can explicitly override this setting by calling
 The function will be called with four arguments.  The function should not only
 insert a note, but also ensure old notes are deleted.  See the documentation
 for `message-cross-post-insert-note'."
 The function will be called with four arguments.  The function should not only
 insert a note, but also ensure old notes are deleted.  See the documentation
 for `message-cross-post-insert-note'."

+  :version "21.4"

   :type 'function
   :group 'message-various)
 
   :type 'function
   :group 'message-various)
 

@@ -326,7 +338,7 @@ Otherwise, most addresses look like `angles', but they look like
 
 (defcustom message-insert-canlock t
   "Whether to insert a Cancel-Lock header in news postings."
 
 (defcustom message-insert-canlock t
   "Whether to insert a Cancel-Lock header in news postings."

-  :version "21.3"
+  :version "21.4"

   :group 'message-headers
   :type 'boolean)
 
   :group 'message-headers
   :type 'boolean)
 

@@ -355,6 +367,7 @@ Checks include `subject-cmsg', `multiple-headers', `sendsys',
   "*Headers to be generated or prompted for when sending a message.
 Also see `message-required-news-headers' and
 `message-required-mail-headers'."
   "*Headers to be generated or prompted for when sending a message.
 Also see `message-required-news-headers' and
 `message-required-mail-headers'."

+  :version "21.4"

   :group 'message-news
   :group 'message-headers
   :link '(custom-manual "(message)Message Headers")
   :group 'message-news
   :group 'message-headers
   :link '(custom-manual "(message)Message Headers")

@@ -362,6 +375,7 @@ Also see `message-required-news-headers' and
 
 (defcustom message-draft-headers '(References From)
   "*Headers to be generated when saving a draft message."
 
 (defcustom message-draft-headers '(References From)
   "*Headers to be generated when saving a draft message."

+  :version "21.4"

   :group 'message-news
   :group 'message-headers
   :link '(custom-manual "(message)Message Headers")
   :group 'message-news
   :group 'message-headers
   :link '(custom-manual "(message)Message Headers")

@@ -783,6 +797,7 @@ is never used."
 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."
 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."

+  :version "21.4"

   :group 'message-interface
   :type '(choice (const :tag "ignore" nil)
                 (const :tag "maybe" t)
   :group 'message-interface
   :type '(choice (const :tag "ignore" nil)
                 (const :tag "maybe" t)

@@ -796,6 +811,7 @@ If non-nil, this variable contains a list of functions which return
 regular expressions to match lists.  These functions can be used in
 conjunction with `message-subscribed-regexps' and
 `message-subscribed-addresses'."
 regular expressions to match lists.  These functions can be used in
 conjunction with `message-subscribed-regexps' and
 `message-subscribed-addresses'."

+  :version "21.4"

   :group 'message-interface
   :link '(custom-manual "(message)Mailing Lists")
   :type '(repeat sexp))
   :group 'message-interface
   :link '(custom-manual "(message)Mailing Lists")
   :type '(repeat sexp))

@@ -804,6 +820,7 @@ conjunction with `message-subscribed-regexps' and
   "*A file containing addresses the user is subscribed to.
 If nil, do not look at any files to determine list subscriptions.  If
 non-nil, each line of this file should be a mailing list address."
   "*A file containing addresses the user is subscribed to.
 If nil, do not look at any files to determine list subscriptions.  If
 non-nil, each line of this file should be a mailing list address."

+  :version "21.4"

   :group 'message-interface
   :link '(custom-manual "(message)Mailing Lists")
   :type '(radio (file :format "%t: %v\n" :size 0)
   :group 'message-interface
   :link '(custom-manual "(message)Mailing Lists")
   :type '(radio (file :format "%t: %v\n" :size 0)

@@ -814,6 +831,7 @@ non-nil, each line of this file should be a mailing list address."
 If nil, do not use any predefined list subscriptions.  This list of
 addresses can be used in conjunction with
 `message-subscribed-address-functions' and `message-subscribed-regexps'."
 If nil, do not use any predefined list subscriptions.  This list of
 addresses can be used in conjunction with
 `message-subscribed-address-functions' and `message-subscribed-regexps'."

+  :version "21.4"

   :group 'message-interface
   :link '(custom-manual "(message)Mailing Lists")
   :type '(repeat string))
   :group 'message-interface
   :link '(custom-manual "(message)Mailing Lists")
   :type '(repeat string))

@@ -823,6 +841,7 @@ addresses can be used in conjunction with
 If nil, do not use any predefined list subscriptions.  This list of
 regular expressions can be used in conjunction with
 `message-subscribed-address-functions' and `message-subscribed-addresses'."
 If nil, do not use any predefined list subscriptions.  This list of
 regular expressions can be used in conjunction with
 `message-subscribed-address-functions' and `message-subscribed-addresses'."

+  :version "21.4"

   :group 'message-interface
   :link '(custom-manual "(message)Mailing Lists")
   :type '(repeat regexp))
   :group 'message-interface
   :link '(custom-manual "(message)Mailing Lists")
   :type '(repeat regexp))

@@ -832,6 +851,7 @@ regular expressions can be used in conjunction with
 If it is the symbol `always', the posting is allowed.  If it is the
 symbol `never', the posting is not allowed.  If it is the symbol
 `ask', you are prompted."
 If it is the symbol `always', the posting is allowed.  If it is the
 symbol `never', the posting is not allowed.  If it is the symbol
 `ask', you are prompted."

+  :version "21.4"

   :group 'message-interface
   :link '(custom-manual "(message)Message Headers")
   :type '(choice (const always)
   :group 'message-interface
   :link '(custom-manual "(message)Message Headers")
   :type '(choice (const always)

@@ -1013,6 +1033,7 @@ an article is yanked by the command `message-yank-original' interactively."
   "*Prefix inserted on cited or empty lines of yanked messages.
 Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
 See also `message-yank-prefix'."
   "*Prefix inserted on cited or empty lines of yanked messages.
 Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
 See also `message-yank-prefix'."

+  :version "21.4"

   :type 'string
   :link '(custom-manual "(message)Insertion Variables")
   :group 'message-insertion)
   :type 'string
   :link '(custom-manual "(message)Insertion Variables")
   :group 'message-insertion)

@@ -1081,6 +1102,7 @@ If nil, don't insert a signature."
 ;;;###autoload
 (defcustom message-signature-insert-empty-line t
   "*If non-nil, insert an empty line before the signature separator."
 ;;;###autoload
 (defcustom message-signature-insert-empty-line t
   "*If non-nil, insert an empty line before the signature separator."

+  :version "21.4"

   :type 'boolean
   :link '(custom-manual "(message)Insertion Variables")
   :group 'message-insertion)
   :type 'boolean
   :link '(custom-manual "(message)Insertion Variables")
   :group 'message-insertion)

@@ -1265,6 +1287,7 @@ candidates:
   "Regexp of headers to be hidden when composing new messages.
 This can also be a list of regexps to match headers.  Or a list
 starting with `not' and followed by regexps."
   "Regexp of headers to be hidden when composing new messages.
 This can also be a list of regexps to match headers.  Or a list
 starting with `not' and followed by regexps."

+  :version "21.4"

   :group 'message
   :link '(custom-manual "(message)Message Headers")
   :type '(repeat regexp))
   :group 'message
   :link '(custom-manual "(message)Message Headers")
   :type '(repeat regexp))

@@ -1556,6 +1579,7 @@ subaddresses.  So if the first address appears in the recipient list
 for a message, the subaddresses will be removed (if present) before
 the mail is sent.  All addresses in this structure should be
 downcased."
 for a message, the subaddresses will be removed (if present) before
 the mail is sent.  All addresses in this structure should be
 downcased."

+  :version "21.4"

   :group 'message-headers
   :type '(repeat (repeat string)))
 
   :group 'message-headers
   :type '(repeat (repeat string)))
 

@@ -1563,6 +1587,7 @@ downcased."
   "Like `mail-user-agent'.
 Except if it is nil, use Gnus native MUA; if it is t, use
 `mail-user-agent'."
   "Like `mail-user-agent'.
 Except if it is nil, use Gnus native MUA; if it is t, use
 `mail-user-agent'."

+  :version "21.4"

   :type '(radio (const :tag "Gnus native"
                       :format "%t\n"
                       nil)
   :type '(radio (const :tag "Gnus native"
                       :format "%t\n"
                       nil)

@@ -1586,7 +1611,7 @@ If this variable is non-nil, pose the question \"Reply to all
 recipients?\" before a wide reply to multiple recipients.  If the user
 answers yes, reply to all recipients as usual.  If the user answers
 no, only reply back to the author."
 recipients?\" before a wide reply to multiple recipients.  If the user
 answers yes, reply to all recipients as usual.  If the user answers
 no, only reply back to the author."

-  :version "21.3"
+  :version "21.4"

   :group 'message-headers
   :link '(custom-manual "(message)Wide Reply")
   :type 'boolean)
   :group 'message-headers
   :link '(custom-manual "(message)Wide Reply")
   :type 'boolean)

@@ -1604,6 +1629,7 @@ no, only reply back to the author."
                                 (executable-find idna-program)
                                 'ask)
   "Whether to encode non-ASCII in domain names into ASCII according to IDNA."
                                 (executable-find idna-program)
                                 'ask)
   "Whether to encode non-ASCII in domain names into ASCII according to IDNA."

+  :version "21.4"

   :group 'message-headers
   :link '(custom-manual "(message)IDNA")
   :type '(choice (const :tag "Ask" ask)
   :group 'message-headers
   :link '(custom-manual "(message)IDNA")
   :type '(choice (const :tag "Ask" ask)

@@ -1735,6 +1761,7 @@ no, only reply back to the author."
          "\\)")
   "Regular expression that matches a valid FQDN."
   ;; see also: gnus-button-valid-fqdn-regexp
          "\\)")
   "Regular expression that matches a valid FQDN."
   ;; see also: gnus-button-valid-fqdn-regexp

+  :version "21.4"

   :group 'message-headers
   :type 'regexp)
 
   :group 'message-headers
   :type 'regexp)
 

@@ -1766,9 +1793,6 @@ no, only reply back to the author."
   (autoload 'rmail-msg-restore-non-pruned-header "rmail")
   (autoload 'rmail-output "rmailout"))
 
   (autoload 'rmail-msg-restore-non-pruned-header "rmail")
   (autoload 'rmail-output "rmailout"))
 

-(eval-when-compile
-  (autoload 'sha1 "sha1-el"))
-

 \f
 
 ;;;
 \f
 
 ;;;

@@ -1820,7 +1844,7 @@ is used by default."
   (if (not header)
       nil
     (let ((regexp (format "[%s]+" (or separator ",")))
   (if (not header)
       nil
     (let ((regexp (format "[%s]+" (or separator ",")))

-         (beg 1)
+         (beg (point-min))

          (first t)
          quoted elems paren)
       (with-temp-buffer
          (first t)
          quoted elems paren)
       (with-temp-buffer

@@ -2581,6 +2605,7 @@ these properties from the message composition buffer.  However, some
 packages requires these properties to be present in order to work.
 If you use one of these packages, turn this option off, and hope the
 message composition doesn't break too bad."
 packages requires these properties to be present in order to work.
 If you use one of these packages, turn this option off, and hope the
 message composition doesn't break too bad."

+  :version "21.4"

   :group 'message-various
   :link '(custom-manual "(message)Various Message Variables")
   :type 'boolean)
   :group 'message-various
   :link '(custom-manual "(message)Various Message Variables")
   :type 'boolean)

@@ -2947,6 +2972,7 @@ prefix FORCE is given."
 E.g., if this list contains a member list with elements `Cc' and `To',
 then `message-carefully-insert-headers' will not insert a `To' header
 when the message is already `Cc'ed to the recipient."
 E.g., if this list contains a member list with elements `Cc' and `To',
 then `message-carefully-insert-headers' will not insert a `To' header
 when the message is already `Cc'ed to the recipient."

+  :version "21.4"

   :group 'message-headers
   :link '(custom-manual "(message)Message Headers")
   :type '(repeat sexp))
   :group 'message-headers
   :link '(custom-manual "(message)Message Headers")
   :type '(repeat sexp))

@@ -3611,7 +3637,7 @@ be added to the \"References\" field."
          (insert "\n"))
        (funcall message-citation-line-function))
       (when (and x-no-archive
          (insert "\n"))
        (funcall message-citation-line-function))
       (when (and x-no-archive

-                message-cite-articles-with-x-no-archive
+                (not message-cite-articles-with-x-no-archive)

                 (string-match "yes" x-no-archive))
        (undo-boundary)
        (delete-region (point) (mark t))
                 (string-match "yes" x-no-archive))
        (undo-boundary)
        (delete-region (point) (mark t))

@@ -4347,8 +4373,8 @@ to find out how to use this."
   (case
       (as-binary-process
        (apply
   (case
       (as-binary-process
        (apply

-       'call-process-region 1 (point-max) message-qmail-inject-program
-       nil nil nil
+       'call-process-region (point-min) (point-max)
+       message-qmail-inject-program nil nil nil

        ;; qmail-inject's default behaviour is to look for addresses on the
        ;; command line; if there're none, it scans the headers.
        ;; yes, it does The Right Thing w.r.t. Resent-To and it's kin.
        ;; qmail-inject's default behaviour is to look for addresses on the
        ;; command line; if there're none, it scans the headers.
        ;; yes, it does The Right Thing w.r.t. Resent-To and it's kin.

@@ -4463,7 +4489,7 @@ manual for details."
 (defun message-canlock-generate ()
   "Return a string that is non-trivial to guess.
 Do not use this for anything important, it is cryptographically weak."
 (defun message-canlock-generate ()
   "Return a string that is non-trivial to guess.
 Do not use this for anything important, it is cryptographically weak."

-  (require 'sha1-el)
+  (require 'sha1)

   (let (sha1-maximum-internal-length)
     (sha1 (concat (message-unique-id)
                  (format "%x%x%x" (random) (random t) (random))
   (let (sha1-maximum-internal-length)
     (sha1 (concat (message-unique-id)
                  (format "%x%x%x" (random) (random t) (random))

@@ -5872,6 +5898,7 @@ they are."
 (defcustom message-beginning-of-line t
   "Whether \\<message-mode-map>\\[message-beginning-of-line]\
  goes to beginning of header values."
 (defcustom message-beginning-of-line t
   "Whether \\<message-mode-map>\\[message-beginning-of-line]\
  goes to beginning of header values."

+  :version "21.4"

   :group 'message-buffers
   :link '(custom-manual "(message)Movement")
   :type 'boolean)
   :group 'message-buffers
   :link '(custom-manual "(message)Movement")
   :type 'boolean)

@@ -7328,6 +7355,7 @@ This variable is semi-obsolete, set it as nil and use
 (defcustom message-tab-body-function nil
   "*Function to execute when `message-tab' (TAB) is executed in the body.
 If nil, the function bound in `text-mode-map' or `global-map' is executed."
 (defcustom message-tab-body-function nil
   "*Function to execute when `message-tab' (TAB) is executed in the body.
 If nil, the function bound in `text-mode-map' or `global-map' is executed."

+  :version "21.4"

   :group 'message
   :link '(custom-manual "(message)Various Commands")
   :type 'function)
   :group 'message
   :link '(custom-manual "(message)Various Commands")
   :type 'function)