Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

*** empty log message ***

  • Loading branch information...
commit bf9b4cc66a85379d1118de9752c3bf85bba1ec2d 1 parent d117d36
Lars Ingebrigtsen authored
24  lisp/ChangeLog
... ...
@@ -1,7 +1,27 @@
  1
+Sun Feb 11 04:49:16 1996  Mark Borges  <mdb@cdc.noaa.gov>
  2
+
  3
+	* gnus-xmas.el (gnus-xmas-define): Conditionally redefine
  4
+	`set-text-properties'. 
  5
+
  6
+Sun Feb 11 04:40:39 1996  Lars Ingebrigtsen  <lars@eyesore.no>
  7
+
  8
+	* gnus.el (gnus-summary-limit-to-subject): Limit to any header. 
  9
+
  10
+Sat Feb 10 03:26:10 1996  Lars Ingebrigtsen  <lars@eyesore.no>
  11
+
  12
+	* nnmail.el (nnmail-days-to-time): Don't bug out on large
  13
+	numbers. 
  14
+
  15
+Fri Feb  9 22:17:55 1996  Lars Ingebrigtsen  <lars@eyesore.no>
  16
+
  17
+	* gnus-msg.el (gnus-forward-included-headers): Include Message-ID
  18
+	and References.
  19
+	(gnus-post-news): Make sure the parent group is a news group.
  20
+
1 21
 Fri Feb  9 09:56:45 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
2 22
 
3 23
 	* gnus-picon.el (gnus-picons-convert-x-face): Changed to use
4  
-	pbmplus, 
  24
+	pbmplus.
5 25
 
6 26
 	* gnus.el (gnus-buffer-configuration): One quote too many.
7 27
 
@@ -9,6 +29,8 @@ Fri Feb  9 09:56:45 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
9 29
 
10 30
 	* gnus.el (gnus-summary-execute-command): Accept "Body" searches.
11 31
 
  32
+	* gnus.el: 0.37 is released.
  33
+
12 34
 Fri Feb  9 09:44:04 1996  Lars Magne Ingebrigtsen  <larsi@eistla.ifi.uio.no>
13 35
 
14 36
 	* nnmail.el (nnmail-time-since): Reversed time.
374  lisp/doc.txt
... ...
@@ -0,0 +1,374 @@
  1
+From lars Thu Feb 23 23:20:38 1995
  2
+From: larsi@ifi.uio.no (ding)
  3
+Date: Fri Feb 24 13:40:45 1995
  4
+Subject: This is a test version of this group
  5
+Message-ID: <lars-doc0@eyesore.no>
  6
+
  7
+This group will look something like this, but the stuff in here is of
  8
+little worth right now. 
  9
+
  10
+For real documentation, you'll have to read the source code. Or you
  11
+can read the info file, which is pretty comprehensive, if somewhat out
  12
+of date.
  13
+
  14
+Gnus is currently in beta.
  15
+
  16
+When you happen upon a bug, please drop me a note.
  17
+
  18
+
  19
+From lars Thu Feb 23 23:20:38 1995
  20
+From: larsi@ifi.uio.no (ding)
  21
+Date: Fri Feb 24 13:40:45 1995
  22
+Subject: So you want to use the new Gnus
  23
+Message-ID: <lars-doc1@eyesore.no>
  24
+
  25
+Actually, since you are reading this, chances are you are already
  26
+using the new Gnus. Congratulations.
  27
+
  28
+This entire newsgroup you are reading is, in fact, no real newsgroup
  29
+at all, in the traditional sense. It is an example of one of the
  30
+"foreign" select methods that Gnus may use.
  31
+
  32
+The text you are now reading is stored in the "etc" directory with the
  33
+rest of the Emacs sources. You are using the "nndir" backend for
  34
+accessing it. Scary, isn't it?
  35
+
  36
+This isn't the real documentation. `M-x info', `m gnus <RET>' to read
  37
+that. This "newsgroup" is intended as a kinder, gentler way of getting
  38
+people started.
  39
+
  40
+Gnus is a rewrite of GNUS 4.1, written by Masanobu Umeda. The rewrite
  41
+was done by moi, yours truly, your humble servant, Lars Magne
  42
+Ingebrigtsen. If you have a WWW browser, you can investigate to your
  43
+heart's delight at "http://www.ifi.uio.no/~larsi/larsi.html".
  44
+
  45
+Much code (especially the score code) was written by Per Abrahamsen. 
  46
