(defun notmuch-reply (query-string)
(switch-to-buffer (generate-new-buffer "notmuch-draft"))
(call-process notmuch-command nil t nil "reply" query-string)
+ (message-insert-signature)
(goto-char (point-min))
(if (re-search-forward "^$" nil t)
(progn
current email message as stdin. Anything printed by the command
to stdout or stderr will appear in the *Messages* buffer."
(interactive "sPipe message to command: ")
- (apply 'start-process-shell-command "notmuch-pipe-command" "*notmuch-pipe*" (split-string (concat command " < " (notmuch-show-get-filename)))))
+ (apply 'start-process-shell-command "notmuch-pipe-command" "*notmuch-pipe*"
+ (list command " < " (shell-quote-argument (notmuch-show-get-filename)))))
(defun notmuch-show-move-to-current-message-summary-line ()
"Move to the beginning of the one-line summary of the current message.
(remove-from-invisibility-spec invis-spec)
(add-to-invisibility-spec invis-spec)
))
- (goto-char (button-end cite-button)))
+ (force-window-update)
+ (redisplay t))
(defun notmuch-show-markup-citations-region (beg end depth)
(goto-char beg)
(let ((cite-button (insert-button cite-button-text)))
(button-put cite-button 'invisibility-spec invis-spec)
(button-put cite-button 'action 'notmuch-toggle-invisible-action)
+ (button-put cite-button 'follow-link t)
(button-put cite-button 'help-echo
- "mouse-2, RET: Show citation")
+ "mouse-1, RET: Show citation")
)
(insert "\n")
(button-put sig-button 'invisibility-spec invis-spec)
(button-put sig-button 'action
'notmuch-toggle-invisible-action)
+ (button-put sig-button 'follow-link t)
(button-put sig-button 'help-echo
- "mouse-2, RET: Show signature")
+ "mouse-1, RET: Show signature")
)
(insert "\n")
(goto-char end))))))
(indent-rigidly beg end depth)
(overlay-put (make-overlay beg-hidden end)
'invisible 'notmuch-show-header)
+ (goto-char end)
+ (insert "\n")
(set-marker beg nil)
(set-marker beg-hidden nil)
(set-marker end nil)