[elpa] externals/gnorb e4ab4d5 122/449: Finer control over how attachments are saved

[Stefan Monnier]

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

    Finer control over how attachments are saved
    
    lisp/gnorb-gnus.el: (gnorb-gnus-collect-all-attachments) New extra
                    argument allows more control over when we save
                    attachment filenames into
                    `gnorb-gnus-capture-attachments' and when we don't.
                    We don't only save during capture, but also on
                    triggering incoming messages.
---
 lisp/gnorb-gnus.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/gnorb-gnus.el b/lisp/gnorb-gnus.el
index ca738af..d0c6f99 100644
--- a/lisp/gnorb-gnus.el
+++ b/lisp/gnorb-gnus.el
@@ -163,7 +163,7 @@ Basically behave as if all attachments have 
\":gnus-attachments t\"."
     (mm-save-part-to-file handle filename)
     filename))
 
-(defun gnorb-gnus-collect-all-attachments (&optional capture-p)
+(defun gnorb-gnus-collect-all-attachments (&optional capture-p store)
   "Collect all the attachments from the message under point, and
 save them into `gnorb-tmp-dir'."
   (save-window-excursion
@@ -187,7 +187,7 @@ save them into `gnorb-tmp-dir'."
        (dolist (h mime-handles)
          (let ((filename
                 (gnorb-gnus-save-part (cdr h))))
-           (when capture-p
+           (when (or capture-p store)
              (push filename gnorb-gnus-capture-attachments))))))))
 
 ;;; Make the above work in the capture process