Sync.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c727d00..536b2c6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2000-04-27 21:57:10  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-send-mail-partially-limit): Change the
+       default value.
+
+2000-04-27 21:53:32  Erik Toubro Nielsen <erik@ifad.dk>
+
+       * gnus-util.el (gnus-extract-address-components): Name might be
+       "".
+
 2000-04-27 20:32:06  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-msg.el (gnus-summary-mail-forward): Use ARG.

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index c6ea284..366e76c 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -197,8 +197,8 @@
        (and (string-match "(.*" from)
             (setq name (substring from (1+ (match-beginning 0))
                                   (match-end 0)))))
-    ;; Fix by Hallvard B Furuseth <h.b.furuseth@usit.uio.no>.
-    (list (or name from) (or address from))))
+    (list (if (string= name "") nil name) (or address from))))
+
 
 (defun gnus-fetch-field (field)
   "Return the value of the header FIELD of current article."

diff --git a/lisp/message.el b/lisp/message.el
index 59145cb..a91824c 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1246,13 +1246,13 @@ The cdr of ech entry is a function for applying the face to a region.")
    (t nil))
   "Coding system to compose mail.")
 
-(defcustom message-send-mail-partially-limit nil
+(defcustom message-send-mail-partially-limit 1000000
   "The limitation of messages sent as message/partial.
 The lower bound of message size in characters, beyond which the message 
-should be sent in several parts. *Nil means unlimited."
+should be sent in several parts. If it is nil, the size is unlimited."
   :group 'message-buffers
   :type '(choice (const :tag "unlimited" nil)
-                (integer 50000)))
+                (integer 1000000)))
 
 ;;; Internal variables.