+
  47
+;; Copyright (C) 1995 Free Software Foundation, Inc.
  48
+
  49
+;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
  50
+;; Keywords: news
  51
+
  52
+;; This file is part of GNU Emacs.
  53
+
  54
+;; GNU Emacs is free software; you can redistribute it and/or modify
  55
+;; it under the terms of the GNU General Public License as published by
  56
+;; the Free Software Foundation; either version 2, or (at your option)
  57
+;; any later version.
  58
+
  59
+;; GNU Emacs is distributed in the hope that it will be useful,
  60
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  61
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  62
+;; GNU General Public License for more details.
  63
+
  64
+;; You should have received a copy of the GNU General Public License
  65
+;; along with GNU Emacs; see the file COPYING.  If not, write to
  66
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  67
+
  68
+From lars Thu Feb 23 23:20:38 1995
  69
+From: larsi@ifi.uio.no (ding)
  70
+Date: Fri Feb 24 13:40:45 1995
  71
+Subject: Starting up
  72
+Message-ID: <lars-doc2@eyesore.no>
  73
+
  74
+If you are having problems with Gnus not finding your server, you have
  75
+to set `gnus-select-method'. A "method" is a way of specifying *how*
  76
+the news is to be found, and from *where*.
  77
+
  78
+Say you want to read news from you local, friendly nntp server
  79
+"news.my.local.server". 
  80
+
  81
+(setq gnus-select-method '(nntp "news.my.local.server"))
  82
+
  83
+Quite easy, huh?
  84
+
  85
+From the news spool:
  86
+
  87
+(setq gnus-select-method '(nnspool ""))
  88
+
  89
+From your mh-e spool:
  90
+
  91
+(setq gnus-select-method '(nnmh ""))
  92
+
  93
+There's a whole bunch of other methods for reading mail and news, see
  94
+the "Foreign groups" article for that.
  95
+
  96
+
  97
+From lars Thu Feb 23 23:20:38 1995
  98
+From: larsi@ifi.uio.no (ding)
  99
+Date: Fri Feb 24 13:40:45 1995
  100
+Subject: Where are all the groups, then?
  101
+Message-ID: <lars-doc3@eyesore.no>
  102
+
  103
+If this is the first time you have used a newsreader, you won't have a
  104
+.newsrc file. This means that Gnus will think that all the newsgroups
  105
+on the server are "new", and kill them all.
  106
+
  107
+If you have a .newsrc file, the new groups will be processed with the
  108
+function in the `gnus-subscribe-newsgroup-method' variable, which is
  109
+`gnus-subscribe-zombies' by default.
  110
+
  111
+This means that all the groups have been made into "zombies" - not
  112
+quite dead, but not exactly alive, either.
  113
+
  114
+Jump back to the *Group* buffer, and type `C-c C-z' to list all the
  115
+zombie groups. Look though the list, and subscribe to the groups you
  116
+want to read by pressing `u' on the one you think look interesting. 
  117
+
  118
+If all the groups have been killed, type `C-c C-k' to list all the
  119
+killed groups. Subscribe to them the same way.
  120
+
  121
+When you are satisfied, press `M-z' to kill all the zombie groups. 
  122
+
  123
+Now you should have a nice list of all groups you are interested in.
  124
+
  125
+(If you later want to subscribe to more groups, press `C-c C-k' to
  126
+list all the kill groups, and repeat. You can also type `U' and be
  127
+prompted for groups to subscribe to.)
  128
+
  129
+
  130
+From lars Thu Feb 23 23:20:38 1995
  131
+From: larsi@ifi.uio.no (ding)
  132
+Date: Fri Feb 24 13:40:45 1995
  133
+Subject: I want to read my mail!
  134
+Message-ID: <lars-doc4@eyesore.no>
  135
+
  136
+Yes, Virginia, you can read mail with Gnus.
  137
+
  138
+First you have to decide which mail backend you want to use. You have
  139
+nnml, which is a one-file-one-mail backend, which is quite nice, but
  140
+apt to make your systems administrator go crazy and come after you
  141
+with a shotgun.
  142
+
  143
+nnmbox uses a Unix mail box to store mail. Nice, but slow.
  144
+
  145
+nnmh uses mh-e folders, which is also a one-file-one-mail thingie, but
  146
+slower than nnml. (It doesn't support NOV files.)
  147
+
  148
+So if you want to go with nnmbox, you can simply say:
  149
+
  150
+(setq gnus-secondary-select-methods '((nnmbox "")))
  151
+
  152
+(The same for the other methods, kind of.)
  153
+
  154
+You should also set `nnmail-split-methods' to something sensible: 
  155
