/[emacs]/emacs/lisp/gnus/message.el
ViewVC logotype

Diff of /emacs/lisp/gnus/message.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.59 by miles, Sat Sep 4 13:13:43 2004 UTC revision 1.60 by monnier, Tue Sep 7 03:47:46 2004 UTC
# Line 1588  is used by default." Line 1588  is used by default."
1588    (if (not header)    (if (not header)
1589        nil        nil
1590      (let ((regexp (format "[%s]+" (or separator ",")))      (let ((regexp (format "[%s]+" (or separator ",")))
1591            (beg 1)            (beg (point-min))
1592            (first t)            (first t)
1593            quoted elems paren)            quoted elems paren)
1594        (with-temp-buffer        (with-temp-buffer
# Line 3722  It should typically alter the sending me Line 3722  It should typically alter the sending me
3722                                     "content-transfer-encoding")))))))                                     "content-transfer-encoding")))))))
3723              (message-insert-courtesy-copy))              (message-insert-courtesy-copy))
3724            (if (or (not message-send-mail-partially-limit)            (if (or (not message-send-mail-partially-limit)
3725                    (< (point-max) message-send-mail-partially-limit)                    (< (buffer-size) message-send-mail-partially-limit)
3726                    (not (message-y-or-n-p                    (not (message-y-or-n-p
3727                          "The message size is too large, split? "                          "The message size is too large, split? "
3728                          t                          t
3729                          "\                          "\
3730  The message size, "  The message size, "
3731                          (/ (point-max) 1000) "KB, is too large.                          (/ (buffer-size) 1000) "KB, is too large.
3732    
3733  Some mail gateways (MTA's) bounce large messages.  To avoid the  Some mail gateways (MTA's) bounce large messages.  To avoid the
3734  problem, answer `y', and the message will be split into several  problem, answer `y', and the message will be split into several
# Line 3839  to find out how to use this." Line 3839  to find out how to use this."
3839    (case    (case
3840        (let ((coding-system-for-write message-send-coding-system))        (let ((coding-system-for-write message-send-coding-system))
3841          (apply          (apply
3842           'call-process-region 1 (point-max) message-qmail-inject-program           'call-process-region (point-min) (point-max)
3843           nil nil nil           message-qmail-inject-program nil nil nil
3844           ;; qmail-inject's default behaviour is to look for addresses on the           ;; qmail-inject's default behaviour is to look for addresses on the
3845           ;; command line; if there're none, it scans the headers.           ;; command line; if there're none, it scans the headers.
3846           ;; yes, it does The Right Thing w.r.t. Resent-To and it's kin.           ;; yes, it does The Right Thing w.r.t. Resent-To and it's kin.

Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26