annotate lisp/play/bruce.el @ 110410:f2e111723c3a

Merge changes made in Gnus trunk. Reimplement nnimap, and do tweaks to the rest of the code to support that. * gnus-int.el (gnus-finish-retrieve-group-infos) (gnus-retrieve-group-data-early): New functions. * gnus-range.el (gnus-range-nconcat): New function. * gnus-start.el (gnus-get-unread-articles): Support early retrieval of data. (gnus-read-active-for-groups): Support finishing the early retrieval of data. * gnus-sum.el (gnus-summary-move-article): Pass the move-to group name if the move is internal, so that nnimap can do fast internal moves. * gnus.el (gnus-article-special-mark-lists): Add uid/active tuples, for nnimap usage. * nnimap.el: Rewritten. * nnmail.el (nnmail-inhibit-default-split-group): New internal variable to allow the mail splitting to not return a default group. This is useful for nnimap, which will leave unmatched mail in the inbox. * utf7.el (utf7-encode): Autoload. Implement shell connection. * nnimap.el (nnimap-open-shell-stream): New function. (nnimap-open-connection): Use it. Get the number of lines by using BODYSTRUCTURE. (nnimap-transform-headers): Get the number of lines in each message. (nnimap-retrieve-headers): Query for BODYSTRUCTURE so that we get the number of lines. Not all servers return UIDNEXT. Work past this problem. Remove junk from end of file. Fix typo in "bogus" section. Make capabilties be case-insensitive. Require cl when compiling. Don't bug out if the LIST command doesn't have any parameters. 2010-09-17 Knut Anders Hatlen <[e-mail]> (tiny change) * nnimap.el (nnimap-get-groups): Don't bug out if the LIST command doesn't have any parameters. (mm-text-html-renderer): Document gnus-article-html. 2010-09-17 Julien Danjou <[e-mail]> (tiny fix) * mm-decode.el (mm-text-html-renderer): Document gnus-article-html. * dgnushack.el: Define netrc-credentials. If the user doesn't have a /etc/services, supply some sensible port defaults. Have `unseen-or-unread' select an unread unseen article first. (nntp-open-server): Return whether the open was successful or not. Throughout all files, replace (save-excursion (set-buffer ...)) with (with-current-buffer ... ). Save result so that it doesn't say "failed" all the time. Add ~/.authinfo to the default, since that's probably most useful for users. Don't use the "finish" method when we're reading from the agent. Add some more nnimap-relevant agent stuff to nnagent.el. * nnimap.el (nnimap-with-process-buffer): Removed. Revert one line that was changed by mistake in the last checkin. (nnimap-open-connection): Don't error out when we can't make a connection nnimap-related changes to avoid bugging out if we can't contact a server. * gnus-start.el (gnus-get-unread-articles): Don't try to scan groups from methods that are denied. * nnimap.el (nnimap-possibly-change-group): Return nil if we can't log in. (nnimap-finish-retrieve-group-infos): Make sure we're not waiting for nothing. * gnus-sum.el (gnus-select-newsgroup): Indent.

;;; bruce.el --- bruce phrase utility for overloading the Communications -*- no-byte-compile: t -*-
;;; Decency Act snoops, if any.

;; Copyright (C) 1988, 1993, 1997, 2001, 2002, 2003, 2004,
;;   2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.

;; Maintainer: FSF
;; Keywords: games
;; Created: Jan 1997

;; This file is part of GNU Emacs.

;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; This program was written to protest the miss-named "Communications
;; Decency Act of 1996. This Act bans "indecent speech", whatever that is,
;; from the Internet. For more on the CDA, see Richard Stallman's essay on
;; censorship, included in the etc directory of emacs distributions 19.34
;; and up. See also http://www.eff.org/blueribbon.html.

;; For many years, emacs has included a program called Spook. This program
;; adds a series of "keywords" to email just before it goes out. On the
;; theory that the NSA monitors people's email, the keywords would be
;; picked up by the NSA's snoop computers, causing them to waste time
;; reading your meeting schedule notices or other email boring to everyone
;; but you and (you hope) the recipient. See below (I left in the original
;; writeup when I made this conversion), or the emacs documentation at
;; ftp://prep.ai.mit.edu/pub/gnu/emacs-manual*.

