Small Gnus UI patch

[Colin Marquardt <colin.marquardt@usa.alcatel.com>]

Hi,

here is a small patch which makes Gnus a bit clearer about what is
meant ("partially" could also mean "cut off the rest and send only
the first part").

Ideally, you would have the choice between three options here: 
  * send message in parts, 
  * send in one big message, 
  * cancel.
I don't know enough about Emacs LISP to do that though...

The first part of the patch fixes a plain typo (or Freudian slip?).

Cheers,
  Colin


*** /tmp/message.el.orig	Thu Mar  8 17:57:07 2001
--- /tmp/message.el	Thu Mar  8 17:57:07 2001
***************
*** 2358,2364 ****
      (pop actions)))
  
  (defun message-send-mail-partially ()
!   "Sendmail as message/partial."
    ;; replace the header delimiter with a blank line
    (goto-char (point-min))
    (re-search-forward
--- 2358,2364 ----
      (pop actions)))
  
  (defun message-send-mail-partially ()
!   "Send mail as message/partial."
    ;; replace the header delimiter with a blank line
    (goto-char (point-min))
    (re-search-forward
***************
*** 2483,2489 ****
  	    (message-insert-courtesy-copy))
  	  (if (or (not message-send-mail-partially-limit)
  		  (< (point-max) message-send-mail-partially-limit)
! 		  (not (y-or-n-p "The message size is too large, should it be sent partially? ")))
  	      (mm-with-unibyte-current-buffer
  		(funcall message-send-mail-function))
  	    (message-send-mail-partially)))
--- 2483,2489 ----
  	    (message-insert-courtesy-copy))
  	  (if (or (not message-send-mail-partially-limit)
  		  (< (point-max) message-send-mail-partially-limit)
! 		  (not (y-or-n-p "Message exceeds message-send-mail-partially-limit, send in parts? ")))
  	      (mm-with-unibyte-current-buffer
  		(funcall message-send-mail-function))
  	    (message-send-mail-partially)))