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

Added a downloading message for fetching, so users will know that
*something* is happening.

diff --git a/remoteusage.mdwn b/remoteusage.mdwn
index 09447a1edb063367d3b5e319a377a3d994f5a4d5..8ea3a5174b490bc4971188ca71da2a9cc6b3e1bf 100644 (file)
--- a/remoteusage.mdwn
+++ b/remoteusage.mdwn
@@ -120,9 +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