summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
12695ff)
Added a downloading message for fetching, so users will know that
*something* is happening.
(defun notmuch-show-get-filename ()
(let* ((orig-filename (notmuch-show-get-prop :filename))
(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
(replace-regexp-in-string "\n" "" retvalue)))
This will will use the "--get" option of the above