alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e: filter out body parts as attachments

Browse Source 
Make the attachment heuristic yet a bit more complicated... filter out
most body parts.
This commit is contained in:
djcb
2017-02-12 11:33:01 +02:00
parent 1c4dbe580c
commit 4c9a8ea112
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
mu4e/mu4e-view.el
View File

@ -523,6 +523,7 @@ add text-properties to VAL."
(setq mu4e~view-attach-map ;; buffer local (setq mu4e~view-attach-map ;; buffer local
(make-hash-table :size 64 :weakness nil)) (make-hash-table :size 64 :weakness nil))
(let* ((id 0) (let* ((id 0)
(partcount (length (mu4e-message-field msg :parts)))
(attachments (attachments
;; we only list parts that look like attachments, ie. that have a ;; we only list parts that look like attachments, ie. that have a
;; non-nil :attachment property; we record a mapping between ;; non-nil :attachment property; we record a mapping between
@ -540,9 +541,13 @@ add text-properties to VAL."
;; list inline parts as attachment (so they can be ;; list inline parts as attachment (so they can be
;; saved), unless they are text/plain, which are ;; saved), unless they are text/plain, which are
;; usually just message footers in mailing lists ;; usually just message footers in mailing lists
;;
;; however, slow bigger text parts as attachments,
;; except when they're the only part... it's
;; complicated.
(and (member 'inline attachtype) (and (member 'inline attachtype)
(or (or
(> partsize 256) ;; filter out footers (and (> partcount 1) (> partsize 256))
(not (string-match "^text/plain" mtype))))))) (not (string-match "^text/plain" mtype)))))))
(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)