Synch to Gnus 200307041543.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f7d1f31..2bb2b9e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-07-04  Jesper Harder  <harder@ifa.au.dk>
+
+       * message.el (message-make-from): Revert change from 2002-01-08.
+
 2003-06-29  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * nnheader.el (nnheader-init-server-buffer): Don't add

diff --git a/lisp/message.el b/lisp/message.el
index c71d844..e82ca98 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5168,6 +5168,16 @@ If NOW, use that time instead."
                         (aset tmp (1- (match-end 0)) ?-))
                       (string-match "[\\()]" tmp)))))
        (insert fullname)
+       (goto-char (point-min))
+       ;; Look for a character that cannot appear unquoted
+       ;; according to RFC 822.
+       (when (re-search-forward "[^- !#-'*+/-9=?A-Z^-~]" nil 1)
+         ;; Quote fullname, escaping specials.
+         (goto-char (point-min))
+         (insert "\"")
+         (while (re-search-forward "[\"\\]" nil 1)
+           (replace-match "\\\\\\&" t))
+         (insert "\""))
        (insert " <" login ">"))
        (t                              ; 'parens or default
        (insert login " (")