;; Bruce is a direct copy of spook, with the word "spook" replaced with
;; the word "bruce". Thanks to "esr", whoever he, she or it may be, this
;; conversion was an extremely easy piece of editing, suitable for a first
;; essay at elisp programming.

;; You may think of the name as having been derived from a certain Monty
;; Python routine. Or from Lenny Bruce, who opposed censorship in his own
;; inimitable way. Bruce does exactly what Spook does: it throws keywords
;; into your email messages or other documents.

;; However, in order to comply with the CDA as interpreted by Richard
;; Stallman (see the essay on censorship), bruce is distributed without a
;; data file from which to select words at random. Sorry about that. I
;; believe the average user will be able to come up with a few words on
;; his or her own. If that is a problem, feel free to ask any American
;; teenager, preferably one who attends a government school. Failing
;; that, you might write to Mr. Clinton or Ms Reno or their successors and
;; ask them for suggestions. Think of it as a public spirited act: the
;; time they spend answering you is time not spent persecuting someone
;; else. However, do ask them to respond by snail mail, where their
;; suggestions would be legal.

;; To build the data file, just start a file called bruce.lines in the etc
;; directory of your emacs distribution. Note that each phrase or word has
;; to be followed by an ascii 0, control-@. See the file spook.lines in
;; the etc directory for an example. In emacs, use c-q c-@ to insert the
;; ascii 0s.

;; Once you have edited up a data file, you have to tell emacs how to find
;; the program bruce. Add the following two lines to your .emacs file. Be
;; sure to uncomment the second line.

;; for bruce mode
;; (autoload 'bruce "bruce" "Use the Bruce program to protest the CDA" t)

;; Shut down emacs and fire it up again. Then "M-x bruce" should put some
;; shocking words in the current buffer.


;; Please note that I am not suggesting that you actually use this program
;; to add "illegal" words to your email, or any other purpose. First, you
;; don't really need a program to do it, and second, it would be illegal
;; for me to suggest or advise that you actually break the law. This
;; program was written as a demonstration only, and as an act of political
;; protest and free expression protected by the First Amendment, or
;; whatever is left of it.


;; We now return to the original writeup for spook:

;; Steve Strassmann <[e-mail]> didn't write the
;; program spook, from which this was adapted, and even if he did, he
;; really didn't mean for you to use it in an anarchistic way.
;;
;; To use this:
;;  Just before sending mail, do M-x spook.
;;  A number of phrases will be inserted into your buffer, to help
;;  give your message that extra bit of attractiveness for automated
;;  keyword scanners.  Help defeat the NSA trunk trawler!

;;; Code:

(require 'cookie1)

; Variables
(defgroup bruce nil
  "Insert phrases selected at random from a file into a buffer."
  :prefix "bruce-"
  :group 'games)

(defcustom bruce-phrases-file "~/bruce.lines"
  "Keep your favourite phrases here."
  :type 'file
  :group 'bruce)

(defcustom bruce-phrase-default-count 15
  "Default number of phrases to insert."
  :type 'integer
  :group 'bruce)

;;;###autoload
(defun bruce ()
  "Adds that special touch of class to your outgoing mail."
  (interactive)
  (or (file-exists-p bruce-phrases-file)
      (error "You need to create %s" bruce-phrases-file))
  (cookie-insert bruce-phrases-file
		 bruce-phrase-default-count
		 "Checking authorization..."
		 "Checking authorization...Approved"))

;;;###autoload
(defun snarf-bruces ()
  "Return a vector containing the lines from `bruce-phrases-file'."
  (or (file-exists-p bruce-phrases-file)
      (error "You need to create %s" bruce-phrases-file))
  (cookie-snarf bruce-phrases-file
		"Checking authorization..."
		"Checking authorization...Approved"))

;; Note: the implementation that used to take up most of this file has been
;; cleaned up, generalized, gratuitously broken by esr, and now resides in
;; cookie1.el.

(provide 'bruce)

;; arch-tag: b83ded51-4ccb-41ef-8bd6-3b521e81dd9b
;;; bruce.el ends here