(smtpmail-send-it): Remove needless `concat'.

diff --git a/ChangeLog b/ChangeLog
index 52a3423..9206438 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+1999-09-14  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+       * smtpmail.el (smtpmail-send-it): Remove needless `concat'.
+
 1999-09-08  Yoshiki Hayashi  <t90553@mail.ecc.u-tokyo.ac.jp>
 
        * mime-ja.sgml, mime-en.sgml (Entity creation): Fix typo.

diff --git a/smtpmail.el b/smtpmail.el
index 4ef7161..74638aa 100644 (file)
--- a/smtpmail.el
+++ b/smtpmail.el
@@ -234,8 +234,8 @@ This is relative to `smtpmail-queue-dir'.")
            (let* ((file-data (convert-standard-filename
                               (concat
                                (file-name-as-directory smtpmail-queue-dir)
-                               (concat (time-stamp-yyyy-mm-dd)
-                                       "_" (time-stamp-hh:mm:ss)))))
+                               (time-stamp-yyyy-mm-dd)
+                               "_" (time-stamp-hh:mm:ss))))
                   (file-elisp (concat file-data ".el"))
                   (buffer-data (create-file-buffer file-data))
                   (buffer-elisp (create-file-buffer file-elisp))