Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-def.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 364816949b59
children fe104dbd9147
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
1 ;;; tm-def.el --- definition module for tm 1 ;;; tm-def.el --- definition module for tm
2 2
3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Version: $Id: tm-def.el,v 1.3 1997/01/30 02:22:47 steve Exp $ 6 ;; Version: $Id: tm-def.el,v 1.4 1997/02/15 22:21:26 steve Exp $
7 ;; Keywords: mail, news, MIME, multimedia, definition 7 ;; Keywords: mail, news, MIME, multimedia, definition
8 8
9 ;; This file is part of tm (Tools for MIME). 9 ;; This file is part of tm (Tools for MIME).
10 10
11 ;; This program is free software; you can redistribute it and/or 11 ;; This program is free software; you can redistribute it and/or
166 (call-interactively browse-url-browser-function)) 166 (call-interactively browse-url-browser-function))
167 (if (fboundp tm:mother-button-dispatcher) 167 (if (fboundp tm:mother-button-dispatcher)
168 (call-interactively tm:mother-button-dispatcher) 168 (call-interactively tm:mother-button-dispatcher)
169 ) 169 )
170 )) 170 ))
171
172
173 ;;; @ PGP
174 ;;;
175
176 (defvar pgp-function-alist
177 '(
178 ;; for tm-pgp
179 (verify mc-verify "mc-toplev")
180 (decrypt mc-decrypt "mc-toplev")
181 (fetch-key mc-pgp-fetch-key "mc-pgp")
182 (snarf-keys mc-snarf-keys "mc-toplev")
183 ;; for tm-edit
184 (mime-sign tm:mc-pgp-sign-region "tm-edit-mc")
185 (traditional-sign mc-pgp-sign-region "mc-pgp")
186 (encrypt tm:mc-pgp-encrypt-region "tm-edit-mc")
187 (insert-key mc-insert-public-key "mc-toplev")
188 )
189 "Alist of service names vs. corresponding functions and its filenames.
190 Each element looks like (SERVICE FUNCTION FILE).
191
192 SERVICE is a symbol of PGP processing. It allows `verify', `decrypt',
193 `fetch-key', `snarf-keys', `mime-sign', `traditional-sign', `encrypt'
194 or `insert-key'.
195
196 Function is a symbol of function to do specified SERVICE.
197
198 FILE is string of filename which has definition of corresponding
199 FUNCTION.")
200
201 (defmacro pgp-function (method)
202 "Return function to do service METHOD."
203 (` (car (cdr (assq (, method) (symbol-value 'pgp-function-alist)))))
204 )
205
206 (mapcar (function
207 (lambda (method)
208 (autoload (second method)(third method))
209 ))
210 pgp-function-alist)
171 211
172 212
173 ;;; @ definitions about MIME 213 ;;; @ definitions about MIME
174 ;;; 214 ;;;
175 215