* message.el (message-send-mail-with-sendmail): Use the

user-mail-address variable.

* gnus-art.el (gnus-ignored-headers): More headers.

* message.el (message-shorten-1): Use list.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8ad94a8..629581b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 1999-12-02 00:27:46  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * message.el (message-send-mail-with-sendmail): Use the
+       user-mail-address variable.
+
+       * gnus-art.el (gnus-ignored-headers): More headers.
+
        * message.el (message-shorten-1): Use list.
 
 1999-12-01 21:59:36  Lars Magne Ingebrigtsen  <larsi@gnus.org>

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index f582da3..6e538c4 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -127,7 +127,8 @@
     "^X-Sun-Charset:" "^X-Accept-Language:" "^X-Envelope-Sender:"
     "^List-[A-Za-z]+:" "^X-Listprocessor-Version:"
     "^X-Received:" "^X-Distribute:" "^X-Sequence:" "^X-Juno-Line-Breaks:"
-    "^X-Notes-Item:" "^X-MS-TNEF-Correlator:" "^x-uunet-gateway:")
+    "^X-Notes-Item:" "^X-MS-TNEF-Correlator:" "^x-uunet-gateway:"
+    "^X-Received:" "^Content-length:" "X-precedence:")
   "*All headers that start with this regexp will be hidden.
 This variable can also be a list of regexps of headers to be ignored.
 If `gnus-visible-headers' is non-nil, this variable will be ignored."

diff --git a/lisp/message.el b/lisp/message.el
index 595b6fe..66dbbf1 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2218,8 +2218,7 @@ the user from the mailer."
                         (list "-f"
                               (if (null user-mail-address)
                                   (user-login-name)
-                                (user-mail-address))
-                              ))
+                                user-mail-address)))
                     ;; These mean "report errors by mail"
                     ;; and "deliver in background".
                     (if (null message-interactive) '("-oem" "-odb"))