* mu4e-view: list inline-parts as attachments, too.

This commit is contained in:
djcb
2012-11-25 18:33:03 +02:00
parent cce9a82a33
commit 0c11313027

View File

@ -233,7 +233,7 @@ marking if it still had that."
(setq ;; buffer local (setq ;; buffer local
mu4e~view-msg msg mu4e~view-msg msg
mu4e~view-headers-buffer headersbuf)) mu4e~view-headers-buffer headersbuf))
(unless (or refresh embedded) (unless (or refresh embedded)
;; no use in trying to set flags again, or when it's an embedded ;; no use in trying to set flags again, or when it's an embedded
;; message ;; message
@ -390,9 +390,12 @@ at POINT, or if nil, at (point)."
;; user-visible numbers and the part indices ;; user-visible numbers and the part indices
(remove-if-not (remove-if-not
(lambda (part) (lambda (part)
(let ((mtype (mu4e-message-part-field part :mime-type)) (let* ((mtype (mu4e-message-part-field part :mime-type))
(isattach (member 'attachment (attachtype (mu4e-message-part-field part :type))
(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 (or ;; remove if it's not an attach *or* if it's an
;; image/audio/application type (but not a signature) ;; image/audio/application type (but not a signature)
isattach isattach
@ -671,7 +674,7 @@ FUNC should be a function taking two arguments:
;; turn it off ;; turn it off
(when (boundp 'autopair-dont-activate) (when (boundp 'autopair-dont-activate)
(setq autopair-dont-activate t))) (setq autopair-dont-activate t)))
(defun mu4e~view-mark-as-read-maybe () (defun mu4e~view-mark-as-read-maybe ()
"Clear the current message's New/Unread status and set it to Seen. "Clear the current message's New/Unread status and set it to Seen.
If the message is not New/Unread, do nothing." If the message is not New/Unread, do nothing."