alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mua updates

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2011-08-09 07:52:15 +03:00
parent 1e7f0612ae
commit 2c26c4dca2
4 changed files with 51 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
toys/mua/mua-view.el
View File

@ -53,18 +53,16 @@ we quit from this view. Also, if PARENTBUF is a find buffer (ie.,
has mu-headers-mode as its major mode), this allows various
commands (navigation, marking etc.) to be applied to this
buffer."
(let* ((msg (mua/msg-from-path path))
(buf (get-buffer-create mua/view-buffer-name))
(str (mua/view-message msg)))
(when (and msg str)
(switch-to-buffer buf)
(let* ((sexp (mua/mu-view-sexp path))
(msg (and sexp (mua/msg-from-string sexp))))
(when msg
(switch-to-buffer (get-buffer-create mua/view-buffer-name))
(let ((inhibit-read-only t))
(erase-buffer)
(insert str))
(insert (mua/view-message msg)))
(mua/view-mode)
(setq ;; these are buffer-local
mua/hdrs-buffer headersbuf
mua/parent-buffer headersbuf)