[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/message.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/message.el |
Date: |
Tue, 07 Sep 2004 07:39:31 -0400 |
Index: emacs/lisp/gnus/message.el
diff -c emacs/lisp/gnus/message.el:1.59 emacs/lisp/gnus/message.el:1.60
*** emacs/lisp/gnus/message.el:1.59 Sat Sep 4 13:13:43 2004
--- emacs/lisp/gnus/message.el Tue Sep 7 03:47:46 2004
***************
*** 1588,1594 ****
(if (not header)
nil
(let ((regexp (format "[%s]+" (or separator ",")))
! (beg 1)
(first t)
quoted elems paren)
(with-temp-buffer
--- 1588,1594 ----
(if (not header)
nil
(let ((regexp (format "[%s]+" (or separator ",")))
! (beg (point-min))
(first t)
quoted elems paren)
(with-temp-buffer
***************
*** 3722,3734 ****
"content-transfer-encoding")))))))
(message-insert-courtesy-copy))
(if (or (not message-send-mail-partially-limit)
! (< (point-max) message-send-mail-partially-limit)
(not (message-y-or-n-p
"The message size is too large, split? "
t
"\
The message size, "
! (/ (point-max) 1000) "KB, is too large.
Some mail gateways (MTA's) bounce large messages. To avoid the
problem, answer `y', and the message will be split into several
--- 3722,3734 ----
"content-transfer-encoding")))))))
(message-insert-courtesy-copy))
(if (or (not message-send-mail-partially-limit)
! (< (buffer-size) message-send-mail-partially-limit)
(not (message-y-or-n-p
"The message size is too large, split? "
t
"\
The message size, "
! (/ (buffer-size) 1000) "KB, is too large.
Some mail gateways (MTA's) bounce large messages. To avoid the
problem, answer `y', and the message will be split into several
***************
*** 3839,3846 ****
(case
(let ((coding-system-for-write message-send-coding-system))
(apply
! 'call-process-region 1 (point-max) message-qmail-inject-program
! nil nil nil
;; qmail-inject's default behaviour is to look for addresses on the
;; command line; if there're none, it scans the headers.
;; yes, it does The Right Thing w.r.t. Resent-To and it's kin.
--- 3839,3846 ----
(case
(let ((coding-system-for-write message-send-coding-system))
(apply
! 'call-process-region (point-min) (point-max)
! message-qmail-inject-program nil nil nil
;; qmail-inject's default behaviour is to look for addresses on the
;; command line; if there're none, it scans the headers.
;; yes, it does The Right Thing w.r.t. Resent-To and it's kin.