+
  156
+(setq nnmail-split-methods 
  157
+      '(("mail.junk" "From:.*Lars")
  158
+	("mail.misc "")))
  159
+
  160
+This will put all mail from me in you junk mail group, and the rest in
  161
+"mail.misc". 
  162
+
  163
+These groups will be subscribe the same way as the normal groups, so
  164
+you will probably find them among the zombie groups after you set
  165
+these variables and re-start Gnus.
  166
+
  167
+
  168
+From lars Thu Feb 23 23:20:38 1995
  169
+From: larsi@ifi.uio.no (ding)
  170
+Date: Fri Feb 24 13:40:45 1995
  171
+Subject: Foreign newsgroups
  172
+Message-ID: <lars-doc5@eyesore.no>
  173
+
  174
+These are groups that do not come from `gnus-select-method'. 
  175
+
  176
+Say you want to read "alt.furniture.couches" from "news.funet.fi". You
  177
+can then either type `B news.funet.fi <RET>' to browse that server and
  178
+subscribe to that group, or you can type 
  179
+`M-a alt.furniture.couches<RET>nntp<RET>news.funet.fi<RET>', if you
  180
+like to type a lot.
  181
+
  182
+If you want to read a directory as a newsgroup, you can create an
  183
+nndir group, much the same way. There's a shorthand for that,
  184
+though. If, for instance, you want to read the (ding) list archives,
  185
+you could type `D /ftp <RET>'.
  186
+
  187
+There's lots more to know about foreign groups, but you have to read
  188
+the info pages to find out more.
  189
+
  190
+
  191
+From lars Thu Feb 23 23:20:38 1995
  192
+From: larsi@ifi.uio.no (ding)
  193
+Date: Fri Feb 24 13:40:45 1995
  194
+Subject: Low level changes in GNUS, or, Wrong type argument: stringp, nil
  195
+Message-ID: <lars-doc6@eyesore.no>
  196
+
  197
+Gnus really isn't GNUS, even though it looks like it. If you scrape
  198
+the surface, you'll find that most things have changed.
  199
+
  200
+This means that old code that relies on GNUS internals will fail. 
  201
+
  202
+In particular, `gnus-newsrc-hashtb', `gnus-newsrc-assoc',
  203
+`gnus-killed-list', the `nntp-header-' macros and the display formats
  204
+have all changed. If you have some code lying around that depend on
  205
+these, or change these, you'll have to re-write your code.
  206
+
  207
+Old hilit19 code does not work at all.  In fact, you should probably
  208
+remove all hihit code from all the Gnus hooks
  209
+(`gnus-group-prepare-hook', `gnus-summary-prepare-hook' and
  210
+`gnus-summary-article-hook').  (Well, at the very least the first
  211
+two.)  Gnus provides various integrated functions for highlighting,
  212
+which are both faster and more accurated.
  213
+
  214
+There is absolutely no chance, whatsoever, of getting Gnus to work
  215
+with Emacs 18.
  216
+
  217
+	
  218
+From lars Thu Feb 23 23:20:38 1995
  219
+From: larsi@ifi.uio.no (ding)
  220
+Date: Fri Feb 24 13:40:45 1995
  221
+Subject: Bugs & stuff
  222
+Message-ID: <lars-doc7@eyesore.no>
  223
+
  224
+If you want to report a bug, please type `M-x gnus-bug'. This will
  225
+give me a precice overview of your Gnus and Emacs version numbers,
  226
+along with a look at all Gnus variables you have changed.
  227
+
  228
+Du not expect a reply back, but your bug should be fixed in the next
  229
+version. If the bug persists, please re-submit your bug report.
  230
+
  231
+When a bug occurs, I need a recipe for how to trigger the bug. You
  232
+have to tell me exactly what you do to uncover the bug, and you should
  233
+(setq debug-on-error t) and send me the backtrace along with the bug
  234
+report. 
  235
+
  236
+If I am not able to reproduce the bug, I won't be able to fix it.
  237
+
  238
+I would, of course, prefer that you locate the bug, fix it, and mail
  239
+me the patches, but one can't have everything.
  240
+
  241
+If you have any questions on usage, the "ding@ifi.uio.no" mailing list
  242
+is where to post the questions.
  243
+
  244
+
  245
+From lars Thu Feb 23 23:20:38 1995
  246
+From: larsi@ifi.uio.no (ding)
  247
+Date: Fri Feb 24 13:40:45 1995
  248
+Subject: How do I re-scan my mail groups?
  249
+Message-ID: <lars-doc8@eyesore.no>
  250
+
  251
+Reading the active file from the nntp server is a drag.
  252
+
  253
+Just press `M-g' on the mail groups, and they will be re-scanned.
  254
+
  255
+You can also re-scan all the mail groups by putting them on level 1
  256
+(`1 S'), and saying `1 g' to re-scan all level 1 groups.
  257
+
  258
+
  259
+From lars Thu Feb 23 23:20:38 1995
  260
+From: larsi@ifi.uio.no (ding)
  261
+Date: Fri Feb 24 13:40:45 1995
  262
+Subject: How do I set up virtual newsgroups?
  263
+Message-ID: <lars-doc9@eyesore.no>
  264
+
  265
+Virtual newsgroups are collections of other newsgroups. Why people
  266
+want this is beyond me, but here goes:
  267
+
  268
+Create the group by saying
  269
+
  270
+`M-a my.virtual.newsgroup<RET>nnvirtual<RET>^rec\.aquaria\.*<RET>'
  271
+
  272
+This will create the group "nnvirtual:my.virtual.newsgroup", which
  273
+will collect all articles from all the groups in the "rec.aquaria"
  274
+hierarchy. 
  275
+
  276
+If you want to edit the regular expression, just type `M-e' on the
  277
+group line.
  278
+
  279
+Note that all the groups that are part of the virtual group have to be
  280
+alive. This means that the cannot, absolutely not, be zombie or
  281
+killed. They can be unsubscribed; that's no problem.
  282
+
  283
+You can combine groups from different servers in the same virtual
  284
+newsgroup, something that may actually be useful. Say you have the
  285
+group "comp.headers" on the server "news.server.no" and the same group
  286
+on "news.server.edu". If people have posted articles with Distribution
  287
+headers that stop propagation of their articles, combining these two
  288
+newsgroups into one virtual newsgroup should give you a better view of
  289
+what's going on.
  290
+
  291
+One caveat, though: The virtual group article numbers from the first
  292
+source group (group A) will always be lower than the article numbers
  293
+from the second (group B). This means that Gnus will believe that
  294
+articles from group A are older than articles from group B. Threading
  295
+will lessen these problems, but it might be a good idea to sort the
  296
+threads over the date of the articles to get a correct feel for the
  297
+flow of the groups:
  298
+
  299
+(setq gnus-thread-sort-functions '(gnus-thread-sort-by-date))
  300
+
  301
+If you only want this in virtual groups, you could say something along
  302
+the lines of:
  303
+
  304
+(setq gnus-select-group-hook
  305
+      (lambda ()
  306
+  	(if (eq 'nnvirtual (car (gnus-find-method-for-group 
  307
+	                          gnus-newsgroup-name)))
  308
+	    (progn
  309
+	      (make-local-variable 'gnus-thread-sort-functions)
  310
+	      (setq gnus-thread-sort-functions '(gnus-thread-sort-by-date))))))
  311
+
  312
+
  313
+From lars Thu Feb 23 23:20:38 1995
  314
+From: larsi@ifi.uio.no (ding)
  315
+Date: Fri Feb 24 13:40:45 1995
  316
+Subject: I want to kiboze everything in sight!
  317
+Message-ID: <lars-doc10@eyesore.no>
  318
+
  319
+The nnkiboze backend collects articles that you are interested in from
  320
+groups you are interested in. Below is a description for how you can
  321
+gather all posts from me, and all posts about Gnus in the gnu.emacs
  322
+hierarchy in one handy, easy to read group.
  323
+
  324
+Gnus will let you eat up all available machine resources, grinding
  325
+everything to a halt. Including your nntp server. Who says Gnus isn't
  326
+friendly? 
  327
+
  328
+You want to do this, of course.
  329
+
  330
+Create an nnkiboze group the normal way:
  331
+
  332
+`M-a my.group<RET>nnkiboze<RET>^gnu.emacs.*<RET>'
  333
+
  334
+You now have a shiny new group that you can't enter.  How...
  335
+practical.
  336
+
  337
+But just wait, it gets worse.
  338
+
  339
+You now have to create a score file. 
  340
+
  341
+`C-x C-f ~/News/nnkiboze:my.group.SCORE<RET>'
  342
+
  343
+Put something like the following in this file:
  344
+
  345
+(setq gnus-score-alist
  346
+      '(("from"
  347
+	 ("Ingebrigtsen" nil 1000)
  348
+	 ("lmi" nil 5000))
  349
+	("subject"
  350
+	 ("Gnus" nil 10000))
  351
+	(touched)))
  352
+
  353
+Save the file, and go to a shell window.
  354
+
  355
+Type:
  356
+
  357
+$ emacs -batch -l ~/.emacs -l nnkiboze -f nnkiboze-generate-groups
  358
+
  359
+Wait a few hours, and all articles from me, or articles about Gnus,
  360
+will appear, as if by magic, in the nnkiboze group. You really want
  361
+that, of course.
  362
+
  363
+Gnus actually grabs the headers of all the groups that supply the
  364
+nnkiboze group with articles, so this isn't very kind. Pleasy only do
  365
+it at night (`at' is a fine command), and please, *please*, limit the
  366
+number of groups that supply articles to the group. If you specify ""
  367
+as the address of this group, nnkiboze will ask for headers from *all*
  368
+groups, and this is megs and megs and megs of data. 
  369
+
  370
+Use it, don't abuse it. Be nice.
  371
+
  372
+
  373
+
  374
+
8  lisp/gnus-msg.el
@@ -214,7 +214,8 @@ be used instead.")
214 214
 (defvar gnus-signature-before-forwarded-message t
215 215
   "*If non-nil, put the signature before any included forwarded message.")
216 216
 
217  
-(defvar gnus-forward-included-headers gnus-visible-headers
  217
+(defvar gnus-forward-included-headers 
  218
+  "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-\\:^Message-ID:\\|^References:"
218 219
   "*Regexp matching headers to be included in forwarded messages.")
219 220
 
220 221
 (defvar gnus-required-headers
@@ -539,7 +540,8 @@ Type \\[describe-mode] in the buffer to get a list of commands."
539 540
 	    mailing-list (when gnus-mailing-list-groups
540 541
 			   (string-match gnus-mailing-list-groups group))
541 542
 	    group (gnus-group-real-name group)))
542  
-    (if (or to-group
  543
+    (if (or (and to-group
  544
+		 (gnus-news-group-p to-group))
543 545
 	    (and (gnus-news-group-p 
544 546
 		  (or pgroup gnus-newsgroup-name)
545 547
 		  (if header (mail-header-number header) gnus-current-article))
@@ -2683,7 +2685,7 @@ Headers will be generated before sending."
2683 2685
 	(when gcc
2684 2686
 	  (nnheader-remove-header "gcc")
2685 2687
 	  (widen)
2686  
-	  (setq groups (gnus-tokenize-header gcc " "))
  2688
+	  (setq groups (gnus-tokenize-header gcc " ,"))
2687 2689
 	  ;; Copy the article over to some group(s).
2688 2690
 	  (while (setq group (pop groups))
2689 2691
 	    (gnus-check-server 
2  lisp/gnus-topic.el
@@ -162,10 +162,12 @@ articles in the topic and its subtopics."
162 162
     (while (setq entry (pop entries))
163 163
       (when visiblep 
164 164
 	(if (stringp entry)
  165
+	    ;; Dead groups.
165 166
 	    (gnus-group-insert-group-line
166 167
 	     entry (if (member entry gnus-zombie-list) 8 9)
167 168
 	     nil (- (1+ (cdr (setq active (gnus-active entry))))
168 169
 		    (car active)) nil)
  170
+	  ;; Living groups.
169 171
 	  (when (setq info (nth 2 entry))
170 172
 	    (gnus-group-insert-group-line 
171 173
 	     (gnus-info-group info)
4  lisp/gnus-xmas.el
@@ -302,7 +302,9 @@ call it with the value of the `gnus-data' text property."
302 302
   (fset 'gnus-overlay-end 'extent-end-position)
303 303
   (fset 'gnus-extent-detached-p 'extent-detached-p)
304 304
       
305  
-  (fset 'set-text-properties 'gnus-xmas-set-text-properties)
  305
+  (require 'text-props)
  306
+  (if (< emacs-minor-version 14)
  307
+      (fset 'set-text-properties 'gnus-xmas-set-text-properties))
306 308
 
307 309
   (fset 'nnheader-find-file-noselect 'gnus-xmas-find-file-noselect)
308 310
 
30  lisp/gnus.el
@@ -1684,7 +1684,7 @@ variable (string, integer, character, etc).")
1684 1684
   "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
1685 1685
   "The mail address of the Gnus maintainers.")
1686 1686
 
1687  
-(defconst gnus-version "September Gnus v0.37"
  1687
+(defconst gnus-version "September Gnus v0.38"
1688 1688
   "Version number for this version of Gnus.")
1689 1689
 
1690 1690
 (defvar gnus-info-nodes
@@ -5782,20 +5782,22 @@ or nil if no action could be taken."
5782 5782
 			    (assq 'expire (gnus-info-marks info))))
5783 5783
 	       (expiry-wait (gnus-group-get-parameter group 'expiry-wait)))
5784 5784
 	  (when expirable
5785  
-	    (setcdr expirable
5786  
-		    (gnus-compress-sequence
5787  
-		     (if expiry-wait
5788  
-			 (let ((nnmail-expiry-wait-function nil)
5789  
-			       (nnmail-expiry-wait expiry-wait))
5790  
-			   (gnus-request-expire-articles
5791  
-			    (gnus-uncompress-sequence (cdr expirable)) group))
5792  
-		       (gnus-request-expire-articles
5793  
-			(gnus-uncompress-sequence (cdr expirable))
5794  
-			group)))))
  5785
+	    (setcdr
  5786
+	     expirable
  5787
+	     (gnus-compress-sequence
  5788
+	      (if expiry-wait
  5789
+		  ;; We set the expiry variables to the groupp
  5790
+		  ;; parameter. 
  5791
+		  (let ((nnmail-expiry-wait-function nil)
  5792
+			(nnmail-expiry-wait expiry-wait))
  5793
+		    (gnus-request-expire-articles
  5794
+		     (gnus-uncompress-sequence (cdr expirable)) group))
  5795
+		;; Just expire using the normal expiry values.
  5796
+		(gnus-request-expire-articles
  5797
+		 (gnus-uncompress-sequence (cdr expirable)) group)))))
5795 5798
 	  (gnus-message 6 "Expiring articles in %s...done" group)))
5796 5799
       (gnus-group-position-point))))
5797 5800
 
5798  
-
5799 5801
 (defun gnus-group-expire-all-groups ()
5800 5802
   "Expire all expirable articles in all newsgroups."
5801 5803
   (interactive)
@@ -10192,7 +10194,8 @@ If given a prefix, remove all limits."
10192 10194
     (setq header "subject"))
10193 10195
   (when (not (equal "" subject))
10194 10196
     (prog1
10195  
-	(let ((articles (gnus-summary-find-matching "subject" subject 'all)))
  10197
+	(let ((articles (gnus-summary-find-matching
  10198
+			 (or header "subject") subject 'all)))
10196 10199
 	  (or articles (error "Found no matches for \"%s\"" subject))
10197 10200
 	  (gnus-summary-limit articles))
10198 10201
       (gnus-summary-position-point))))
@@ -10323,7 +10326,6 @@ If ALL, mark even excluded ticked and dormants as read."
10323 10326
 		    (memq article gnus-newsgroup-marked))
10324 10327
 	  (push (cons article gnus-catchup-mark) gnus-newsgroup-reads))))))
10325 10328
 
10326  
-
10327 10329
 (defun gnus-summary-limit (articles &optional pop)
10328 10330
   (if pop
10329 10331
       ;; We pop the previous limit off the stack and use that.
6  lisp/nnmail.el
@@ -313,8 +313,10 @@ parameter.  It should return nil, `warn' or `delete'.")
313 313
   "Convert DAYS into time."
314 314
   (let* ((seconds (* 1.0 days 60 60 24))
315 315
 	 (rest (expt 2 16))
316  
-	 (ms (round (/ seconds rest))))
317  
-    (list ms (round (- seconds (* ms rest))))))
  316
+	 (ms (condition-case nil (round (/ seconds rest)) 
  317
+	       (range-error (expt 2 16)))))
  318
+    (list ms (condition-case nil (round (- seconds (* ms rest)))
  319
+	       (range-error (expt 2 16))))))
318 320
 
319 321
 (defun nnmail-time-since (time)
320 322
   "Return the time since TIME, which is either an internal time or a date."
4  texi/ChangeLog
... ...
@@ -1,3 +1,7 @@
  1
+Sun Feb 11 04:39:52 1996  Lars Magne Ingebrigtsen  <larsi@aegir.ifi.uio.no>
  2
+
  3
+	* gnus.texi (Censorship): New.
  4
+
1 5
 Thu Feb  8 17:34:33 1996  Lars Ingebrigtsen  <lars@eyesore.no>
2 6
 
3 7
 	* gnus.texi (Topic Commands): Addition.
25  texi/Makefile
@@ -7,11 +7,14 @@ DVIPS=dvips
7 7
 
8 8
 all: gnus.info refcard.dvi
9 9
 
  10
+most: texi2latexi.elc latex latexps
  11
+
10 12
 gnus.info: gnus.texi
11 13
 	$(MAKEINFO)
12 14
 
13 15
 dvi: gnus.texi
14  
-	$(TEXI2DVI) gnus.texi
  16
+	perl -n -e ' if (/@iflatex/) { $$latex=1; } if (!$$latex) { print; } if (/@end iflatex/) { $$latex=0; }' gnus.texi > gnus.tmptexi
  17
+	$(TEXI2DVI) gnus.tmptexi
15 18
 
16 19
 refcard.dvi: refcard.tex
17 20
 	$(LATEX) refcard.tex
@@ -22,11 +25,27 @@ clean:
22 25
 makeinfo: 
23 26
 	makeinfo -o gnus.info gnus.texi	
24 27
 
  28
+texi2latexi.elc:
  29
+	$(EMACS) -batch -l bytecomp -f batch-byte-recompile-directory
  30
+
25 31
 latex: gnus.texi
26 32
 	$(EMACS) -batch -q -no-site-file gnus.texi -l ./texi2latex.elc -f latexi-translate
27 33
 
28 34
 latexps: gnus.latexi
29  
-	$(LATEX) gnus.latexi ; $(DVIPS) -f gnus.dvi > gnus.ps
  35
+	$(LATEX) gnus.latexi 
  36
+	splitindex
  37
+	makeindex -o gnus.kind gnus.kidx
  38
+	makeindex -o gnus.cind gnus.cidx
  39
+	egrep -v "end{document}|label.*Index|chapter.*Index" gnus.latexi > gnus.tmplatexi
  40
+	cat postamble.latexi >> gnus.tmplatexi
  41
+	$(LATEX) gnus.tmplatexi 
  42
+	$(DVIPS) -f gnus.dvi > gnus.ps
30 43
 
31 44
 latexboth: gnus.latexi
32  
-	rm -f gnus-manual-a4.ps.gz gnus-manual-standard.ps.gz ; $(LATEX) gnus.latexi ; $(DVIPS) -f gnus.dvi > gnus-manual-a4.ps ; gzip gnus-manual-a4.ps ; sed 's/,a4paper//' gnus.latexi > gnus-standard.latexi ; $(LATEX) gnus.latexi ; $(DVIPS) -f gnus.dvi > gnus-manual-standard.ps ; gzip gnus-manual-standard.ps 
  45
+	rm -f gnus-manual-a4.ps.gz gnus-manual-standard.ps.gz 
  46
+	$(LATEX) gnus.latexi ; $(DVIPS) -f gnus.dvi > gnus-manual-a4.ps 
  47
+	gzip gnus-manual-a4.ps 
  48
+	 sed 's/,a4paper//' gnus.latexi > gnus-standard.latexi 
  49
+	$(LATEX) gnus.latexi 
  50
+	$(DVIPS) -f gnus.dvi > gnus-manual-standard.ps 
  51
+	gzip gnus-manual-standard.ps 
48  texi/gnus.texi
... ...
@@ -1,6 +1,4 @@
1  
-@tex
2 1
 \input texinfo                  @c -*-texinfo-*-
3  
-@end tex
4 2
 
5 3
 @setfilename gnus.info
6 4
 @settitle September Gnus Manual
@@ -56,8 +54,8 @@
56 54
 \newcommand{\gnusampersand}{\&}
57 55
 \newcommand{\gnuspercent}{\%}
58 56
 \newcommand{\gnushash}{\#}
59  
-\newcommand{\gnushat}{\%}
60  
-\newcommand{\gnustilde}{\%}
  57
+\newcommand{\gnushat}{\symbol{"5E}}
  58
+\newcommand{\gnustilde}{\symbol{"7E}}
61 59
 \newcommand{\gnusless}{{$<$}}
62 60
 \newcommand{\gnusgreater}{{$>$}}
63 61
 
@@ -67,6 +65,7 @@
67 65
 }
68 66
 
69 67
 \newcommand{\gnuschapter}[1]{
  68
+\renewcommand{\gnussectionname}{}
70 69
 \chapter{#1}
71 70
 \renewcommand{\gnuschaptername}{#1}
72 71
 \thispagestyle{empty}
@@ -117,13 +116,6 @@
117 116
 }
118 117
 }{\end{list}}
119 118
 
120  
-\newlength{\headrulewidth}
121  
-\setlength{\headrulewidth}{\headtextwidth}
122  
-\addtolength{\headrulewidth}{-2.6ex}
123  
-\newlength{\headwrule}
124  
-\setlength{\headwrule}{\headrulewidth}
125  
-\addtolength{\headwrule}{-0ex}
126  
-
127 119
 \newpagestyle{gnus}%
128 120
 {
129 121
 {
@@ -132,24 +124,18 @@
132 124
 \hspace*{-2ex}
133 125
 \underline{
134 126
 \makebox[\headtextwidth]{
135  
-\hspace*{-2.1ex}
136  
-%\ifnum chapter=0\else
  127
+\hspace*{-2.3ex}
137 128
 \textbf{\arabic{chapter}.\arabic{section}}
138  
-%\fi
139 129
 \textbf{\gnussectionname\hfill\arabic{page}}
140 130
 }}
141  
-%\hspace*{-\headrulewidth}
142  
-%\raisebox{-3pt}{\rule{\headwrule}{0.5pt}}
143 131
 }
144 132
 \else
145 133
 {
146  
-\hspace*{-2.1cm}
  134
+\hspace*{-2.25cm}
147 135
 \underline{
148  
-\hspace*{-2ex}
  136
+\hspace*{-2.3ex}
149 137
 \makebox[\headtextwidth]{
150 138
 \textbf{\arabic{page}\hfill\gnuschaptername}
151  
-%\hspace*{-\headrulewidth}
152  
-%\raisebox{-3pt}{\rule{\headwrule}{0.5pt}}
153 139
 }}
154 140
 }
155 141
 \fi
@@ -282,6 +268,10 @@ luck.
282 268
 
283 269
 @iftex
284 270
 
  271
+@iflatex
  272
+\thispagestyle{empty}
  273
+@end iflatex
  274
+
285 275
 Gnus is the advanced, self-documenting, customizable, extensible
286 276
 unreal-time newsreader for GNU Emacs.  
287 277
 
@@ -357,6 +347,7 @@ and won't be released until February.  Confused?  You will be.
357 347
 * Contributors::        Oodles of people.  
358 348
 * New Features::        Pointers to some of the new stuff in Gnus.
359 349
 * Newest Features::     Features so new that they haven't been written yet.
  350
+* Censorship::          This manual has been censored.
360 351
 @end menu
361 352
 
362 353
 
@@ -764,6 +755,21 @@ up-to-the-second todo list is located, so if you're really curious, you
764 755
 could point your Web browser over that-a-way.
765 756
 
766 757
 
  758
+@node Censorship
  759
+@section Censorship
  760
+@cindex censorship
  761
+
  762
+This version of the Gnus manual (as well as Gnus itself) has been
  763
+censored in accord with the Communications Decency Act.  This law was
  764
+described by its proponents as a ban on pornography---which was a
  765
+deception, since it prohibits far more than that.  This manual did not
  766
+contain pornography, but part of it was prohibited nonetheless.
  767
+
  768
+For information on US government censorship of the Internet, and
  769
+what you can do to bring back freedom of the press, see the web
  770
+site @samp{http://www.vtw.org/}.
  771
+
  772
+
767 773
 @node Terminology
768 774
 @chapter Terminology
769 775
 
@@ -1400,7 +1406,7 @@ ticked articles, in @samp{alt.fan.andrea-dworkin} (see that little
1400 1406
 asterisk at the beginning of the line?)
1401 1407
 
1402 1408
 @vindex gnus-group-line-format
1403  
-You can fuck that up to your heart's delight by fiddling with the
  1409
+You can change that format to whatever you want by fiddling with the
1404 1410
 @code{gnus-group-line-format} variable.  This variable works along the
1405 1411
 lines of a @code{format} specification, which is pretty much the same as
1406 1412
 a @code{printf} specifications, for those of you who use (feh!) C.

0 notes on commit bf9b4cc

Please sign in to comment.
Something went wrong with that request. Please try again.