From: yamaoka <yamaoka>
Date: Fri, 27 Jul 2001 08:45:59 +0000 (+0000)
Subject: Fix.
X-Git-Tag: t-gnus-6_15_3-03-last-~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d676747523e236e1215c3d13f4efc4ec37561fc2;p=elisp%2Fgnus.git-

Fix.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 36fec24..8817a7a 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -807,7 +807,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)