--- /usr/share/emacs/22.0.50/lisp/gnus/pgg-gpg.el	2005-10-07 11:47:44.000000000 +0200
+++ /home/wilde/src/std-src/emacs/lisp/gnus/pgg-gpg.el	2005-10-07 23:29:57.000000000 +0200
@@ -205,10 +205,11 @@
 
 (defun pgg-gpg-symmetric-key-p (message-keys)
   "Check if MESSAGE-KEYS contains a symmetric encryption indicator."
-  (dolist (key message-keys result)
-    (when (and (eq (car key) 3)
-	       (member '(symmetric-key-algorithm) key))
-      (setq result key))))
+  (let ((result))
+    (dolist (key message-keys result)
+      (when (and (eq (car key) 3)
+		 (member '(symmetric-key-algorithm) key))
+	(setq result key)))))
 
 (defun pgg-gpg-select-matching-key (message-keys secret-keys)
   "Choose a key from MESSAGE-KEYS that matches one of the keys in SECRET-KEYS."