diff options
| author |  Keith Amidon <keith@nicira.com> | 2009-12-05 14:53:59 -0800 |
|---|---|---|
| committer |  Carl Worth <cworth@cworth.org> | 2009-12-10 16:26:24 -0800 |
| commit | 0d340415c942a87cb29f6507979266751020109a (patch) | |
| tree | b653da1bcc3ca220ee1936038f341385d3c8a331 /notmuch.el | |
| parent | 4aff2ca55bfe285ced36e9fe02c907d8b4120672 (diff) | |
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.
Diffstat (limited to 'notmuch.el')
| -rw-r--r-- | notmuch.el | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -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)) "' "))) |