From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/28357 Path: main.gmane.org!not-for-mail From: Jan Vroonhof Newsgroups: gmane.emacs.gnus.general Subject: PATCH: Cater to broken smptpd Date: 21 Dec 1999 11:34:09 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035165220 29458 80.91.224.250 (21 Oct 2002 01:53:40 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:53:40 +0000 (UTC) Return-Path: Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18]) by mailhost.sclp.com (Postfix) with ESMTP id 45003D051E for ; Tue, 21 Dec 1999 05:38:22 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id EAB13599; Tue, 21 Dec 1999 04:34:48 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 21 Dec 1999 04:34:56 -0600 (CST) Original-Received: from mailhost.sclp.com (postfix@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id EAA04359 for ; Tue, 21 Dec 1999 04:34:46 -0600 (CST) Original-Received: from frege.math.ethz.ch (frege-d-math-north-g-west.math.ethz.ch [129.132.145.3]) by mailhost.sclp.com (Postfix) with ESMTP id 79869D051E for ; Tue, 21 Dec 1999 05:34:24 -0500 (EST) Original-Received: (from daemon@localhost) by frege.math.ethz.ch (8.9.1/8.9.1) id LAA15000 for ; Tue, 21 Dec 1999 11:34:16 +0100 (MET) Original-Received: from urysohn(129.132.146.167), claiming to be "urysohn.math.ethz.ch" via SMTP by frege, id smtpdAAAa003eH; Tue Dec 21 11:34:09 1999 Original-Received: (vroonhof@localhost) by urysohn.math.ethz.ch (8.9.3/D-MATH-client) id LAA11848; Tue, 21 Dec 1999 11:34:09 +0100 X-Authentication-Warning: urysohn.math.ethz.ch: vroonhof set sender to vroonhof@math.ethz.ch using -f Original-To: ding@gnus.org Original-Lines: 39 User-Agent: Gnus/5.0803 (Gnus v5.8.3) XEmacs/21.2 (Hecate) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:28357 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:28357 1999-12-21 Jan Vroonhof * message.el (message-shorten-references): Only cater to broken INN for news. This caters for broken smtpd. Index: message.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/message.el,v retrieving revision 5.81 diff -u -u -r5.81 message.el --- message.el 1999/12/04 08:26:03 5.81 +++ message.el 1999/12/21 10:29:20 @@ -3230,7 +3230,10 @@ ;; If folding is disallowed, make sure the total length (including ;; the spaces between) will be less than MAXSIZE characters. - (when message-cater-to-broken-inn + ;; + ;; Only disallow folding for News messages. At this point the headers + ;; have not been generated, thus we use message-this-is-news directly. + (when (and message-this-is-news message-cater-to-broken-inn) (let ((maxsize 988) (totalsize (+ (apply #'+ (mapcar #'length refs)) (1- count))) @@ -3248,7 +3251,7 @@ ;; Finally, collect the references back into a string and insert ;; it into the buffer. (let ((refstring (mapconcat #'identity refs " "))) - (if message-cater-to-broken-inn + (if (and message-this-is-news message-cater-to-broken-inn) (insert (capitalize (symbol-name header)) ": " refstring "\n") (message-fill-header header refstring)))))