Changes committed gnus/lisp (ChangeLog mml2015.el)

Modified: ChangeLog mml2015.el

(mml2015-epg-sign): Remove skipped signers from the signer
list.
(mml2015-epg-encrypt): Remove skipped recipients/signers from the
recipient/signer list.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1748 gnus/lisp/ChangeLog:7.1749
--- ChangeLog:7.1748	Fri Feb  8 00:42:06 2008
+++ ChangeLog	Sun Feb 10 08:46:54 2008
@@ -1,3 +1,10 @@
+2008-02-10  Daiki Ueno  <[email protected]>
+
+	* mml2015.el (mml2015-epg-sign): Remove skipped signers from the signer
+	list.
+	(mml2015-epg-encrypt): Remove skipped recipients/signers from the
+	recipient/signer list.
+
 2008-02-07  Katsumi Yamaoka  <[email protected]>
 
 	* Makefile.in (datarootdir): Define.
Index: mml2015.el
diff -u gnus/lisp/mml2015.el:7.50 gnus/lisp/mml2015.el:7.51
--- mml2015.el:7.50	Sun Jan 20 06:23:57 2008
+++ mml2015.el	Sun Feb 10 08:46:55 2008
@@ -1186,18 +1186,20 @@
 If no one is selected, default secret key is used.  "
 				    mml2015-signers t)
 		 (if mml2015-signers
-		     (mapcar
-		      (lambda (signer)
-			(setq signer-key (mml2015-epg-find-usable-key
-					  (epg-list-keys context signer t)
-					  'sign))
-			(unless (or signer-key
-				    (y-or-n-p
-				     (format "No secret key for %s; skip it? "
-					     signer)))
-			  (error "No secret key for %s" signer))
-			signer-key)
-		      mml2015-signers))))))
+		     (delq nil
+			   (mapcar
+			    (lambda (signer)
+			      (setq signer-key (mml2015-epg-find-usable-key
+						(epg-list-keys context signer t)
+						'sign))
+			      (unless (or signer-key
+					  (y-or-n-p
+					   (format
+					    "No secret key for %s; skip it? "
+					    signer)))
+				(error "No secret key for %s" signer))
+			      signer-key)
+			    mml2015-signers)))))))
 	 signature micalg)
     (epg-context-set-armor context t)
     (epg-context-set-textmode context t)
@@ -1267,18 +1269,19 @@
 If no one is selected, symmetric encryption will be performed.  "
 				 recipients))
 	(setq recipients
-	      (mapcar
-	       (lambda (recipient)
-		 (setq recipient-key (mml2015-epg-find-usable-key
-				      (epg-list-keys context recipient)
-				      'encrypt))
-		 (unless (or recipient-key
-			     (y-or-n-p
-			      (format "No public key for %s; skip it? "
-				      recipient)))
-		   (error "No public key for %s" recipient))
-		 recipient-key)
-	       recipients))
+	      (delq nil
+		    (mapcar
+		     (lambda (recipient)
+		       (setq recipient-key (mml2015-epg-find-usable-key
+					    (epg-list-keys context recipient)
+					    'encrypt))
+		       (unless (or recipient-key
+				   (y-or-n-p
+				    (format "No public key for %s; skip it? "
+					    recipient)))
+			 (error "No public key for %s" recipient))
+		       recipient-key)
+		     recipients)))
 	(unless recipients
 	  (error "No recipient specified")))
       (message-options-set 'mml2015-epg-recipients recipients))
@@ -1293,19 +1296,20 @@
 If no one is selected, default secret key is used.  "
 				      mml2015-signers t)
 		   (if mml2015-signers
-		       (mapcar
-			(lambda (signer)
-			  (setq signer-key (mml2015-epg-find-usable-key
-					    (epg-list-keys context signer t)
-					    'sign))
-			  (unless (or signer-key
-				      (y-or-n-p
-				       (format
-					"No secret key for %s; skip it? "
-					signer)))
-			    (error "No secret key for %s" signer))
-			  signer-key)
-			mml2015-signers))))))
+		       (delq nil
+			     (mapcar
+			      (lambda (signer)
+				(setq signer-key (mml2015-epg-find-usable-key
+						  (epg-list-keys context signer t)
+						  'sign))
+				(unless (or signer-key
+					    (y-or-n-p
+					     (format
+					      "No secret key for %s; skip it? "
+					      signer)))
+				  (error "No secret key for %s" signer))
+				signer-key)
+			      mml2015-signers)))))))
       (epg-context-set-signers context signers))
     (epg-context-set-armor context t)
     (epg-context-set-textmode context t)