2017-11-12 My email workflow – an addendum

Some time ago I wrote about my email capturing workflow. After I’ve written that text, I noticed that my command does not work well when launched in message mode (as opposed to the headers view mode). I tried to debug this problem, but to no avail.

Until yesterday. It just occurred to me that the problem may be the asynchronicity again. I applied the method from my previous post and voilà! It Just Works™ now.

I’m not really sure about the exact reason for that behavior (I would guess that it might be buried deeply in the mu4e~proc-move function), but here’s the updated code.

(defun pause (count)
  "Pause for COUNT seconds (default one)"
  (interactive "p")
  (sleep-for count))

(defun mu4e-flag-message-at-point-now ()
  "Flag the message at point immediately."
  (let ((msg (mu4e-message-at-point)))
	(funcall (plist-get (cdr (assq 'flag mu4e-marks)) :action)
		 (plist-get msg :docid) msg nil)))

(defun make-this-message-into-an-org-todo-item ()
  "Flag this message as important and capture it in Org-mode."
  (when (eq major-mode 'mu4e-view-mode)
	(pause 0.2))
  (org-capture nil "t"))

Notice that sleep-for (and hence pause) accepts non-integer values (which is handy in this case – a second is a long time!).

CategoryEnglish, CategoryBlog, CategoryEmacs