From d676747523e236e1215c3d13f4efc4ec37561fc2 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 27 Jul 2001 08:45:59 +0000 Subject: [PATCH] Fix. --- lisp/gnus-msg.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 1.7.10.4