From: yamaoka <yamaoka>
Date: Fri, 4 Jul 2003 15:54:34 +0000 (+0000)
Subject: Synch to Gnus 200307041543.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1fc98ab5cb4c67e80aaa82daf9b8666fb89ee5fc;p=elisp%2Fgnus.git-

Synch to Gnus 200307041543.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f7d1f31..2bb2b9e 100644
--- 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
--- 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 " (")