From 0c113130277f366be652dd8df309bae71457af9f Mon Sep 17 00:00:00 2001 From: djcb Date: Sun, 25 Nov 2012 18:33:03 +0200 Subject: [PATCH] * mu4e-view: list inline-parts as attachments, too. --- mu4e/mu4e-view.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/mu4e/mu4e-view.el b/mu4e/mu4e-view.el index 7b25bcf1..3519722b 100644 --- a/mu4e/mu4e-view.el +++ b/mu4e/mu4e-view.el @@ -233,7 +233,7 @@ marking if it still had that." (setq ;; buffer local mu4e~view-msg msg mu4e~view-headers-buffer headersbuf)) - + (unless (or refresh embedded) ;; no use in trying to set flags again, or when it's an embedded ;; message @@ -390,9 +390,12 @@ at POINT, or if nil, at (point)." ;; user-visible numbers and the part indices (remove-if-not (lambda (part) - (let ((mtype (mu4e-message-part-field part :mime-type)) - (isattach (member 'attachment - (mu4e-message-part-field part :type)))) + (let* ((mtype (mu4e-message-part-field part :mime-type)) + (attachtype (mu4e-message-part-field part :type)) + (isattach (or ;; we lost parts marked either + ;; "attachment" or "inline" as attachment. + (member 'attachment attachtype) + (member 'inline attachtype)))) (or ;; remove if it's not an attach *or* if it's an ;; image/audio/application type (but not a signature) isattach @@ -671,7 +674,7 @@ FUNC should be a function taking two arguments: ;; turn it off (when (boundp 'autopair-dont-activate) (setq autopair-dont-activate t))) - + (defun mu4e~view-mark-as-read-maybe () "Clear the current message's New/Unread status and set it to Seen. If the message is not New/Unread, do nothing."