Re: Lack of PGP signatures

[Steven L Baur <steve@miranova.com>]

>>>>> "Rich" == Rich Graves <llurch@networking.stanford.edu> writes:

Rich> On Wed, 3 Jul 1996, Charles Watt wrote:
>> -----BEGIN PRIVACY-ENHANCED MESSAGE-----

Rich> And then there's the part about it being ugly as sin ...

(defun gnus-article-hide-pem (&optional arg)
  "Toggle hiding of any PEM headers and signatures in the current article.
If given a negative prefix, always show; if given a positive prefix,
always hide.  Adapted from gnus-article-hide-pgp."
  (interactive (gnus-hidden-arg))
  (unless (gnus-article-check-hidden-text 'pem arg)
    (save-excursion
      (set-buffer gnus-article-buffer)
      (let ((props (nconc (list 'gnus-type 'pem) gnus-hidden-properties))
	    buffer-read-only end)
	(widen)
	(goto-char (point-min))
	;; hide the horrendously ugly "header".
	(and (search-forward "\n-----BEGIN PRIVACY-ENHANCED MESSAGE-----\n"
			     nil
			     t)
	     (setq end (1+ (match-beginning 0)))
	     (gnus-hide-text
	      end
	      (if (search-forward "\n\n" nil t)
		  (match-end 0)
		(point-max))
	      props))
	;; hide the trailer as well
	(and (search-forward "\n-----END PRIVACY-ENHANCED MESSAGE-----\n"
			     nil
			     t)
	     (gnus-hide-text (match-beginning 0) (match-end 0) props))))))

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be proofread for $250/hour.
Andrea Seastrand: For your vote on the Telecom bill, I will vote for anyone
except you in November.