From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/56306
Path: main.gmane.org!not-for-mail
From: Jesper Harder <harder@ifa.au.dk>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Crypto problems again
Date: Fri, 06 Feb 2004 02:47:43 +0100
Sender: ding-owner@lists.math.uh.edu
Message-ID: <m3smhp7zcw.fsf@defun.localdomain>
References: <m31xpd2wc1.fsf@quimbies.gnus.org>
NNTP-Posting-Host: deer.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1076032210 8669 80.91.224.253 (6 Feb 2004 01:50:10 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Fri, 6 Feb 2004 01:50:10 +0000 (UTC)
Original-X-From: ding-owner+M4846@lists.math.uh.edu Fri Feb 06 02:49:56 2004
Return-path: <ding-owner+M4846@lists.math.uh.edu>
Original-Received: from malifon.math.uh.edu ([129.7.128.13])
	by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1Aov80-0005D2-00
	for <ding-account@gmane.org>; Fri, 06 Feb 2004 02:49:56 +0100
Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu)
	by malifon.math.uh.edu with smtp (Exim 3.20 #1)
	id 1Aov7S-0000lj-00; Thu, 05 Feb 2004 19:49:22 -0600
Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix)
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 1Aov7O-0000le-00
	for ding@lists.math.uh.edu; Thu, 05 Feb 2004 19:49:18 -0600
Original-Received: from pfepc.post.tele.dk (pfepc.post.tele.dk [195.41.46.237])
	by justine.libertine.org (Postfix) with ESMTP id 86A6E3A0042
	for <ding@gnus.org>; Thu,  5 Feb 2004 19:49:17 -0600 (CST)
Original-Received: from [195.249.83.1] (0xc3f95301.esnxr2.ras.tele.dk [195.249.83.1])
	by pfepc.post.tele.dk (Postfix) with ESMTP id 951BE262962
	for <ding@gnus.org>; Fri,  6 Feb 2004 02:49:15 +0100 (CET)
Original-To: ding@gnus.org
Mail-Followup-To: ding@gnus.org
In-Reply-To: <m31xpd2wc1.fsf@quimbies.gnus.org> (Lars Magne Ingebrigtsen's
 message of "Mon, 02 Feb 2004 19:02:54 +0100")
User-Agent: Gnus/5.110002 (No Gnus v0.2) Emacs/21.3.50 (gnu/linux)
Precedence: bulk
Xref: main.gmane.org gmane.emacs.gnus.general:56306
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:56306

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Most of the crypto code was added post Gnus 5.9, so there might not
> be all that much to remove, but I'm not intimately familiar with the
> crypto code.

How about a `defcripple' macro?

(defvar cripple nil)

(defmacro defcripple (&rest body)
  (if cripple
      `(defun ,(car body) ,(cadr body)
	 (error "This software has been crippled according to US export regulations.
If you are a non-US citizen you can get the good stuff at http://crypto.foo"))
    `(defun ,@body)))

We use `defcripple' rather than `defun' for all crypto functions, and
when it's time to include in Emacs proper, we just set cripple to t
and macroexpand the defcripple forms.  Voila, no crypto code.