(mm-uu-dissect-text-parts): Recognize application/pgp part as text.

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index 41bc0c3..4a81535 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -621,13 +621,16 @@ value of `mm-uu-text-plain-type'."
 (defun mm-uu-dissect-text-parts (handle)
   "Dissect text parts and put uu handles into HANDLE."
   (let ((buffer (mm-handle-buffer handle))
+       (case-fold-search t)
        type children)
     (cond ((stringp buffer)
           (mapc 'mm-uu-dissect-text-parts (cdr handle)))
          ((bufferp buffer)
           (when (and (setq type (mm-handle-media-type handle))
                      (stringp type)
-                     (string-match "\\`text/" type)
+                     ;; Mutt still uses application/pgp even though
+                     ;; it has already been withdrawn.
+                     (string-match "\\`text/\\|\\`application/pgp\\'" type)
                      (with-current-buffer buffer
                        (setq children
                              (mm-uu-dissect t (mm-handle-type handle)))))