From 968bbc582f15837fad116c2df98e6fc6d646bc89 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 28 Apr 2000 03:03:36 +0000 Subject: [PATCH] Sync. --- lisp/ChangeLog | 10 ++++++++++ lisp/gnus-util.el | 4 ++-- lisp/message.el | 6 +++--- 3 files changed, 15 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c727d00..536b2c6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2000-04-27 21:57:10 Shenghuo ZHU + + * message.el (message-send-mail-partially-limit): Change the + default value. + +2000-04-27 21:53:32 Erik Toubro Nielsen + + * gnus-util.el (gnus-extract-address-components): Name might be + "". + 2000-04-27 20:32:06 Shenghuo ZHU * 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 --- 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 . - (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 --- 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. -- 1.7.10.4