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

* mu4e: make help context-sensitive

Browse Source
This commit is contained in:
djcb
2012-02-14 20:25:13 +02:00
parent 01f6c2fd47
commit 3e6ff7fb52
3 changed files with 22 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
emacs/mu4e-hdrs.el
View File

@ -286,7 +286,6 @@ after the end of the search results."
(define-key map "H" 'mu4e-display-manual) (define-key map "H" 'mu4e-display-manual)
;; menu ;; menu
(define-key map [menu-bar] (make-sparse-keymap)) (define-key map [menu-bar] (make-sparse-keymap))
(let ((menumap (make-sparse-keymap "Headers"))) (let ((menumap (make-sparse-keymap "Headers")))

14
emacs/mu4e-main.el
View File

@ -167,18 +167,4 @@ clicked."
"Outgoing mail will now be sent directly")) "Outgoing mail will now be sent directly"))
(mu4e-main-view)) (mu4e-main-view))
(defun mu4e-display-manual ()
"Display the mu4e manual info pages."
(interactive)
(info-display-manual "mu4e"))
(defun mu4e-quit()
"Quit the mm session."
(interactive)
(when (y-or-n-p "Are you sure you want to quit? ")
(message nil)
(mu4e-kill-proc)
(kill-buffer)))
(provide 'mu4e-main) (provide 'mu4e-main)

23
emacs/mu4e.el
View File

@ -579,7 +579,8 @@ uses the emacs built-in `html2text'. Alternatively, if
;; there's no text part, or it's very small ;; there's no text part, or it's very small
(with-temp-buffer (with-temp-buffer
(insert html) (insert html)
(if mu4e-html2text-command ;; if defined, use the external tool ;; if defined, use the external tool
(if mu4e-html2text-command
(shell-command-on-region (point-min) (point-max) (shell-command-on-region (point-min) (point-max)
mu4e-html2text-command mu4e-html2text-command
nil t) nil t)
@ -591,6 +592,26 @@ uses the emacs built-in `html2text'. Alternatively, if
;; and finally, remove some crap from the remaining string. ;; and finally, remove some crap from the remaining string.
(replace-regexp-in-string "[ (replace-regexp-in-string "[
 ]" " " body nil nil nil)))  ]" " " body nil nil nil)))
(defun mu4e-display-manual ()
"Display the mu4e manual page for the current mode, or go to the
top level if there is none."
(interactive)
(info (case major-mode
('mu4e-main-mode "(mu4e)Main view")
('mu4e-hdrs-mode "(mu4e)Headers view")
('mu4e-view-mode "(mu4e)Message view")
(t "mu4e"))))
(defun mu4e-quit()
"Quit the mm session."
(interactive)
(when (y-or-n-p "Are you sure you want to quit? ")
(message nil)
(mu4e-kill-proc)
(kill-buffer)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;