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

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