diff -r 69703d5e058e -r 9970d5c0861b lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Wed Nov 08 10:14:19 2006 +0100
+++ b/lisp/gnus/ChangeLog	Fri Nov 10 23:14:13 2006 +0100
@@ -1,3 +1,8 @@ 2006-11-03  Juanma Barranquero  <lekktu@
+2006-11-10  Sascha Wilde  <address@hidden>
+
+	* mml2015.el (mml2015-pgg-decrypt, mml2015-pgg-clear-decrypt): 
+	Show info on signature for decrypted parts.
+
 2006-11-03  Juanma Barranquero  <address@hidden>
 
 	* gnus-diary.el (gnus-diary-delay-format-function):
diff -r 69703d5e058e -r 9970d5c0861b lisp/gnus/mml2015.el
--- a/lisp/gnus/mml2015.el	Wed Nov 08 10:14:19 2006 +0100
+++ b/lisp/gnus/mml2015.el	Fri Nov 10 23:14:13 2006 +0100
@@ -682,8 +682,10 @@
 		(replace-match "\n" t t))
 	      (setq handles (mm-dissect-buffer t))
 	      (mm-destroy-parts handle)
-	      (mm-set-handle-multipart-parameter
-	       mm-security-handle 'gnus-info "OK")
+	      (let ((sig (with-current-buffer pgg-errors-buffer
+			   (mml2015-gpg-extract-signature-details))))
+		(mm-set-handle-multipart-parameter
+		 mm-security-handle 'gnus-info (concat "OK, Signer: " sig)))
 	      (mm-set-handle-multipart-parameter
 	       mm-security-handle 'gnus-details
 	       (concat decrypt-status
@@ -713,8 +715,10 @@
 	  (goto-char (point-min))
 	  (while (search-forward "\r\n" nil t)
 	    (replace-match "\n" t t))
-	  (mm-set-handle-multipart-parameter
-	   mm-security-handle 'gnus-info "OK"))
+	  (let ((sig (with-current-buffer pgg-errors-buffer
+		       (mml2015-gpg-extract-signature-details))))
+	    (mm-set-handle-multipart-parameter
+	     mm-security-handle 'gnus-info (concat "OK, Signer: " sig))))
       (mm-set-handle-multipart-parameter
        mm-security-handle 'gnus-info "Failed"))))