From: yamaoka <yamaoka>
Date: Fri, 27 Jul 2001 08:46:05 +0000 (+0000)
Subject: Fix.
X-Git-Tag: t-gnus-6_15_4-04-quimby-last-~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=90bc5ab3be81dc6e092c334c4b723158c2341c04;p=elisp%2Fgnus.git-

Fix.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 4b18ccb..aff9afa 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -846,7 +846,9 @@ Here is an example of how to use this function:
 		    swidth (string-width element)
 		    agent (cdr agent))
 	      (if bol
-		  (setq user-agent (concat user-agent " " element)
+		  (setq user-agent (if (member user-agent '("" "\n"))
+				       (concat user-agent element)
+				     (concat user-agent " " element))
 			width (+ width 1 swidth)
 			bol nil)
 		(if (> (+ width 1 swidth) max-column)