projects / elisp / gnus.git- / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 6a51a54)
Fix.
authoryamaoka <yamaoka>
Fri, 27 Jul 2001 08:46:05 +0000 (08:46 +0000)
committeryamaoka <yamaoka>
Fri, 27 Jul 2001 08:46:05 +0000 (08:46 +0000)
lisp/gnus-msg.el patch | blob | history

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 4b18ccb..aff9afa 100644 (file)
--- 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)