- (setq notmuch-remote-host "user_name@server_name")
-
- (defadvice notmuch-show-get-filename (around
- notmuch-show-get-remote-filename
- activate)
- (setq ad-return-value (concat "/ssh:"
- notmuch-remote-host
- ":"
- ad-do-it)))
-
-The purpose of these lines is to allow emacs to have access to the raw
-files, via TRAMP, so that it can extract attachments and parse
-HTML. Work is afoot to make notmuch handle these tasks itself, so this
-part should soon be unecessary.
+ (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.