Mercurial > emacs

comparison lisp/gnus-ems.el @ 14532:c64e2c0786c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
File censored.
author Richard M. Stallman <rms@gnu.org>
date Fri, 09 Feb 1996 20:50:48 +0000
parents a908a5d8a25d
children 3b35955bd412
comparison
equal deleted inserted replaced
14531:47ced2dc4bf6 14532:c64e2c0786c3
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02111-1307, USA.
24 24
25 ;;; Commentary: 25 ;;; Commentary:
26
27 ;;; This file has been censored by the Communications Decency Act.
28 ;;; That law was passed under the guise of a ban on pornography, but
29 ;;; it bans far more than that. This file did not contain pornograpy,
30 ;;; but it was censored nonetheless.
31
32 ;;; For information on US government censorship of the Internet, and
33 ;;; what you can do to bring back freedom of the press, see the web
34 ;;; site http://www.vtw.org/
26 35
27 ;;; Code: 36 ;;; Code:
28 37
29 (defvar gnus-mouse-2 [mouse-2]) 38 (defvar gnus-mouse-2 [mouse-2])
30 (defvar gnus-group-mode-hook ()) 39 (defvar gnus-group-mode-hook ())
412 (add-text-properties 421 (add-text-properties
413 b (1+ b) (list 'gnus-number gnus-reffed-article-number 422 b (1+ b) (list 'gnus-number gnus-reffed-article-number
414 'gnus-mark gnus-unread-mark 423 'gnus-mark gnus-unread-mark
415 'gnus-level 0 424 'gnus-level 0
416 'gnus-pseudo (car pslist))) 425 'gnus-pseudo (car pslist)))
417 ;; Fucking XEmacs redisplay bug with truncated lines. 426 ;; Fire-trucking XEmacs redisplay bug with truncated lines.
418 (goto-char b) 427 (goto-char b)
419 (sit-for 0) 428 (sit-for 0)
420 ;; Grumble.. Fucking XEmacs stickiness of text properties. 429 ;; Grumble.. fire-trucking XEmacs stickiness of text properties.
421 (remove-text-properties 430 (remove-text-properties
422 (1+ b) (1+ (gnus-point-at-eol)) 431 (1+ b) (1+ (gnus-point-at-eol))
423 '(gnus-number nil gnus-mark nil gnus-level nil)) 432 '(gnus-number nil gnus-mark nil gnus-level nil))
424 (forward-line -1) 433 (forward-line -1)
425 (gnus-sethash (int-to-string gnus-reffed-article-number) 434 (gnus-sethash (int-to-string gnus-reffed-article-number)