* message.el (message-make-from): Don't quote fullname.

	From: Bj\e,Ax\e(Brn Mork <bmork@dod.no>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 676bf14..72174bb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-01-08  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * message.el (message-make-from): Don't quote fullname.
+       From: Bj\e,Ax\e(Brn Mork <bmork@dod.no>
+
        * gnus-group.el (gnus-group-suspend): Don't kill message buffers.
        From: <andre@slamdunknetworks.com>
 

diff --git a/lisp/message.el b/lisp/message.el
index e3891e0..3ed52a1 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3732,16 +3732,6 @@ 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 " (")