emacs-diffs
[Top][All Lists]
Advanced

[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.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]