From 4f584611905cb946e6cf17935b048513c689450d Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Wed, 12 May 2010 12:10:58 -0400
Subject: [PATCH] Added a "Downloading..." message to the fetching.

Added a downloading message for fetching, so users will know that
*something* is happening.
---
 remoteusage.mdwn | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/remoteusage.mdwn b/remoteusage.mdwn
index 09447a1..8ea3a51 100644
--- 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
-- 
2.43.0