home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / gnu / emacs / gnus / 1448 < prev    next >
Encoding:
Text File  |  1993-01-04  |  3.6 KB  |  100 lines
  1. Newsgroups: gnu.emacs.gnus
  2. Path: sparky!uunet!cs.utexas.edu!uwm.edu!rpi!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!twinsun.COM!eggert
  3. From: eggert@twinsun.COM (Paul Eggert)
  4. Subject: gnus 3.14.1 Line: count should be more user-configurable
  5. Message-ID: <9301050027.AA10153@farside.twinsun.com>
  6. Sender: daemon@cis.ohio-state.edu
  7. Organization: GNUs Not Usenet
  8. Distribution: gnu
  9. Date: Tue, 5 Jan 1993 00:27:56 GMT
  10. Lines: 88
  11.  
  12. INN automatically inserts a Line: field, so GNUS shouldn't have to on INN
  13. sites.  Also, the recent trend is for newsreaders to calculate a Lines: field
  14. automatically for articles lacking a Line: field, so there's less of a reason
  15. for GNUS to insert a Lines: field even if C News is the underlying news
  16. transport system.  Here is a patch that makes the insertion of a Lines: field
  17. a separately configurable entity, so that users can more easily adjust to
  18. local conditions.
  19.  
  20. ===================================================================
  21. RCS file: gnuspost.el,v
  22. retrieving revision 1.2.1.1
  23. retrieving revision 1.2.1.2
  24. diff -c -r1.2.1.1 -r1.2.1.2
  25. *** gnuspost.el    1993/01/04 22:08:55    1.2.1.1
  26. --- gnuspost.el    1993/01/05 00:02:11    1.2.1.2
  27. ***************
  28. *** 1,7 ****
  29.   ;;; Post news commands for GNUS newsreader
  30.   ;; Copyright (C) 1989 Fujitsu Laboratories LTD.
  31.   ;; Copyright (C) 1989, 1990 Masanobu UMEDA
  32. ! ;; $Header: /reb/src/base/gnus/gnuspost.el,v 1.2.1.1 1993/01/04 22:08:55 eggert Exp $
  33.   
  34.   ;; This file is part of GNU Emacs.
  35.   
  36. --- 1,7 ----
  37.   ;;; Post news commands for GNUS newsreader
  38.   ;; Copyright (C) 1989 Fujitsu Laboratories LTD.
  39.   ;; Copyright (C) 1989, 1990 Masanobu UMEDA
  40. ! ;; $Header: /reb/src/base/gnus/gnuspost.el,v 1.2.1.2 1993/01/05 00:02:11 eggert Exp $
  41.   
  42.   ;; This file is part of GNU Emacs.
  43.   
  44. ***************
  45. *** 524,531 ****
  46.           (fill-region-as-paragraph begin (point))))
  47.         (or (mail-fetch-field "distribution")
  48.         (insert "Distribution: \n"))
  49. !       ;; Insert Lines: if Cnews, since Cnews does not generate it.
  50. !       (if (eq gnus-news-system 'Cnews)
  51.         (insert "Lines: " (gnus-inews-lines) "\n"))
  52.         )))
  53.   
  54. --- 524,530 ----
  55.           (fill-region-as-paragraph begin (point))))
  56.         (or (mail-fetch-field "distribution")
  57.         (insert "Distribution: \n"))
  58. !       (if gnus-need-line-field
  59.         (insert "Lines: " (gnus-inews-lines) "\n"))
  60.         )))
  61.   
  62. ===================================================================
  63. RCS file: gnus.el,v
  64. retrieving revision 3.14.1.2
  65. retrieving revision 3.14.1.3
  66. diff -c -r3.14.1.2 -r3.14.1.3
  67. *** gnus.el    1993/01/04 23:56:38    3.14.1.2
  68. --- gnus.el    1993/01/05 00:02:11    3.14.1.3
  69. ***************
  70. *** 1,7 ****
  71.   ;;; GNUS: an NNTP-based News Reader for GNU Emacs
  72.   ;; Copyright (C) 1987, 1988, 1989 Fujitsu Laboratories LTD.
  73.   ;; Copyright (C) 1987, 1988, 1989, 1990 Masanobu UMEDA
  74. ! ;; $Header: /reb/src/base/gnus/gnus.el,v 3.14.1.2 1993/01/04 23:56:38 eggert Exp $
  75.   
  76.   ;; This file is part of GNU Emacs.
  77.   
  78. --- 1,7 ----
  79.   ;;; GNUS: an NNTP-based News Reader for GNU Emacs
  80.   ;; Copyright (C) 1987, 1988, 1989 Fujitsu Laboratories LTD.
  81.   ;; Copyright (C) 1987, 1988, 1989, 1990 Masanobu UMEDA
  82. ! ;; $Header: /reb/src/base/gnus/gnus.el,v 3.14.1.3 1993/01/05 00:02:11 eggert Exp $
  83.   
  84.   ;; This file is part of GNU Emacs.
  85.   
  86. ***************
  87. *** 555,560 ****
  88. --- 555,564 ----
  89.     "*If nil, use the NNTP server name in the Path: field; if stringp,
  90.   use this; if non-nil, use no host name (user name only)")
  91.   
  92. + (defvar gnus-need-line-field nil
  93. +   "*If non-nil, fill in the Line: field.  On some sites, inews does not
  94. + fill in the Line: field, and some older news readers perform badly without it.")
  95. + 
  96.   (defvar gnus-need-message-id nil
  97.     "*If non-nil, fill in the Message-ID: field instead of letting inews do it")
  98.   
  99.  
  100.