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

* mu4e: fix some minor things in the main page

Browse Source
This commit is contained in:
djcb
2013-10-14 22:30:29 +03:00
parent 9abaf83fbd
commit b92e2d20fd
2 changed files with 15 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
mu4e/mu4e-main.el
View File

@ -134,7 +134,7 @@ clicked."
(propertize " Misc\n\n" 'face 'mu4e-title-face) (propertize " Misc\n\n" 'face 'mu4e-title-face)
(mu4e~main-action-str "\t* [U]pdate email & database\n" (mu4e~main-action-str "\t* [U]pdate email & database\n"
'mu4e-update-mail-show-window) 'mu4e-update-mail-and-index)
;; show the queue functions if `smtpmail-queue-dir' is defined ;; show the queue functions if `smtpmail-queue-dir' is defined
(if (file-directory-p smtpmail-queue-dir) (if (file-directory-p smtpmail-queue-dir)

22
mu4e/mu4e-utils.el
View File

@ -1016,18 +1016,24 @@ displaying it). Do _not_ bury the current buffer, though."
(define-derived-mode mu4e-about-mode org-mode "mu4e:about" (define-derived-mode mu4e-about-mode org-mode "mu4e:about"
"Major mode for the mu4e About page, derived from `org-mode'.") "Major mode for the mu4e About page, derived from `org-mode'.")
(define-key mu4e-about-mode-map (kbd "q") 'bury-buffer)
(defun mu4e-about () (defun mu4e-about ()
"Show a buffer with the mu4e-about text." "Show a buffer with the mu4e-about text."
(interactive) (interactive)
(with-current-buffer (lexical-let ((oldbuf (current-buffer)))
(get-buffer-create mu4e~main-about-buffer-name) (with-current-buffer
(let ((inhibit-read-only t)) (get-buffer-create mu4e~main-about-buffer-name)
(erase-buffer) (define-key mu4e-about-mode-map (kbd "q")
(insert mu4e-about) (lambda () ;; XXX it seems unnecessarily hard to do this...
(mu4e-about-mode) (interactive)
(show-all))) (bury-buffer)
(when (buffer-live-p oldbuf)
(switch-to-buffer oldbuf))))
(let ((inhibit-read-only t))
(erase-buffer)
(insert mu4e-about)
(mu4e-about-mode)
(show-all))))
(switch-to-buffer mu4e~main-about-buffer-name) (switch-to-buffer mu4e~main-about-buffer-name)
(setq buffer-read-only t) (setq buffer-read-only t)
(goto-char (point-min))) (goto-char (point-min)))