From 90bc5ab3be81dc6e092c334c4b723158c2341c04 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 27 Jul 2001 08:46:05 +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 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) -- 1.7.10.4