X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-art.el;h=a235d30ca494e5c42f915892e4e43cb39cb0a491;hb=176b2dd2f445ecdb130c090b97df750872f205d8;hp=801db60d5a2798747839d4d85c9bff492983e516;hpb=8a2d8fc6cbd2eb883bf7da7307f2f53938a08077;p=gnus

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 801db60d5..a235d30ca 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1495,9 +1495,9 @@ header in the current article."
 	(when (re-search-forward "^-----BEGIN PGP SIGNED MESSAGE-----\n" nil t)
 	  (push 'pgp gnus-article-wash-types)
 	  (delete-region (match-beginning 0) (match-end 0))
-	  ;; PGP 5 and GNU PG add a `Hash: <>' comment, hide that too
-	  (when (looking-at "Hash:.*$")
-	    (delete-region (point) (1+ (gnus-point-at-eol))))
+	  ;; Remove armor headers (rfc2440 6.2)
+	  (delete-region (point) (or (re-search-forward "^[ \t]*\n" nil t)
+				     (point)))
 	  (setq beg (point))
 	  ;; Hide the actual signature.
 	  (and (search-forward "\n-----BEGIN PGP SIGNATURE-----\n" nil t)