2001-08-10 02:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-ml.el (turn-on-gnus-mailing-list-mode): Use
	gnus-group-find-parameter. Suggested by Janne Rinta-Manty
	<rintaman@cs.Helsinki.FI>.

	* mail-source.el (mail-source-movemail): The error buffer is
	modified, but nothing in it.

2001-08-10 01:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* message.el (message-bogus-system-names): New.
	(message-make-fqdn): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3d737e3..8685a67 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,17 @@
+2001-08-10 02:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-ml.el (turn-on-gnus-mailing-list-mode): Use
+       gnus-group-find-parameter. Suggested by Janne Rinta-Manty
+       <rintaman@cs.Helsinki.FI>.
+       
+       * mail-source.el (mail-source-movemail): The error buffer is
+       modified, but nothing in it.
+
+2001-08-10 01:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-bogus-system-names): New.
+       (message-make-fqdn): Use it.
+
 2001-08-09 15:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * nndraft.el (nndraft-request-group): Use

diff --git a/lisp/gnus-ml.el b/lisp/gnus-ml.el
index de95dbf..a5ff496 100644 (file)
--- a/lisp/gnus-ml.el
+++ b/lisp/gnus-ml.el
@@ -67,7 +67,7 @@
 
 ;;;###autoload
 (defun turn-on-gnus-mailing-list-mode ()
-  (when (gnus-group-get-parameter gnus-newsgroup-name 'to-list)
+  (when (gnus-group-find-parameter gnus-newsgroup-name 'to-list)
     (gnus-mailing-list-mode 1)))
 
 ;;;###autoload

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index badd3a1..06f249a 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -522,7 +522,8 @@ Pass INFO on to CALLBACK."
                         nil errors nil from to)))))
              (when (file-exists-p to)
                (set-file-modes to mail-source-default-file-modes))
-             (if (and (not (buffer-modified-p errors))
+             (if (and (or (not (buffer-modified-p errors))
+                          (zerop (buffer-size errors)))
                       (zerop result))
                  ;; No output => movemail won.
                  t

diff --git a/lisp/message.el b/lisp/message.el
index 997f783..9cae0fe 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1114,6 +1114,9 @@ no, only reply back to the author."
 (defvar message-send-mail-real-function nil
   "Internal send mail function.")
 
+(defvar message-bogus-system-names "^localhost\\."
+  "The regexp of bogus system names.")
+
 (eval-and-compile
   (autoload 'message-setup-toolbar "messagexmas")
   (autoload 'mh-new-draft-name "mh-comp")
@@ -3464,7 +3467,8 @@ give as trustworthy answer as possible."
   (let ((system-name (system-name))
        (user-mail (message-user-mail-address)))
     (cond
-     ((string-match "[^.]\\.[^.]" system-name)
+     ((and (string-match "[^.]\\.[^.]" system-name)
+          (not (string-match message-bogus-system-names system-name)))
       ;; `system-name' returned the right result.
       system-name)
      ;; Try `mail-host-address'.