From 1fc98ab5cb4c67e80aaa82daf9b8666fb89ee5fc Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 4 Jul 2003 15:54:34 +0000 Subject: [PATCH] Synch to Gnus 200307041543. --- lisp/ChangeLog | 4 ++++ lisp/message.el | 10 ++++++++++ 2 files changed, 14 insertions(+) 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 + + * message.el (message-make-from): Revert change from 2002-01-08. + 2003-06-29 Lars Magne Ingebrigtsen * 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 " (") -- 1.7.10.4