From: eggert@twinsun.COM (Paul Eggert)
Subject: gnus 3.14.1 Line: count should be more user-configurable
Organization: GNUs Not Usenet
Distribution: gnu
Date: Tue, 5 Jan 1993 00:27:56 GMT

INN automatically inserts a Line: field, so GNUS shouldn't have to on INN
sites.  Also, the recent trend is for newsreaders to calculate a Lines: field
automatically for articles lacking a Line: field, so there's less of a reason
for GNUS to insert a Lines: field even if C News is the underlying news
transport system.  Here is a patch that makes the insertion of a Lines: field
a separately configurable entity, so that users can more easily adjust to
local conditions.

===================================================================
RCS file: gnuspost.el,v
retrieving revision 1.2.1.1
retrieving revision 1.2.1.2
diff -c -r1.2.1.1 -r1.2.1.2
*** gnuspost.el	1993/01/04 22:08:55	1.2.1.1
--- gnuspost.el	1993/01/05 00:02:11	1.2.1.2
***************
*** 1,7 ****
  ;;; Post news commands for GNUS newsreader
  ;; Copyright (C) 1989 Fujitsu Laboratories LTD.
  ;; Copyright (C) 1989, 1990 Masanobu UMEDA
! ;; $Header: /reb/src/base/gnus/gnuspost.el,v 1.2.1.1 1993/01/04 22:08:55 eggert Exp $
  
  ;; This file is part of GNU Emacs.
  
--- 1,7 ----
  ;;; Post news commands for GNUS newsreader
  ;; Copyright (C) 1989 Fujitsu Laboratories LTD.
  ;; Copyright (C) 1989, 1990 Masanobu UMEDA
! ;; $Header: /reb/src/base/gnus/gnuspost.el,v 1.2.1.2 1993/01/05 00:02:11 eggert Exp $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 524,531 ****
  	    (fill-region-as-paragraph begin (point))))
        (or (mail-fetch-field "distribution")
  	  (insert "Distribution: \n"))
!       ;; Insert Lines: if Cnews, since Cnews does not generate it.
!       (if (eq gnus-news-system 'Cnews)
  	  (insert "Lines: " (gnus-inews-lines) "\n"))
        )))
  
--- 524,530 ----
  	    (fill-region-as-paragraph begin (point))))
        (or (mail-fetch-field "distribution")
  	  (insert "Distribution: \n"))
!       (if gnus-need-line-field
  	  (insert "Lines: " (gnus-inews-lines) "\n"))
        )))
  
===================================================================
RCS file: gnus.el,v
retrieving revision 3.14.1.2
retrieving revision 3.14.1.3
diff -c -r3.14.1.2 -r3.14.1.3
*** gnus.el	1993/01/04 23:56:38	3.14.1.2
--- gnus.el	1993/01/05 00:02:11	3.14.1.3
***************
*** 1,7 ****
  ;;; GNUS: an NNTP-based News Reader for GNU Emacs
  ;; Copyright (C) 1987, 1988, 1989 Fujitsu Laboratories LTD.
  ;; Copyright (C) 1987, 1988, 1989, 1990 Masanobu UMEDA
! ;; $Header: /reb/src/base/gnus/gnus.el,v 3.14.1.2 1993/01/04 23:56:38 eggert Exp $
  
  ;; This file is part of GNU Emacs.
  
--- 1,7 ----
  ;;; GNUS: an NNTP-based News Reader for GNU Emacs
  ;; Copyright (C) 1987, 1988, 1989 Fujitsu Laboratories LTD.
  ;; Copyright (C) 1987, 1988, 1989, 1990 Masanobu UMEDA
! ;; $Header: /reb/src/base/gnus/gnus.el,v 3.14.1.3 1993/01/05 00:02:11 eggert Exp $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 555,560 ****
--- 555,564 ----
    "*If nil, use the NNTP server name in the Path: field; if stringp,
  use this; if non-nil, use no host name (user name only)")
  
+ (defvar gnus-need-line-field nil
+   "*If non-nil, fill in the Line: field.  On some sites, inews does not
+ fill in the Line: field, and some older news readers perform badly without it.")
+ 
  (defvar gnus-need-message-id nil
    "*If non-nil, fill in the Message-ID: field instead of letting inews do it")