* rfc2231.el (rfc2231-parse-string): "=" should have whitespace

syntax here.

* ietf-drums.el (ietf-drums-syntax-table): "=" should not have
whitespace syntax class when parsing email addresses.

* message.el (message-forward-subject-name-subject): Don't use
mail-decode-encoded-word-string before parsing from.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ba9a9ea..cf7fd69 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2003-05-08  Jesper Harder  <harder@ifa.au.dk>
+
+       * rfc2231.el (rfc2231-parse-string): "=" should have whitespace
+       syntax here.
+
+       * ietf-drums.el (ietf-drums-syntax-table): "=" should not have
+       whitespace syntax class when parsing email addresses.
+
+       * message.el (message-forward-subject-name-subject): Don't use
+       mail-decode-encoded-word-string before parsing from.
+
 2003-05-07  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * message.el (message-setup-1): Setup alternative email before

diff --git a/lisp/ietf-drums.el b/lisp/ietf-drums.el
index aa48c3a..c546316 100644 (file)
--- a/lisp/ietf-drums.el
+++ b/lisp/ietf-drums.el
@@ -64,7 +64,6 @@ backslash and doublequote.")
     (modify-syntax-entry ?> ")" table)
     (modify-syntax-entry ?@ "w" table)
     (modify-syntax-entry ?/ "w" table)
-    (modify-syntax-entry ?= " " table)
     (modify-syntax-entry ?* " " table)
     (modify-syntax-entry ?\; " " table)
     (modify-syntax-entry ?\' " " table)

diff --git a/lisp/message.el b/lisp/message.el
index c7764e9..b5bfab2 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5853,10 +5853,7 @@ news, Source is the list of newsgroups is was posted to."
                 (or (message-fetch-field "newsgroups")
                     (let ((from (message-fetch-field "from")))
                       (and from
-                           (cdr
-                            (mail-header-parse-address
-                             (mail-decode-encoded-word-string
-                              from)))))
+                           (cdr (mail-header-parse-address from))))
                     "(nowhere)")))
            (if message-forward-decoded-p
                prefix

diff --git a/lisp/rfc2231.el b/lisp/rfc2231.el
index de6a19b..7f3a014 100644 (file)
--- a/lisp/rfc2231.el
+++ b/lisp/rfc2231.el
@@ -56,6 +56,7 @@ The list will be on the form
                        (mail-header-remove-comments string)))
       (let ((table (copy-syntax-table ietf-drums-syntax-table)))
        (modify-syntax-entry ?\' "w" table)
+       (modify-syntax-entry ?= " " table)
        ;; The following isn't valid, but one should be liberal
        ;; in what one receives.
        (modify-syntax-entry ?\: "w" table)