* define some example actions for headers, and views
This commit is contained in:
@ -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"))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user