(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)))))