Expand scope of items considered when saving attachments

Previously only mime parts that indicated specified a "disposition" of
"attachment" were saved.  However there are time when it is important
to be able to save inline content as well.  After this commit any mime
part that specifies a filename will be considered when saving
attachments.
This commit is contained in:
Keith Amidon 2009-12-05 14:53:59 -08:00 committed by Carl Worth
parent 4aff2ca55b
commit 0d340415c9

View file

@ -322,7 +322,9 @@ buffer."
(lambda (p)
(let ((disposition (mm-handle-disposition p)))
(and (listp disposition)
(equal (car disposition) "attachment")
(or (equal (car disposition) "attachment")
(and (equal (car disposition) "inline")
(assq 'filename disposition)))
(incf count))))
mm-handle)
count))
@ -332,7 +334,9 @@ buffer."
(lambda (p)
(let ((disposition (mm-handle-disposition p)))
(and (listp disposition)
(equal (car disposition) "attachment")
(or (equal (car disposition) "attachment")
(and (equal (car disposition) "inline")
(assq 'filename disposition)))
(or (not queryp)
(y-or-n-p
(concat "Save '" (cdr (assq 'filename disposition)) "' ")))