Re: er...gpg.el text..?

[Simon Josefsson <jas@extundo.com>]

Josh Huber <huber@alum.wpi.edu> writes:

> I just updated yesterday (I think), and the outpt text from signature
> verification is no longer displayed in the article buffer.

Perhaps this is a feature, `gnus-unbuttonized-mime-types' says which
MIME parts should not have buttons, and the default is .*/.*.

But the default behaviour is perhaps not ideal, it should be possibly
to override `gnus-unbuttonized-mime-types' and possibly
multipart/signed should be buttonized by default.

OTOH the buttons look ugly and interfere with reading of the article
so maybe they really should be unbuttonized by default.  Using the
Emacs 21 fringe to indicate which part of the mail is signed would
actually be good, but I dunno about XEmacs.

What do you think about this patch?

--- gnus-art.el.~6.106.~	Mon Aug 20 20:06:14 2001
+++ gnus-art.el	Wed Sep  5 20:52:18 2001
@@ -672,7 +672,15 @@
   :type '(repeat regexp))
 
 (defcustom gnus-unbuttonized-mime-types '(".*/.*")
-  "List of MIME types that should not be given buttons when rendered inline."
+  "List of MIME types that should not be given buttons when rendered inline.
+See also `gnus-buttonized-mime-types' which may override this variable."
+  :version "21.1"
+  :group 'gnus-article-mime
+  :type '(repeat regexp))
+
+(defcustom gnus-buttonized-mime-types '("multipart/signed")
+  "List of MIME types that should be given buttons when rendered inline.
+This variable overrides `gnus-unbuttonized-mime-types'."
   :version "21.1"
   :group 'gnus-article-mime
   :type '(repeat regexp))
@@ -3934,11 +3942,16 @@
 (defun gnus-unbuttonized-mime-type-p (type)
   "Say whether TYPE is to be unbuttonized."
   (unless gnus-inhibit-mime-unbuttonizing
-    (catch 'found
+    (when (catch 'found
       (let ((types gnus-unbuttonized-mime-types))
 	(while types
 	  (when (string-match (pop types) type)
-	    (throw 'found t)))))))
+		  (throw 'found t)))))
+      (not (catch 'found
+	     (let ((types gnus-buttonized-mime-types))
+	       (while types
+		 (when (string-match (pop types) type)
+		   (throw 'found t)))))))))
 
 (defun gnus-article-insert-newline ()
   "Insert a newline, but mark it as undeletable."