PATCH: Cater to broken smptpd

PATCH: Cater to broken smptpd

[Jan Vroonhof]

1999-12-21  Jan Vroonhof  <vroonhof@math.ethz.ch>

	* 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)))))