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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dcbe3034a5391e590090e1e8abccc21989332c6b..faf571fa719b374df2e08246b2b6d8ebaf85bfb8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>
 
        * files.el (auto-mode-alist): Change default for XML files to nXML

diff --git a/lisp/pgg-pgp.el b/lisp/pgg-pgp.el
index 26c7fccd78d00a43b90d2eb31224f15ce7a9b325..19d9a0ba240321cf8abd566ffc3d06c8aeb636ab 100644 (file)
--- a/lisp/pgg-pgp.el
+++ b/lisp/pgg-pgp.el
@@ -1,7 +1,7 @@
 ;;; pgg-pgp.el --- PGP 2.* and 6.* support for PGG.
 
-;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
+;;   2009  Free Software Foundation, Inc.
 
 ;; Author: Daiki Ueno <ueno@unixuser.org>
 ;; Created: 1999/11/02
@@ -145,7 +145,7 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
                (mapconcat 'shell-quote-argument
                           (append recipients
                                   (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))))))
     (pgg-pgp-process-region start end nil pgg-pgp-program args)
     (pgg-process-when-success nil)))