* mua updates

2011-08-09 22:52:49 +03:00
parent 56086b2f4b
commit 6cdd0f0571
3 changed files with 140 additions and 59 deletions
--- a/toys/mua/mua-hdrs.el
+++ b/toys/mua/mua-hdrs.el
@ -456,7 +456,8 @@ pseudo-markings."
  "Reply to message at point."
  (interactive)
  (let* ((path (mua/hdrs-get-path))
-	  (msg (when path (mua/msg-from-path path))))
+	  (str (when path (mua/mu-view-sexp path)))
+	  (msg (and str (mua/msg-from-string str))))
    (if msg
      (mua/msg-compose (mua/msg-create-reply msg
 			 (yes-or-no-p "Reply to all? ")))