[elpa] externals/gnorb 85797d0 120/449: Be more careful about what MIME parts we attach

[Stefan Monnier]

branch: externals/gnorb
commit 85797d030f3d5e29cb68a3922e9cac6cac79ee1d
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Be more careful about what MIME parts we attach
    
    lisp/gnorb-gnus.el: (gnorb-gnus-collect-all-attachments) Inline
                    attachments are okay as well -- so long as there's a
                    filename we're probably okay to attach
---
 lisp/gnorb-gnus.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/gnorb-gnus.el b/lisp/gnorb-gnus.el
index e73767a..0589653 100644
--- a/lisp/gnorb-gnus.el
+++ b/lisp/gnorb-gnus.el
@@ -175,7 +175,8 @@ save them into `gnorb-tmp-dir'."
        (gnus-summary-display-article article))
       (gnus-eval-in-buffer-window gnus-article-buffer
        (setq mime-handles (cl-remove-if-not
-                           (lambda (h) (equal "attachment" (car (nth 5 h))))
+                           (lambda (h) (and (member (car (nth 5 h)) '("inline" 
"attachment") )
+                                            (eq (caadr (nth 5 h)) 'filename)))
                            gnus-article-mime-handle-alist) ))
       (when mime-handles
        (dolist (h mime-handles)