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

* mm-main.el: update main view, support bookmarks

Browse Source
This commit is contained in:
djcb
2011-12-13 07:43:49 +02:00
parent 8ad1b738a3
commit 5f1eebcad5
1 changed files with 34 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
toys/mm/mm-main.el
View File

@ -29,6 +29,9 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; mm main view mode + keybindings ;; mm main view mode + keybindings
(defconst mm/main-buffer-name "*mm*"
"*internal* Name of the mm main view buffer.")
(defvar mm/mm-mode-map (defvar mm/mm-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
@ -71,10 +74,9 @@
str)) str))
(defun mm() (defun mm/main-view()
"Start mm; should not be called directly, instead, use `mm'" "Show the mm main view."
(interactive) (let ((buf (get-buffer-create mm/main-buffer-name))
(let ((buf (get-buffer-create mm/mm-buffer-name))
(inhibit-read-only t)) (inhibit-read-only t))
(with-current-buffer buf (with-current-buffer buf
(erase-buffer) (erase-buffer)