* define some example actions for headers, and views

This commit is contained in:
djcb
2012-04-20 18:22:33 +03:00
parent fbf9c70cbb
commit b99f3612ea
2 changed files with 48 additions and 10 deletions

View File

@ -405,10 +405,19 @@ action (function) to invoke, or nil. "
(find-if (lambda (ac) (eq kar (cadr ac))) actions)))
(when action
(nth 2 action))))) ;; return func
(defun mu4e-capture-message ()
(defun mu4e-count-lines (msg)
"Demonstration function for `mu4e-view-actions'. Count the number
of lines in the e-mail message."
(message "Number of lines: %s"
(shell-command-to-string
(concat "wc -l < " (shell-quote-argument (plist-get msg :path))))))
(defun mu4e-capture-message (msg)
"Remember MSG; we can create a an attachment based on this msg
with `mu4e-insert-captured-message-as-attachment'."
(interactive)
(interactive)
(setq mu4e-captured-message msg)
(message "Message has been captured"))