-Now add the following, to overwrite the way in which notmuch gets raw
-message text.
-
- (defun notmuch-show-get-filename ()
- (let* ((orig-filename (notmuch-show-get-prop :filename))
- (retvalue (progn
- (message "Downloading... ")
- (shell-command-to-string (concat notmuch-command
- " --get "
- orig-filename)))))
- (replace-regexp-in-string "\n" "" retvalue)))
-
-This will will use the "--get" option of the above
-script. Note that it only has to do this for attachments or for
-viewing the raw file, and only the first time. After that, it is
-cached.