Added a "Downloading..." message to the fetching.

[notmuch-wiki] / remoteusage.mdwn

diff --git a/remoteusage.mdwn b/remoteusage.mdwn
index 337a2fc8f1520fe68b39e74927fcf7aef66e4f12..8ea3a5174b490bc4971188ca71da2a9cc6b3e1bf 100644 (file)
--- a/remoteusage.mdwn
+++ b/remoteusage.mdwn
@@ -120,10 +120,11 @@ message text.
 
     (defun notmuch-show-get-filename ()
       (let* ((orig-filename (notmuch-show-get-prop :filename))
-            (retvalue (shell-command-to-string (concat 
-                                            notmuch-command
-                                            " --get "
-                                            orig-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