Mercurial > emacs

comparison lisp/pgg-pgp.el @ 105104:e6d22839e0c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pgg-pgp-encrypt-region): Add missing mapconcat separator.
author Glenn Morris <rgm@gnu.org>
date Sat, 19 Sep 2009 03:18:30 +0000
parents a9dc0e7c3f2b
children 1d1d5d9bd884
comparison
equal deleted inserted replaced
105103:02f10c9339eb 105104:e6d22839e0c0
1 ;;; pgg-pgp.el --- PGP 2.* and 6.* support for PGG. 1 ;;; pgg-pgp.el --- PGP 2.* and 6.* support for PGG.
2 2
3 ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3 ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. 4 ;; 2009 Free Software Foundation, Inc.
5 5
6 ;; Author: Daiki Ueno <ueno@unixuser.org> 6 ;; Author: Daiki Ueno <ueno@unixuser.org>
7 ;; Created: 1999/11/02 7 ;; Created: 1999/11/02
8 ;; Keywords: PGP, OpenPGP 8 ;; Keywords: PGP, OpenPGP
9 9
143 "+encrypttoself=off +verbose=1 +batchmode +language=us -fate " 143 "+encrypttoself=off +verbose=1 +batchmode +language=us -fate "
144 (if (or recipients pgg-encrypt-for-me) 144 (if (or recipients pgg-encrypt-for-me)
145 (mapconcat 'shell-quote-argument 145 (mapconcat 'shell-quote-argument
146 (append recipients 146 (append recipients
147 (if pgg-encrypt-for-me 147 (if pgg-encrypt-for-me
148 (list pgg-pgp-user-id))))) 148 (list pgg-pgp-user-id))) " "))
149 (if sign (concat " -s -u " (shell-quote-argument pgg-pgp-user-id)))))) 149 (if sign (concat " -s -u " (shell-quote-argument pgg-pgp-user-id))))))
150 (pgg-pgp-process-region start end nil pgg-pgp-program args) 150 (pgg-pgp-process-region start end nil pgg-pgp-program args)
151 (pgg-process-when-success nil))) 151 (pgg-process-when-success nil)))
152 152
153 (defun pgg-pgp-decrypt-region (start end &optional passphrase) 153 (defun pgg-pgp-decrypt-region (start end &optional passphrase)