+Wed Jun 19 16:58:21 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus.el: Gnus v5.2.21 is released.
+
+Wed Jun 19 15:39:09 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus-picon.el (gnus-picons-glyph-alist): New variable.
+ (gnus-picons-try-to-find-face): Use it.
+ (gnus-picons-close): New function.
+
+ * gnus.el (gnus-group-set-mode-line): After saving the .newsrc,
+ mark the group buffer as unmodified.
+ (gnus-group-name-to-method): New function.
+ (gnus-read-move-group-name): Use it.
+ (gnus-info-nodes): Add more modes.
+ (gnus-windows-old-to-new): Would produce invalid configurations.
+
+Wed Jun 19 15:36:35 1996 Philippe Troin <ptroin@compass-da.com>
+
+ * gnus-score.el (gnus-score-load-file): Would bug out on
+ directories not ending with a /.
+
+Wed Jun 19 14:46:42 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus.el (gnus-article-mode-map): Bind `<' and `>'.
+ (gnus-group-expire-articles): Close group after expiring.
+
+ * gnus-xmas.el (gnus-xmas-redefine): Don't do the mode-line things
+ for XEmacs 19.13.
+
+Wed Jun 19 14:09:21 1996 Chuck Thompson <cthomp@xemacs.org>
+
+ * gnus-xmas.el (gnus-xmas-summary-recenter): Removed the
+ `sit-for'.
+
+Wed Jun 19 13:15:05 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus-picon.el (gnus-picons-get-maximum-picons): Removed.
+ (gnus-picons-file-suffixes): New variable.
+ (gnus-picons-try-suffixes): New substs.
+ (gnus-article-display-picons): Would sometimes insert double
+ picons.
+ (gnus-picons-try-to-find-face): Insert some air.
+ (gnus-picons-insert-face-if-exists): Don't stat so many files.
+
+Tue Jun 18 18:40:36 1996 Lars Magne Ingebrigtsen <larsi@eistla.ifi.uio.no>
+
+ * gnus.el: Gnus v5.2.20 is released.
+
Tue Jun 18 12:24:34 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
* gnus-xmas.el (gnus-xmas-group-startup-message): Fix mode line.
(gnus-group-line-format-alist): Let N have its old definition.
(gnus-group-catchup-group-hook): New variable.
(gnus-group-catchup): Use it.
- (gnus-group-remove-mark): Gi\ No newline at end of file
+ (gnus-group-remove-mark): Give a useful return value.
+ (gnus-group-kill-group): Would bug out when killing lots of dead
+ groups.
+
+Thu Jan 25 09:32:19 1996 Jack Vinson <jvinson@cheux.ecs.umass.edu>
+
+ * gnus.el (gnus-group-insert-group-line) : Changed "header" to
+ "gnus-tmp-header" for parameter that gets passed to user
+ functions. Set to the group name, but may not necessarily want
+ this.
+ (gnus-group-set-mode-line) : ditto, gnus-tmp-header set to nil.
+ (gnus-set-mode-line) : ditto, gnus-tmp-header set to nil.
+
+Fri Jan 26 07:47:59 1996 Lars Magne Ingebrigtsen <larsi@eistla.ifi.uio.no>
+
+ * gnus.el (gnus): Goto the first unread group.
+
+ * gnus.el: 0.32 is released.
+
+Thu Jan 25 18:27:03 1996 Lars Ingebrigtsen <lars@eyesore.no>
+
+ * gnus.el: Autoload `gnus-group-highlight-line'.
+
+ * gnus-vis.el (gnus-article-highlight-headers): Wrap the regexp in
+ parentheses.
+
+ * nnmbox.el (nnmbox-request-group): Don't bug out on non-existant
+ groups.
+ * nnbabyl.el (nnbabyl-request-group): Ditto.
+ (nnbabyl-possibly-change-newsgroup): Return t.
+
+ * gnus.el (gnus-group-insert-group-line): Define gnus-tmp-header.
+
+ * gnus-msg.el (gnus-mail-parse-comma-list): New function.
+ (gnus-mail-reply): Use it.
+ (gnus-mail-reply): Merge follow-to headers.
+
+ * gnus-score.el (gnus-summary-score-map): New implementation.
+
+ * gnus.el (gnus-summary-exit): Remove articles before updating.
+ (gnus-summary-next-article): Accept a param to force slightly.
+
+Thu Jan 25 08:41:44 1996 Lars Magne Ingebrigtsen <larsi@eistla.ifi.uio.no>
+
+ * nnml.el (nnml-deletable-article-p): Always responed with nil.
+
+Thu Jan 25 08:45:52 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus.el: 0.31 is released.
+
+ * nnmail.el (nnmail-insert-lines): Would return negative lines
+ numbers.
+
+ * gnus-xmas.el (gnus-xmas-extent-start-open): New function.
+
+ * gnus-topic.el (gnus-topic-insert-topic-line): Remove excess
+ properties.
+
+ * gnus-xmas.el (gnus-xmas-topic-remove-excess-properties): New
+ function.
+
+Thu Jan 25 07:34:05 1996 Lars Magne Ingebrigtsen <larsi@eistla.ifi.uio.no>
+
+ * gnus-ems.el (gnus-extent-detached-p): New alias.
+
+ * gnus-xmas.el (gnus-xmas-find-glyph-directory): Changed from
+ "etc" to "etc/gnus".
+
+Tue Jan 23 13:40:35 1996 Lars Ingebrigtsen <lars@eyesore.no>
+
+ * gnus-score.el (gnus-score-make-menu-bar): New function.
+ (gnus-score-menu-hook): New variable.
+
+ * gnus-vis.el (gnus-article-next-button): Move point.
+
+ * nndoc.el (nndoc-type-alist): Recognize ends of digests.
+ (nndoc-retrieve-headers): Don't bug out on non-existant articles.
+
+ * gnus-msg.el (gnus-mail-buffer): Renamed.
+
+ * gnus-cache.el (gnus-cache-possibly-remove-articles): Check some
+ more.
+
+ * nnmail.el (nnmail-insert-lines): Off by 1.
+
+ * nnml.el (nnml-deletable-article-p): Check for file writability.
+ * nnmh.el (nnml-deletable-article-p): Ditto.
+
+ * gnus-msg.el (gnus-associate-buffer-with-draft): Allow
+ disabling.
+ (gnus-use-draft): New variable.
+
+ * gnus.el (gnus-summary-move-article): Use `move' action by
+ default.
+
+ * nnmail.el (nnmail-get-split-group): Be more restrictive in
+ selecting procmail spools.
+ (nnmail-get-spool-files): Don't return the spool file when doing a
+ single procmail file.
+
+ * gnus.el (gnus-summary-move-article): Allow moving to the same
+ group.
+
+ * gnus-score.el (gnus-score-pretty-print): New command and
+ keystroke.
+ (gnus-summary-increase-score): Would always bug out.
+ (gnus-score-edit-done): Change windows before loading score file.
+
+ * gnus.el (gnus-summary-reparent-thread): Rethread after
+ reparenting.
+
+ * gnus-xmas.el (gnus-xmas-make-overlay): Don't make extents
+ undetachable.
+
+ * nndoc.el (nndoc-post-type): New variable.
+
+Tue Jan 23 13:39:11 1996 Eberhard Mattes <mattes@azu.informatik.uni-stuttgart.de>
+
+ * nndoc.el (nndoc-request-type): New function.
+
+Tue Jan 23 00:13:10 1996 Lars Ingebrigtsen <lars@eyesore.no>
+
+ * gnus.el (gnus-group-group-indentation): New function.
+ (gnus-group-update-group-line): Use it.
+ (gnus-group-update-group): Indent.
+
+ * gnus-topic.el (gnus-topic-hide-subtopics): Removed variable.
+ (gnus-topic-prepare-topic): Indent group lines.
+ (gnus-topic-yank-group): Indent groups.
+
+ * gnus.el (gnus-group-update-hook): New variable.
+ (gnus-group-insert-group-line): Use it.
+
+ * gnus-vis.el (gnus-group-highlight-line): New function.
+
+ * gnus.el (gnus-group-entry): New macro.
+
+ * gnus-vis.el (gnus-group-highlight): New variable.
+
+ * gnus-topic.el (gnus-topic-insert-topic-line): Would show "..."
+ too often.
+ (gnus-topic-indent): Don't move point.
+ (gnus-topic-unindent): Ditto.
+ (gnus-topic-prepare-topic): Display unread articles in sub-topics.
+
+ * nnsoup.el (nnsoup-next-prefix): New function.
+ (nnsoup-read-areas): Use it.
+
+ * gnus-soup.el (gnus-soup-set-area-prefix): New macro.
+
+ * nnsoup.el (nnsoup-tmp-directory): New directory.
+ (nnsoup-write-active-file): Save it.
+ (nnsoup-unpack-packets): Use it.
+
+ * gnus-msg.el (gnus-dissociate-buffer-from-draft): New command and
+ keystroke.
+
+ * gnus.el (gnus-group-list-groups): Goto last group if at eob.
+
+ * gnus-topic.el (gnus-topic-mode): Use it.
+ (gnus-topic-goto-next-group): New function.
+
+ * gnus.el (gnus-group-list-groups): Allow positioning point in
+ topic buffers.
+ (gnus-group-goto-next-group-function): New internal variable.
+
+ * nnsoup.el (nnsoup-read-active-file): Give a proper return
+ value.
+
+ * gnus.el (gnus-start-news-server): Give a better error message.
+
+Mon Jan 21 23:34:55 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * gnus-mh.el (gnus-mh-mail-setup): It didn't work when pressing
+ `R' or yanking because of lack of setting to variable
+ `mail-reply-buffer' and mh-sent-from-folder buffer local variable
+ `mh-show-buffer'.
+
+Mon Jan 22 02:58:42 1996 Lars Ingebrigtsen <lars@eyesore.no>
+
+ * nntp.el (nntp-open-server-internal): Make sure that the server
+ was successfully opened.
+
+ * gnus.el (gnus-read-active-file): Wouldn't activate properly.
+ (gnus-read-active-file): Ignore errors from the archive server.
+
+ * nnbabyl.el (nnbabyl-request-group): Ditto.
+
+ * nnmbox.el (nnmbox-request-group): Would bug out.
+
+Sat Jan 20 20:39:03 1996 Steven L. Baur <steve@miranova.com>
+
+ * nnmbox.el (nnmbox-read-mbox): find-file-noselect ->
+ nnheader-find-file-noselect.
+
+Mon Jan 22 01:15:52 1996 Lars Ingebrigtsen <lars@eyesore.no>
+
+ * gnus.el (gnus-group-mark-buffer): Optional param.
+
+ * nnsoup.el (nnsoup-request-expire-articles): Message more.
+ (nnsoup-read-active-file): Add proper active info.
+ (nnsoup-request-group): New implementation.
+ (nnsoup-request-list): Ditto.
+
+Sun Jan 21 08:22:47 1996 Lars Ingebrigtsen <lars@eyesore.no>
+
+ * gnus.el (gnus-request-article-this-buffer): Update sparse
+ articles.
+ (gnus-data-set-number): New macro.
+ (gnus-summary-update-article): Use it.
+
+Sun Jan 21 03:54:18 1996 Lars Magne Ingebrigtsen <larsi@eistla.ifi.uio.no>
+
+ * gnus-soup.el (gnus-soup-add-article): Don't save canceled
+ articles.
+
"Command to convert the x-face header into a xbm file."
)
-(defvar gnus-picons-get-maximum-picons t
- "*If non-nil, display all picons that apply to the article.
-If this is nil, use just the \"best\" (or most relevant) picon.")
+(defvar gnus-picons-file-suffixes
+ (when (featurep 'x)
+ (let ((types (list "xbm")))
+ (when (featurep 'gif)
+ (push "gif" types))
+ (when (featurep 'xpm)
+ (push "xpm" types))
+ types))
+ "List of suffixes on picon file names to try.")
+
+;;; Internal variables.
(defvar gnus-group-annotations nil)
(defvar gnus-article-annotations nil)
gnus-picons-display-where)))
(gnus-add-current-to-buffer-list)
(goto-char (point-min))
- (let ((iconpoint (point))
- buffer-read-only)
+ (let (buffer-read-only)
(unless (looking-at "$")
- (insert "\n")
- (forward-line -1))
+ (open-line 1))
;; append the annotation to gnus-article-annotations for deletion.
(setq gnus-x-face-annotations
(append
- (gnus-picons-try-to-find-face
- gnus-picons-x-face-file-name iconpoint)
+ (gnus-picons-try-to-find-face gnus-picons-x-face-file-name)
gnus-x-face-annotations)))
;; delete the tmp file
(delete-file gnus-picons-x-face-file-name)))
(concat
(file-name-as-directory
gnus-picons-database) pathpart)
- (concat hostpath username)
- (point))
+ (concat hostpath username))
gnus-article-annotations)))
gnus-picons-user-directories)
(mapcar (lambda (pathpart)
(gnus-picons-insert-face-if-exists
(concat (file-name-as-directory
gnus-picons-database) pathpart)
- (concat hostpath "unknown")
- (point))
+ (concat hostpath))
gnus-article-annotations)))
gnus-picons-domain-directories)
- (add-hook 'gnus-summary-exit-hook 'gnus-picons-remove-all)
- ))))
+ (add-hook 'gnus-summary-exit-hook 'gnus-picons-remove-all)))))
(defun gnus-group-display-picons ()
"Display icons for the group in the gnus-picons-display-where buffer."
gnus-picons-news-directory)
(concat (replace-in-string gnus-newsgroup-name "\\." "/")
"/unknown")
- (point) t))
+ t))
(add-hook 'gnus-summary-exit-hook 'gnus-picons-remove-all))))
-(defun gnus-picons-insert-face-if-exists (path filename ipoint &optional rev)
+(defsubst gnus-picons-try-suffixes (file)
+ (let ((suffixes gnus-picons-file-suffixes)
+ f)
+ (while (and suffixes
+ (not (file-exists-p (setq f (concat file (pop suffixes))))))
+ (setq f nil))
+ f))
+
+(defun gnus-picons-insert-face-if-exists (path filename &optional rev)
"Inserts a face at point if I can find one"
- (let ((file (concat path "/" filename))
- (xpm (if (featurep 'xpm) "xpm" "xbm"))
+ (let ((files (message-tokenize-header filename "/"))
picons found)
- (while (and (or (not found)
- gnus-picons-get-maximum-picons)
- (>= (length file) (length path)))
- (or (file-exists-p (setq found (concat file "/face." xpm)))
- (file-exists-p (setq found (concat file "/unknown/face." xpm)))
- (setq found nil))
- (when found
- (setq picons (nconc (gnus-picons-try-to-find-face found ipoint)
- picons)))
- (setq file (directory-file-name (file-name-directory file))))
+ (while (and files
+ (file-exists-p path))
+ (setq path (concat path "/" (pop files)))
+ (when (setq found
+ (or
+ (gnus-picons-try-suffixes (concat path "/face."))
+ (gnus-picons-try-suffixes (concat path "/unknown/face."))))
+ (setq picons (nconc (gnus-picons-try-to-find-face found)
+ picons))))
(nreverse picons)))
+
+(defvar gnus-picons-glyph-alist nil)
-(defun gnus-picons-try-to-find-face (path ipoint)
+(defun gnus-picons-try-to-find-face (path)
"If PATH exists, display it as a bitmap. Returns t if succedded."
- (when (file-exists-p path)
- (let ((gl (make-glyph path)))
- (set-glyph-face gl 'default)
- (list (make-annotation gl ipoint 'text)))))
+ (let ((glyph (cdr (assoc path gnus-picons-glyph-alist))))
+ (when (or glyph (file-exists-p path))
+ (unless glyph
+ (push (cons path (setq glyph (make-glyph path)))
+ gnus-picons-glyph-alist)
+ (set-glyph-face glyph 'default))
+ (nconc
+ (list (make-annotation glyph (point) 'text))
+ (when (eq major-mode 'gnus-article-mode)
+ (list (make-annotation " " (point) 'text)))))))
(defun gnus-picons-reverse-domain-path (str)
"a/b/c/d -> d/c/b/a"
(mapconcat 'identity (nreverse (message-tokenize-header str "/")) "/"))
+(gnus-add-shutdown 'gnus-picons-close 'gnus)
+
+(defun gnus-picons-close ()
+ "Shut down the picons."
+ (setq gnus-picons-glyph-alist nil))
+
(provide 'gnus-picon)
;;; gnus-picon.el ends here
gnus-tree-mode-map
"\r" gnus-tree-select-article
gnus-mouse-2 gnus-tree-pick-article
- "\C-?" gnus-tree-read-summary-keys)
+ "\C-?" gnus-tree-read-summary-keys
+
+ "\C-c\C-i" gnus-info-find-node)
(substitute-key-definition
'undefined 'gnus-tree-read-summary-keys gnus-tree-mode-map))
gnus-kill-files-directory))
(expand-file-name file))
file)
- (concat gnus-kill-files-directory file))))
+ (concat (file-name-as-directory gnus-kill-files-directory)
+ file))))
(cached (assoc file gnus-score-cache))
(global (member file gnus-internal-global-score-files))
lists alist)
"O" gnus-server-open-server
"C" gnus-server-close-server
"D" gnus-server-deny-server
- "R" gnus-server-remove-denials))
+ "R" gnus-server-remove-denials
+
+ "\C-c\C-i" gnus-info-find-node))
(defun gnus-server-mode ()
"Major mode for listing and editing servers.
"Q" gnus-browse-exit
"\C-c\C-c" gnus-browse-exit
"?" gnus-browse-describe-briefly
+
"\C-c\C-i" gnus-info-find-node))
(defun gnus-browse-make-menu-bar ()
;; Recenter only when requested. Suggested by popovich@park.cs.columbia.edu.
(when gnus-auto-center-summary
(let* ((height (if (fboundp 'window-displayed-height)
- (progn
- (sit-for 0)
- (window-displayed-height))
+ (window-displayed-height)
(- (window-height) 2)))
(top (cond ((< height 4) 0)
((< height 7) 1)
(fset 'gnus-group-remove-excess-properties
'gnus-xmas-group-remove-excess-properties)
(fset 'gnus-topic-remove-excess-properties
- 'gnus-xmas-topic-remove-excess-properties)))
+ 'gnus-xmas-topic-remove-excess-properties)
+ (fset 'gnus-mode-line-buffer-identification 'identity)
+ ))
;;; XEmacs logo and toolbar.
"gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
"The mail address of the Gnus maintainers.")
-(defconst gnus-version-number "5.2.20"
+(defconst gnus-version-number "5.2.21"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Gnus v%s" gnus-version-number)
(defvar gnus-info-nodes
'((gnus-group-mode "(gnus)The Group Buffer")
(gnus-summary-mode "(gnus)The Summary Buffer")
- (gnus-article-mode "(gnus)The Article Buffer"))
+ (gnus-article-mode "(gnus)The Article Buffer")
+ (gnus-server-mode "(gnus)The Server Buffer")
+ (gnus-browse-mode "(gnus)Browse Foreign Server")
+ (gnus-tree-mode "(gnus)Tree Display")
+ )
"Alist of major modes and related Info nodes.")
(defvar gnus-group-buffer "*Group*")
(or (not (numberp (nth i elem)))
(zerop (nth i elem))
(progn
- (setq perc (/ (float (nth 0 elem)) total))
+ (setq perc (if (= i 2)
+ 1.0
+ (/ (float (nth 0 elem)) total)))
(setq out (cons (if (eq pbuf (nth i types))
- (vector (nth i types) perc 'point)
- (vector (nth i types) perc))
+ (list (nth i types) perc 'point)
+ (list (nth i types) perc))
out))))
(setq i (1+ i)))
- (list (nreverse out)))))
+ `(vertical 1.0 ,@(nreverse out)))))
;;;###autoload
(defun gnus-add-configuration (conf)
(max-len 60)
gnus-tmp-header ;Dummy binding for user-defined formats
;; Get the resulting string.
+ (modified
+ (and gnus-dribble-buffer
+ (buffer-name gnus-dribble-buffer)
+ (buffer-modified-p gnus-dribble-buffer)
+ (save-excursion
+ (set-buffer gnus-dribble-buffer)
+ (not (zerop (buffer-size))))))
(mode-string (eval gformat)))
;; Say whether the dribble buffer has been modified.
(setq mode-line-modified
- (if (and gnus-dribble-buffer
- (buffer-name gnus-dribble-buffer)
- (buffer-modified-p gnus-dribble-buffer)
- (save-excursion
- (set-buffer gnus-dribble-buffer)
- (not (zerop (buffer-size)))))
- "---*- " "----- "))
+ (if modified "---*- " "----- "))
;; If the line is too long, we chop it off.
(when (> (length mode-string) max-len)
(setq mode-string (substring mode-string 0 (- max-len 4))))
(setq mode-line-buffer-identification
(gnus-mode-line-buffer-identification
(list mode-string)))
- (set-buffer-modified-p t))))))
+ (set-buffer-modified-p modified))))))
(defun gnus-group-group-name ()
"Get the name of the newsgroup on the current line."
(gnus-uncompress-sequence (cdr expirable)) group))
;; Just expire using the normal expiry values.
(gnus-request-expire-articles
- (gnus-uncompress-sequence (cdr expirable)) group)))))
+ (gnus-uncompress-sequence (cdr expirable)) group))))
+ (gnus-close-group group))
(gnus-message 6 "Expiring articles in %s...done" group)))
(gnus-group-position-point))))
gnus-newsgroup-name)))))
(method
(gnus-completing-read
- methname "What backend do you want to use when? "
+ methname "What backend do you want to use when respooling?"
methods nil t nil 'gnus-method-history))
ms)
(cond
(gnus-activate-group to-newsgroup)
(if (gnus-y-or-n-p (format "No such group: %s. Create it? "
to-newsgroup))
- (or (gnus-request-create-group to-newsgroup)
+ (or (gnus-request-create-group
+ to-newsgroup (gnus-group-name-to-method to-newsgroup))
(error "Couldn't create group %s" to-newsgroup)))
(error "No such group: %s" to-newsgroup)))
to-newsgroup))
"\r" gnus-article-press-button
"\t" gnus-article-next-button
"\M-\t" gnus-article-prev-button
+ "<" beginning-of-bnuffer
+ ">" end-of-bnuffer
"\C-c\C-b" gnus-bug)
(substitute-key-definition
(setcar (cdr entry) (concat (nth 1 entry) "+" group))
(nconc entry (cdr method))))
+(defun gnus-group-name-to-method (group)
+ "Return a select method suitable for GROUP."
+ (if (string-match ":" group)
+ (let ((server (substring group 0 (match-beginning 0))))
+ (if (string-match "\\+" server)
+ (list (intern (substring server 0 (match-beginning 0)))
+ (substring server (match-end 0)))
+ (list (intern server) "")))
+ gnus-select-method))
+
(defun gnus-find-method-for-group (group &optional info)
"Find the select method that GROUP uses."
(or gnus-override-method
;; We find out what the article number was.
(nntp-find-group-and-number)))
(nntp-decode-text)
- (nnheader-fold-continuation-lines)))
+ (save-excursion
+ (set-buffer nntp-server-buffer)
+ (nnheader-fold-continuation-lines))))
(deffoo nntp-request-stat (id &optional group server)
"Request STAT of article ID (Message-ID or number)."
+Wed Jun 19 16:30:55 1996 Lars Magne Ingebrigtsen <larsi@nipling.ifi.uio.no>
+
+ * gnus.texi (Censorship): Removed.
+
+Wed Jun 19 15:03:35 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus.texi (Group Levels): Addition.
+
Sun Jun 16 08:13:44 1996 Lars Magne Ingebrigtsen <lars@eyesore.no>
* gnus.texi (Saving Articles): Fix.
(@pxref{Listing Groups}), or to just check for new articles in groups on
a given level or lower (@pxref{Scanning New Messages}).
+Remember: The higher the level of the group, the less important it is.
+
@table @kbd
@item S l
* 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
could point your Web browser over that-a-way.
-@node Censorship
-@subsection 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
@section Terminology