Xref: utzoo alt.sources:3734 gnu.emacs.sources:316 gnu.emacs.gnus:1419
Path: utzoo!utgpu!cs.utexas.edu!uunet!mcsun!hp4nl!mhres!squirrel!pronto!jv
From: jv@mh.nl (Johan Vromans)
Newsgroups: alt.sources,gnu.emacs.sources,gnu.emacs.gnus
Subject: Re: MD4 support for GNUS (add-hook function)
Message-ID: <1991May13.073831.18756@pronto.mh.nl>
Date: 13 May 91 07:38:31 GMT
References: <1991May11.143132.2114@pronto.mh.nl>
Sender: jv@pronto.mh.nl (Johan Vromans)
Reply-To: Johan Vromans <jv@mh.nl>
Organization: Multihouse Automation, the Netherlands
Lines: 57
In-Reply-To: jv@mh.nl's message of Sat, 11 May 91 14:31:32 GMT
X-Md4-Signature: a28cf3a43fcb67926edad54c94bbc08a

In article <1991May11.143132.2114@pronto.mh.nl> jv@mh.nl (Johan Vromans) writes:

   This file defines the functions to have automatic validation and
   insertion of MD4 signatures using GNUS.

To use this, you also need the function add-hook. Here it is --

#!/bin/sh
# This is a shell archive (produced by shar 3.49)
# To extract the files from this archive, save it to a file, remove
# everything above the "!/bin/sh" line above, and type "sh file_name".
#
# made 05/13/1991 07:36 UTC by jv@largo
# Source directory /u1/users/jv
#
# existing files will NOT be overwritten unless -c is specified
#
# This shar contains:
# length  mode       name
# ------ ---------- ------------------------------------------
#    625 -rw-r--r-- add-hook.el
#
# ============= add-hook.el ==============
if test -f 'add-hook.el' -a X"$1" != X"-c"; then
	echo 'x - skipping add-hook.el (File already exists)'
else
echo 'x - extracting add-hook.el (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'add-hook.el' &&
X;; add-hook function by Dan LaLiberte <liberte@cs.uiuc.edu>
X(defun add-hook (hook-var hook-function)
X  "Prepend to the value of HOOK-VAR the function HOOK-FUNCTION, if it
Xis not already an element.
Xhook-var's value may be a single function or a list of functions."
X  (if (boundp hook-var)
X      (let ((value (symbol-value hook-var)))
X	(if (and (listp value) (not (eq (car value) 'lambda)))
X	    (and (not (memq hook-function value))
X		 (set hook-var
X		      (cons hook-function value)))
X	  (and (not (eq hook-function value))
X	       (set hook-var
X		    (list hook-function value)))))
X    (set hook-var hook-function)
X    ))
SHAR_EOF
chmod 0644 add-hook.el ||
echo 'restore of add-hook.el failed'
Wc_c="`wc -c < 'add-hook.el'`"
test 625 -eq "$Wc_c" ||
	echo 'add-hook.el: original size 625, current size' "$Wc_c"
fi
exit 0
-- 
Johan Vromans				       jv@mh.nl via internet backbones
Multihouse Automatisering bv		       uucp: ..!{uunet,hp4nl}!mh.nl!jv
Doesburgweg 7, 2803 PL Gouda, The Netherlands  phone/fax: +31 1820 62911/62500
------------------------ "Arms are made for hugging" -------------------------