2001-08-17 21:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* message.el (message-check-news-header-syntax): Check bad From.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 02df3cd..805e90b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-08-17 21:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-check-news-header-syntax): Check bad From.
+
 2001-08-18 00:14:45  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-spec.el (gnus-correct-length): New function.

diff --git a/lisp/message.el b/lisp/message.el
index 2b5678e..e9b0f6e 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -40,6 +40,7 @@
     (require 'mail-abbrevs))
 (require 'mail-parse)
 (require 'mml)
+(require 'rfc822)
 
 (defgroup message '((user-mail-address custom-variable)
                    (user-full-name custom-variable))
@@ -3011,6 +3012,14 @@ to find out how to use this."
         (message
          "Denied posting -- the From looks strange: \"%s\"." from)
         nil)
+       ((let ((addresses (rfc822-addresses from)))
+          (while (and addresses
+                      (not (eq (string-to-char (car addresses)) ?\()))
+            (setq addresses (cdr addresses)))
+          addresses)
+        (message
+         "Denied posting -- bad From address: \"%s\"." from)
+        nil)
        (t t))))
    ;; Check the Reply-To header.
    (message-check 'reply-to