mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(pgg-pgp-encrypt-region): Add missing mapconcat separator.

Browse Source
This commit is contained in:
Glenn Morris 2009-09-19 03:18:30 +00:00
parent 0bae4e09ed
commit 665906840a
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2009-09-19 Glenn Morris <rgm@gnu.org>
* pgg-pgp.el (pgg-pgp-encrypt-region): Add missing mapconcat separator.
2009-09-18 Chong Yidong <cyd@stupidchicken.com> 2009-09-18 Chong Yidong <cyd@stupidchicken.com>
* files.el (auto-mode-alist): Change default for XML files to nXML * files.el (auto-mode-alist): Change default for XML files to nXML

6
lisp/pgg-pgp.el
View File

@ -1,7 +1,7 @@
;;; pgg-pgp.el --- PGP 2.* and 6.* support for PGG. ;;; pgg-pgp.el --- PGP 2.* and 6.* support for PGG.
;; Copyright (C) 1999, 2000, 2002, 2003, 2004, ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. ;; 2009 Free Software Foundation, Inc.
;; Author: Daiki Ueno <ueno@unixuser.org> ;; Author: Daiki Ueno <ueno@unixuser.org>
;; Created: 1999/11/02 ;; Created: 1999/11/02
@ -145,7 +145,7 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
(mapconcat 'shell-quote-argument (mapconcat 'shell-quote-argument
(append recipients (append recipients
(if pgg-encrypt-for-me (if pgg-encrypt-for-me
(list pgg-pgp-user-id))))) (list pgg-pgp-user-id))) " "))
(if sign (concat " -s -u " (shell-quote-argument pgg-pgp-user-id)))))) (if sign (concat " -s -u " (shell-quote-argument pgg-pgp-user-id))))))
(pgg-pgp-process-region start end nil pgg-pgp-program args) (pgg-pgp-process-region start end nil pgg-pgp-program args)
(pgg-process-when-success nil))) (pgg-process-when-success nil)))