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

* mu4e-view.el: indent continuation header lines, so they're easier distinguishable

Browse Source
This commit is contained in:
djcb
2012-04-19 19:00:09 +03:00
parent 1ba30650e3
commit 3d1c5bb1e9
1 changed files with 16 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
emacs/mu4e-view.el
View File

@ -64,7 +64,7 @@ plist."
(:from (mu4e-view-contacts msg field)) (:from (mu4e-view-contacts msg field))
(:cc (mu4e-view-contacts msg field)) (:cc (mu4e-view-contacts msg field))
(:bcc (mu4e-view-contacts msg field)) (:bcc (mu4e-view-contacts msg field))
;; if we (`user-mail-address' are the From, show To, otherwise, ;; if we (`user-mail-address' are the From, show To, otherwise,
;; show From ;; show From
(:from-or-to (:from-or-to
@ -109,7 +109,7 @@ marking if it still had that."
(setq mu4e-attach-map nil) ;; clear any old attachment stuff (setq mu4e-attach-map nil) ;; clear any old attachment stuff
(erase-buffer) (erase-buffer)
(insert (mu4e-view-message-text msg)) (insert (mu4e-view-message-text msg))
;; initialize view-mode ;; initialize view-mode
(mu4e-view-mode) (mu4e-view-mode)
(setq ;; these are buffer-local (setq ;; these are buffer-local
@ -117,7 +117,7 @@ marking if it still had that."
mu4e-current-msg msg mu4e-current-msg msg
mu4e-hdrs-buffer hdrsbuf mu4e-hdrs-buffer hdrsbuf
mu4e-link-map (make-hash-table :size 32 :rehash-size 2 :weakness nil)) mu4e-link-map (make-hash-table :size 32 :rehash-size 2 :weakness nil))
(switch-to-buffer buf) (switch-to-buffer buf)
(goto-char (point-min)) (goto-char (point-min))
@ -132,22 +132,28 @@ marking if it still had that."
(progn (progn
(when mu4e-view-wrap-lines (mu4e-view-wrap-lines)) (when mu4e-view-wrap-lines (mu4e-view-wrap-lines))
(when mu4e-view-hide-cited (mu4e-view-hide-cited)))) (when mu4e-view-hide-cited (mu4e-view-hide-cited))))
;; no use in trying to set flags again ;; no use in trying to set flags again
(unless update (unless update
(mu4e-view-mark-as-read-maybe))))) (mu4e-view-mark-as-read-maybe)))))
(defun mu4e-view-header (key val &optional dont-propertize-val) (defun mu4e-view-header (key val &optional dont-propertize-val)
"Return header KEY with value VAL if VAL is non-nil. If "Return header KEY with value VAL if VAL is non-nil. If
DONT-PROPERTIZE-VAL, do not add text-properties to VAL." DONT-PROPERTIZE-VAL is non-nil, do not add text-properties to VAL."
(if val (if val
(with-temp-buffer (with-temp-buffer
(insert (propertize key 'face 'mu4e-view-header-key-face) ": " (insert (propertize key 'face 'mu4e-view-header-key-face) ": "
(if dont-propertize-val (if dont-propertize-val
val val
(propertize val 'face 'mu4e-view-header-value-face)) "\n") (propertize val 'face 'mu4e-view-header-value-face)) "\n")
(fill-region (point-min) (point-max)) ;; temporarily set the fill column <margin> positions to the right, so
;; we can indent following lines with positions
(let*((margin 1) (fill-column (- fill-column margin)))
(fill-region (point-min) (point-max))
(goto-char (point-min))
(while (and (zerop (forward-line 1)) (not (looking-at "^$")))
(indent-to-column margin)))
(buffer-string)) (buffer-string))
"")) ""))
@ -381,12 +387,11 @@ is nil, and otherwise open it."
;; turn it off ;; turn it off
(when (boundp 'autopair-dont-activate) (when (boundp 'autopair-dont-activate)
(setq autopair-dont-activate t)) (setq autopair-dont-activate t))
;; filladapt is much better than the built-in filling ;; filladapt is much better than the built-in filling
;; esp. with '>' cited parts ;; esp. with '>' cited parts
(when (fboundp 'filladapt-mode) (when (fboundp 'filladapt-mode)
(filladapt-mode)) (filladapt-mode))
(setq truncate-lines t)) (setq truncate-lines t))
@ -565,7 +570,7 @@ citations."
(if (window-parent) (if (window-parent)
(kill-buffer-and-window) (kill-buffer-and-window)
(kill-buffer))))) (kill-buffer)))))
(defun mu4e-view-next-header () (defun mu4e-view-next-header ()
"View the next header." "View the next header."
(interactive) (interactive)
@ -766,7 +771,7 @@ that execution can only take place in n the header list."
(view-mode) (view-mode)
(goto-char (point-min)))) (goto-char (point-min))))
(switch-to-buffer buf))) (switch-to-buffer buf)))
(defun mu4e-view-pipe (cmd) (defun mu4e-view-pipe (cmd)
"Pipe the message through shell command CMD, and display the "Pipe the message through shell command CMD, and display the