From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/35266 Path: main.gmane.org!not-for-mail From: Colin Marquardt Newsgroups: gmane.emacs.gnus.general Subject: Small Gnus UI patch Date: 08 Mar 2001 18:04:02 -0800 Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035171036 2046 80.91.224.250 (21 Oct 2002 03:30:36 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 03:30:36 +0000 (UTC) Keywords: message,send,message-send-mail-partially-limit,message-send-mail-partially Return-Path: Original-Received: (qmail 18367 invoked by alias); 9 Mar 2001 02:04:22 -0000 Original-Received: (qmail 18362 invoked from network); 9 Mar 2001 02:04:21 -0000 Original-Received: from netmail2.alcatel.com (128.251.168.51) by gnus.org with SMTP; 9 Mar 2001 02:04:21 -0000 Original-Received: from auds952.usa.alcatel.com (auds952.usa.alcatel.com [143.209.238.7]) by netmail2.alcatel.com (8.9.1/8.9.1) with ESMTP id UAA08734 for ; Thu, 8 Mar 2001 20:04:05 -0600 (CST) Original-Received: from lwmail01.pet.usa.alcatel.com (localhost [127.0.0.1]) by auds952.usa.alcatel.com (8.10.2/8.10.2) with ESMTP id f29241b18349 for ; Thu, 8 Mar 2001 20:04:02 -0600 (CST) Original-Received: from optilink.pet.usa.alcatel.com ([10.11.2.49]) by lwmail01.pet.usa.alcatel.com (Netscape Messaging Server 4.15 lwmail01 Aug 8 2000 13:22:32) with ESMTP id G9WR4D00.LJ5 for ; Thu, 8 Mar 2001 18:05:01 -0800 Original-Received: from sol-cmarquar.pet.usa.alcatel.com (sol-cmarquar [143.209.122.168]) by optilink.pet.usa.alcatel.com (8.8.8+Sun/8.8.8) with ESMTP id SAA14395 for ; Thu, 8 Mar 2001 18:04:02 -0800 (PST) Original-Received: (from cmarquar@localhost) by sol-cmarquar.pet.usa.alcatel.com (8.9.3+Sun/8.9.1) id SAA18640; Thu, 8 Mar 2001 18:04:02 -0800 (PST) X-Authentication-Warning: sol-cmarquar.pet.usa.alcatel.com: cmarquar set sender to colin.marquardt@usa.alcatel.com using -f Original-To: ding@gnus.org X-Disclaimer: Opinions expressed are not those of Alcatel USA. In-Reply-To: User-Agent: Gnus/5.090001 (Oort Gnus v0.01) XEmacs/21.1 (Canyonlands) Original-Lines: 54 Xref: main.gmane.org gmane.emacs.gnus.general:35266 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:35266 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)))