*** pub/sgnus/lisp/gnus-msg.el Fri Feb 9 22:47:30 1996 --- sgnus/lisp/gnus-msg.el Sun Feb 11 04:55:54 1996 *************** *** 214,220 **** (defvar gnus-signature-before-forwarded-message t "*If non-nil, put the signature before any included forwarded message.") ! (defvar gnus-forward-included-headers gnus-visible-headers "*Regexp matching headers to be included in forwarded messages.") (defvar gnus-required-headers --- 214,221 ---- (defvar gnus-signature-before-forwarded-message t "*If non-nil, put the signature before any included forwarded message.") ! (defvar gnus-forward-included-headers ! "^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:" "*Regexp matching headers to be included in forwarded messages.") (defvar gnus-required-headers *************** *** 539,545 **** mailing-list (when gnus-mailing-list-groups (string-match gnus-mailing-list-groups group)) group (gnus-group-real-name group))) ! (if (or to-group (and (gnus-news-group-p (or pgroup gnus-newsgroup-name) (if header (mail-header-number header) gnus-current-article)) --- 540,547 ---- mailing-list (when gnus-mailing-list-groups (string-match gnus-mailing-list-groups group)) group (gnus-group-real-name group))) ! (if (or (and to-group ! (gnus-news-group-p to-group)) (and (gnus-news-group-p (or pgroup gnus-newsgroup-name) (if header (mail-header-number header) gnus-current-article)) *************** *** 2683,2689 **** (when gcc (nnheader-remove-header "gcc") (widen) ! (setq groups (gnus-tokenize-header gcc " ")) ;; Copy the article over to some group(s). (while (setq group (pop groups)) (gnus-check-server --- 2685,2691 ---- (when gcc (nnheader-remove-header "gcc") (widen) ! (setq groups (gnus-tokenize-header gcc " ,")) ;; Copy the article over to some group(s). (while (setq group (pop groups)) (gnus-check-server *** pub/sgnus/lisp/gnus-topic.el Fri Feb 9 22:47:32 1996 --- sgnus/lisp/gnus-topic.el Fri Feb 9 23:20:12 1996 *************** *** 162,171 **** --- 162,173 ---- (while (setq entry (pop entries)) (when visiblep (if (stringp entry) + ;; Dead groups. (gnus-group-insert-group-line entry (if (member entry gnus-zombie-list) 8 9) nil (- (1+ (cdr (setq active (gnus-active entry)))) (car active)) nil) + ;; Living groups. (when (setq info (nth 2 entry)) (gnus-group-insert-group-line (gnus-info-group info) *** pub/sgnus/lisp/gnus-xmas.el Fri Feb 9 22:47:33 1996 --- sgnus/lisp/gnus-xmas.el Sun Feb 11 05:48:57 1996 *************** *** 302,308 **** (fset 'gnus-overlay-end 'extent-end-position) (fset 'gnus-extent-detached-p 'extent-detached-p) ! (fset 'set-text-properties 'gnus-xmas-set-text-properties) (fset 'nnheader-find-file-noselect 'gnus-xmas-find-file-noselect) --- 302,310 ---- (fset 'gnus-overlay-end 'extent-end-position) (fset 'gnus-extent-detached-p 'extent-detached-p) ! (require 'text-props) ! (if (< emacs-minor-version 14) ! (fset 'set-text-properties 'gnus-xmas-set-text-properties)) (fset 'nnheader-find-file-noselect 'gnus-xmas-find-file-noselect) *** pub/sgnus/lisp/gnus.el Fri Feb 9 22:47:36 1996 --- sgnus/lisp/gnus.el Sun Feb 11 04:55:50 1996 *************** *** 1684,1690 **** "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.37" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1684,1690 ---- "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.38" "Version number for this version of Gnus.") (defvar gnus-info-nodes *************** *** 5782,5801 **** (assq 'expire (gnus-info-marks info)))) (expiry-wait (gnus-group-get-parameter group 'expiry-wait))) (when expirable ! (setcdr expirable ! (gnus-compress-sequence ! (if expiry-wait ! (let ((nnmail-expiry-wait-function nil) ! (nnmail-expiry-wait expiry-wait)) ! (gnus-request-expire-articles ! (gnus-uncompress-sequence (cdr expirable)) group)) ! (gnus-request-expire-articles ! (gnus-uncompress-sequence (cdr expirable)) ! group))))) (gnus-message 6 "Expiring articles in %s...done" group))) (gnus-group-position-point)))) - (defun gnus-group-expire-all-groups () "Expire all expirable articles in all newsgroups." (interactive) --- 5782,5803 ---- (assq 'expire (gnus-info-marks info)))) (expiry-wait (gnus-group-get-parameter group 'expiry-wait))) (when expirable ! (setcdr ! expirable ! (gnus-compress-sequence ! (if expiry-wait ! ;; We set the expiry variables to the groupp ! ;; parameter. ! (let ((nnmail-expiry-wait-function nil) ! (nnmail-expiry-wait expiry-wait)) ! (gnus-request-expire-articles ! (gnus-uncompress-sequence (cdr expirable)) group)) ! ;; Just expire using the normal expiry values. ! (gnus-request-expire-articles ! (gnus-uncompress-sequence (cdr expirable)) group))))) (gnus-message 6 "Expiring articles in %s...done" group))) (gnus-group-position-point)))) (defun gnus-group-expire-all-groups () "Expire all expirable articles in all newsgroups." (interactive) *************** *** 10192,10198 **** (setq header "subject")) (when (not (equal "" subject)) (prog1 ! (let ((articles (gnus-summary-find-matching "subject" subject 'all))) (or articles (error "Found no matches for \"%s\"" subject)) (gnus-summary-limit articles)) (gnus-summary-position-point)))) --- 10194,10201 ---- (setq header "subject")) (when (not (equal "" subject)) (prog1 ! (let ((articles (gnus-summary-find-matching ! (or header "subject") subject 'all))) (or articles (error "Found no matches for \"%s\"" subject)) (gnus-summary-limit articles)) (gnus-summary-position-point)))) *************** *** 10322,10328 **** (unless (or (memq article gnus-newsgroup-dormant) (memq article gnus-newsgroup-marked)) (push (cons article gnus-catchup-mark) gnus-newsgroup-reads)))))) - (defun gnus-summary-limit (articles &optional pop) (if pop --- 10325,10330 ---- *** pub/sgnus/lisp/nnmail.el Fri Feb 9 22:47:36 1996 --- sgnus/lisp/nnmail.el Sat Feb 10 03:31:53 1996 *************** *** 313,320 **** "Convert DAYS into time." (let* ((seconds (* 1.0 days 60 60 24)) (rest (expt 2 16)) ! (ms (round (/ seconds rest)))) ! (list ms (round (- seconds (* ms rest)))))) (defun nnmail-time-since (time) "Return the time since TIME, which is either an internal time or a date." --- 313,322 ---- "Convert DAYS into time." (let* ((seconds (* 1.0 days 60 60 24)) (rest (expt 2 16)) ! (ms (condition-case nil (round (/ seconds rest)) ! (range-error (expt 2 16))))) ! (list ms (condition-case nil (round (- seconds (* ms rest))) ! (range-error (expt 2 16)))))) (defun nnmail-time-since (time) "Return the time since TIME, which is either an internal time or a date." *** pub/sgnus/lisp/ChangeLog Fri Feb 9 22:47:41 1996 --- sgnus/lisp/ChangeLog Sun Feb 11 06:13:06 1996 *************** *** 1,13 **** Fri Feb 9 09:56:45 1996 Lars Magne Ingebrigtsen * gnus-picon.el (gnus-picons-convert-x-face): Changed to use ! pbmplus, * gnus.el (gnus-buffer-configuration): One quote too many. * gnus-kill.el (gnus-execute): Allow searching bodies. * gnus.el (gnus-summary-execute-command): Accept "Body" searches. Fri Feb 9 09:44:04 1996 Lars Magne Ingebrigtsen --- 1,35 ---- + Sun Feb 11 04:49:16 1996 Mark Borges + + * gnus-xmas.el (gnus-xmas-define): Conditionally redefine + `set-text-properties'. + + Sun Feb 11 04:40:39 1996 Lars Ingebrigtsen + + * gnus.el (gnus-summary-limit-to-subject): Limit to any header. + + Sat Feb 10 03:26:10 1996 Lars Ingebrigtsen + + * nnmail.el (nnmail-days-to-time): Don't bug out on large + numbers. + + Fri Feb 9 22:17:55 1996 Lars Ingebrigtsen + + * gnus-msg.el (gnus-forward-included-headers): Include Message-ID + and References. + (gnus-post-news): Make sure the parent group is a news group. + Fri Feb 9 09:56:45 1996 Lars Magne Ingebrigtsen * gnus-picon.el (gnus-picons-convert-x-face): Changed to use ! pbmplus. * gnus.el (gnus-buffer-configuration): One quote too many. * gnus-kill.el (gnus-execute): Allow searching bodies. * gnus.el (gnus-summary-execute-command): Accept "Body" searches. + + * gnus.el: 0.37 is released. Fri Feb 9 09:44:04 1996 Lars Magne Ingebrigtsen *** pub/sgnus/texi/Makefile Fri Feb 9 22:47:44 1996 --- sgnus/texi/Makefile Sun Feb 11 08:38:01 1996 *************** *** 7,17 **** all: gnus.info refcard.dvi gnus.info: gnus.texi $(MAKEINFO) dvi: gnus.texi ! $(TEXI2DVI) gnus.texi refcard.dvi: refcard.tex $(LATEX) refcard.tex --- 7,20 ---- all: gnus.info refcard.dvi + most: texi2latexi.elc latex latexps + gnus.info: gnus.texi $(MAKEINFO) dvi: gnus.texi ! perl -n -e ' if (/@iflatex/) { $$latex=1; } if (!$$latex) { print; } if (/@end iflatex/) { $$latex=0; }' gnus.texi > gnus.tmptexi ! $(TEXI2DVI) gnus.tmptexi refcard.dvi: refcard.tex $(LATEX) refcard.tex *************** *** 22,32 **** makeinfo: makeinfo -o gnus.info gnus.texi latex: gnus.texi $(EMACS) -batch -q -no-site-file gnus.texi -l ./texi2latex.elc -f latexi-translate latexps: gnus.latexi ! $(LATEX) gnus.latexi ; $(DVIPS) -f gnus.dvi > gnus.ps latexboth: gnus.latexi ! 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 --- 25,51 ---- makeinfo: makeinfo -o gnus.info gnus.texi + texi2latexi.elc: + $(EMACS) -batch -l bytecomp -f batch-byte-recompile-directory + latex: gnus.texi $(EMACS) -batch -q -no-site-file gnus.texi -l ./texi2latex.elc -f latexi-translate latexps: gnus.latexi ! $(LATEX) gnus.latexi ! splitindex ! makeindex -o gnus.kind gnus.kidx ! makeindex -o gnus.cind gnus.cidx ! egrep -v "end{document}|label.*Index|chapter.*Index" gnus.latexi > gnus.tmplatexi ! cat postamble.latexi >> gnus.tmplatexi ! $(LATEX) gnus.tmplatexi ! $(DVIPS) -f gnus.dvi > gnus.ps latexboth: gnus.latexi ! 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 *** pub/sgnus/texi/gnus.texi Fri Feb 9 22:47:44 1996 --- sgnus/texi/gnus.texi Sun Feb 11 08:40:54 1996 *************** *** 1,6 **** - @tex \input texinfo @c -*-texinfo-*- - @end tex @setfilename gnus.info @settitle September Gnus Manual --- 1,4 ---- *************** *** 56,63 **** \newcommand{\gnusampersand}{\&} \newcommand{\gnuspercent}{\%} \newcommand{\gnushash}{\#} ! \newcommand{\gnushat}{\%} ! \newcommand{\gnustilde}{\%} \newcommand{\gnusless}{{$<$}} \newcommand{\gnusgreater}{{$>$}} --- 54,61 ---- \newcommand{\gnusampersand}{\&} \newcommand{\gnuspercent}{\%} \newcommand{\gnushash}{\#} ! \newcommand{\gnushat}{\symbol{"5E}} ! \newcommand{\gnustilde}{\symbol{"7E}} \newcommand{\gnusless}{{$<$}} \newcommand{\gnusgreater}{{$>$}} *************** *** 67,72 **** --- 65,71 ---- } \newcommand{\gnuschapter}[1]{ + \renewcommand{\gnussectionname}{} \chapter{#1} \renewcommand{\gnuschaptername}{#1} \thispagestyle{empty} *************** *** 117,129 **** } }{\end{list}} - \newlength{\headrulewidth} - \setlength{\headrulewidth}{\headtextwidth} - \addtolength{\headrulewidth}{-2.6ex} - \newlength{\headwrule} - \setlength{\headwrule}{\headrulewidth} - \addtolength{\headwrule}{-0ex} - \newpagestyle{gnus}% { { --- 116,121 ---- *************** *** 132,155 **** \hspace*{-2ex} \underline{ \makebox[\headtextwidth]{ ! \hspace*{-2.1ex} ! %\ifnum chapter=0\else \textbf{\arabic{chapter}.\arabic{section}} - %\fi \textbf{\gnussectionname\hfill\arabic{page}} }} - %\hspace*{-\headrulewidth} - %\raisebox{-3pt}{\rule{\headwrule}{0.5pt}} } \else { ! \hspace*{-2.1cm} \underline{ ! \hspace*{-2ex} \makebox[\headtextwidth]{ \textbf{\arabic{page}\hfill\gnuschaptername} - %\hspace*{-\headrulewidth} - %\raisebox{-3pt}{\rule{\headwrule}{0.5pt}} }} } \fi --- 124,141 ---- \hspace*{-2ex} \underline{ \makebox[\headtextwidth]{ ! \hspace*{-2.3ex} \textbf{\arabic{chapter}.\arabic{section}} \textbf{\gnussectionname\hfill\arabic{page}} }} } \else { ! \hspace*{-2.25cm} \underline{ ! \hspace*{-2.3ex} \makebox[\headtextwidth]{ \textbf{\arabic{page}\hfill\gnuschaptername} }} } \fi *************** *** 282,287 **** --- 268,277 ---- @iftex + @iflatex + \thispagestyle{empty} + @end iflatex + Gnus is the advanced, self-documenting, customizable, extensible unreal-time newsreader for GNU Emacs. *************** *** 357,362 **** --- 347,353 ---- * Contributors:: Oodles of people. * New Features:: Pointers to some of the new stuff in Gnus. * Newest Features:: Features so new that they haven't been written yet. + * Censorship:: This manual has been censored. @end menu *************** *** 764,769 **** --- 755,775 ---- could point your Web browser over that-a-way. + @node Censorship + @section Censorship + @cindex censorship + + This version of the Gnus manual (as well as Gnus itself) has been + censored in accord with the Communications Decency Act. This law was + described by its proponents as a ban on pornography---which was a + deception, since it prohibits far more than that. This manual did not + contain pornography, but part of it was prohibited nonetheless. + + For information on US government censorship of the Internet, and + what you can do to bring back freedom of the press, see the web + site @samp{http://www.vtw.org/}. + + @node Terminology @chapter Terminology *************** *** 1400,1406 **** asterisk at the beginning of the line?) @vindex gnus-group-line-format ! You can fuck that up to your heart's delight by fiddling with the @code{gnus-group-line-format} variable. This variable works along the lines of a @code{format} specification, which is pretty much the same as a @code{printf} specifications, for those of you who use (feh!) C. --- 1406,1412 ---- asterisk at the beginning of the line?) @vindex gnus-group-line-format ! You can change that format to whatever you want by fiddling with the @code{gnus-group-line-format} variable. This variable works along the lines of a @code{format} specification, which is pretty much the same as a @code{printf} specifications, for those of you who use (feh!) C. *** pub/sgnus/texi/ChangeLog Fri Feb 9 22:47:42 1996 --- sgnus/texi/ChangeLog Sun Feb 11 05:39:58 1996 *************** *** 1,3 **** --- 1,7 ---- + Sun Feb 11 04:39:52 1996 Lars Magne Ingebrigtsen + + * gnus.texi (Censorship): New. + Thu Feb 8 17:34:33 1996 Lars Ingebrigtsen * gnus.texi (Topic Commands): Addition.