Re: How does one pgp/mime encrypt to different recipients?

[Josh Huber <huber@alum.wpi.edu>]

David S Goldberg <david.goldberg6@verizon.net> writes:

> Does/should this work for s/mime?  If so what's the syntax for the
> tag?  I've been completely unable to encrypt to multiple recipients
> using the secure tag.  I always have to remember to use
> mml-secure-encrypt-smime which only encrypts a single part, which
> works for my simple text messages, but is clearly not the desired
> approach.

I think it should work for s/mime, but I don't use it.  With s/mime do
you have to specify the recipeints each time, or can it look up based
on the recipient addresses in the headers?

I see now...(looking at mml-smime.el)

Right now I'm not calling the mml-smime-(sign|encrypt)-query
function. 

I don't have smime keys set up to test this, so could you try out this
patch?

Index: mml-sec.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mml-sec.el,v
retrieving revision 1.15
diff -u -r1.15 mml-sec.el
--- mml-sec.el	2002/05/08 16:12:53	1.15
+++ mml-sec.el	2002/09/04 15:20:26
@@ -161,7 +161,12 @@
 ;; defuns that add the proper <#secure ...> tag to the top of the message body
 (defun mml-secure-message (method &optional modesym)
   (let ((mode (prin1-to-string modesym))
-	insert-loc)
+	insert-loc
+        (recipients (funcall (nth 2 (assoc method
+                                           (if (or (eq modesym 'sign)
+                                                   (eq modesym 'signencrypt))
+                                               mml-sign-alist
+                                             mml-encrypt-alist))))))
     (mml-unsecure-message)
     (save-excursion
       (goto-char (point-min))
@@ -170,7 +175,7 @@
 	     (goto-char (setq insert-loc (match-end 0)))
 	     (unless (looking-at "<#secure")
 	       (mml-insert-tag
-		'secure 'method method 'mode mode)))
+		'secure 'method method 'mode mode recipients)))
 	    (t (error
 		"The message is corrupted. No mail header separator"))))
     (when (eql insert-loc (point))


If that doesn't work, can you tell me what the mml-smim-sign-query
function returns for you?  Does it include the "recipients" symbol?

Thanks,

-- 
Josh Huber