Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-def.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 0293115a14e9
children e04119814345
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
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.4 1997/02/02 05:06:19 steve Exp $ 6 ;; Version: $Id: tm-def.el,v 1.5 1997/02/16 01:29:30 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