Import Oort Gnus v0.24.

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

diff --git a/lisp/message.el b/lisp/message.el
index 9924662..af5aed1 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -194,7 +194,7 @@ Checks include `subject-cmsg', `multiple-headers', `sendsys',
   :type '(repeat sexp))                        ; Fixme: improve this
 
 (defcustom message-required-headers '((optional . References)
-                                     From (optional . In-Reply-To))
+                                     From)
   "*Headers to be generated or prompted for when sending a message.
 Also see `message-required-news-headers' and
 `message-required-mail-headers'."
@@ -4008,7 +4008,7 @@ Otherwise, generate and save a value for `canlock-password' first."
              errors)
         (y-or-n-p
          (format
-          "Really post to %s possibly unknown group%s: %s? "
+          "Really use %s possibly unknown group%s: %s? "
           (if (= (length errors) 1) "this" "these")
           (if (= (length errors) 1) "" "s")
           (mapconcat 'identity errors ", "))))
@@ -5858,7 +5858,9 @@ news, Source is the list of newsgroups is was posted to."
          (let ((prefix
                 (or (message-fetch-field "newsgroups")
                     (cdr
-                     (mail-header-parse-address (message-fetch-field "from")))
+                     (mail-header-parse-address
+                      (mail-decode-encoded-word-string
+                       (message-fetch-field "from"))))
                     "(nowhere)")))
            (if message-forward-decoded-p
                prefix