Simplify previous change.

2 files changed, 10 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 25b5fd8b761..178b10669af 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,12 @@
-2001-11-25  Simon Josefsson  <jas@extundo.com>
+2001-11-25  Richard M. Stallman  <rms@gnu.org>
+
+        * language/devan-util.el: Comment out parts of the file
+        which apparently are garbled.
+
+2001-11-25  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
         * mail/smtpmail.el (smtpmail-deduce-address-list): Don't use
-        insert-string.  Suggested by Pavel@Janik.cz (Pavel Jan,Bm(Bk).
+        insert-string.
 
 2001-11-25  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
@@ -44,7 +49,8 @@
 2001-11-24  Richard M. Stallman  <rms@gnu.org>
 
         * startup.el (command-line-1): Don't do startup screen
-        if a subprocess is running.
+        if a subprocess is running.  Call the startup screen buffer
+        "GNU Emacs".  Make a special mode-line-format for it.
 
         * net/browse-url.el (browse-url-galeon-new-window-is-tab): New var.
         (browse-url-galeon): Use that variable.
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index b696c327fd8..83ffa5d44bc 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -873,9 +873,7 @@ This is relative to `smtpmail-queue-dir'.")
                           (mail-strip-quoted-names (buffer-substring this-line this-line-end))))
             )
           (erase-buffer)
-          (insert " ")
-          (insert simple-address-list)
-          (insert "\n")
+          (insert " " simple-address-list "\n")
           (subst-char-in-region (point-min) (point-max) 10 ?  t);; newline --> blank
           (subst-char-in-region (point-min) (point-max) ?, ?  t);; comma   --> blank
           (subst-char-in-region (point-min) (point-max)  9 ?  t);; tab     --> blank