(message-forward-subject-name-subject): Use gnus-extract-address-components

 instead of mail-header-parse-address because it may be called with non-ascii
 text.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 05192e8..11cff3b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2003-12-17  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * message.el (message-forward-subject-name-subject): Use
+       gnus-extract-address-components instead of
+       mail-header-parse-address because it may be called with non-ascii
+       text.
+
 2003-12-16  Per Abrahamsen  <abraham@dina.kvl.dk>
 
        * nnmail.el (nnmail-split-fancy): The widget now supports

diff --git a/lisp/message.el b/lisp/message.el
index b0eec24..3b32f29 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1550,7 +1550,8 @@ no, only reply back to the author."
   (autoload 'gnus-groups-from-server "gnus")
   (autoload 'rmail-output "rmailout")
   (autoload 'gnus-delay-article "gnus-delay")
-  (autoload 'gnus-make-local-hook "gnus-util"))
+  (autoload 'gnus-make-local-hook "gnus-util")
+  (autoload 'gnus-extract-address-components "gnus-util"))
 
 \f
 
@@ -6055,7 +6056,7 @@ news, Source is the list of newsgroups is was posted to."
         (prefix
          (if group
              (gnus-group-decoded-name group)
-           (or (and from (cdr (mail-header-parse-address from)))
+           (or (and from (car (gnus-extract-address-components from)))
                "(nowhere)"))))
     (concat "["
            (if message-forward-decoded-p