(mml1991-pgg-encrypt): Fix recipients querying.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8773335..635c9d7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * mml1991.el (mml1991-function-alist): Add pgg.
        (mml1991-pgg-sign, mml1991-pgg-encrypt): New functions.
+       (mml1991-pgg-encrypt): Fix recipients querying.
 
 2002-09-28  Simon Josefsson  <jas@extundo.com>
 

diff --git a/lisp/mml1991.el b/lisp/mml1991.el
index b83f2a3..b658842 100644 (file)
--- a/lisp/mml1991.el
+++ b/lisp/mml1991.el
@@ -24,7 +24,7 @@
 
 ;;; Commentary:
 
-;; RCS: $Id: mml1991.el,v 6.7 2002/05/04 14:20:42 jas Exp $
+;; RCS: $Id: mml1991.el,v 6.8 2002/09/29 20:33:02 jas Exp $
 
 ;;; Code:
 
@@ -230,10 +230,12 @@
       (kill-region (point-min) (point)))
     (unless (pgg-encrypt-region
             (point-min) (point-max) 
-            (list (or
-                   (message-options-get 'message-recipients)
-                   (message-options-set 'message-recipients
-                                        (read-string "Recipients: ")))))
+            (split-string
+             (or
+              (message-options-get 'message-recipients)
+              (message-options-set 'message-recipients
+                                   (read-string "Recipients: ")))
+             "[ \f\t\n\r\v,]+"))
       (pop-to-buffer pgg-errors-buffer)
       (error "Encrypt error"))
     (kill-region (point-min) (point-max))