[Mew-dist 12661] elide last NL at mew-smtp-log

[KOIE Hidetaka ( 鯉江英隆 )]

配送エラーがあったときにMail/Smtplogがきれいになるように
末尾のnewlineをとりのぞきます。

--- mew-smtp.el.~1~	Sat Feb 26 01:51:04 2000
+++ mew-smtp.el	Mon Mar 13 12:33:05 2000
@@ -546,7 +546,9 @@ (defun mew-smtp-log (&optional err)
 	   (setq recipients (mapconcat (function identity) recipients ",")))
       (and recipients (insert " recipients=" recipients))
       (if err
-	  (insert " status=" "(" err ")")
+	  (insert " status=" "("
+                  (substring err 0 (string-match "\n+$" err))
+                  ")")
 	(insert " status=sent"))
       (insert "\n")
       (write-region (point-min) (point-max)

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>