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

* mu4e-hdrs.el: make headers clickable; add some performance notes

Browse Source
This commit is contained in:
djcb
2011-12-26 11:18:12 +01:00
parent 9043ec0f51
commit 2e22f0e75a
1 changed files with 18 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
emacs/mu4e-hdrs.el
View File

@ -282,6 +282,8 @@ after the end of the search results."
(define-key map "E" 'mu4e-edit-draft) (define-key map "E" 'mu4e-edit-draft)
(define-key map (kbd "RET") 'mu4e-view-message) (define-key map (kbd "RET") 'mu4e-view-message)
(define-key map [mouse-2] 'mu4e-view-message)
(define-key map "H" 'mu4e-display-manual) (define-key map "H" 'mu4e-display-manual)
@ -393,8 +395,13 @@ server.")
;; Update `mu4e-msg-map' with MSG, and MARKER pointing to the buffer ;; Update `mu4e-msg-map' with MSG, and MARKER pointing to the buffer
;; position for the message header." ;; position for the message header."
(insert (propertize (concat " " str "\n") 'docid docid)) (insert (propertize (concat " " str "\n") 'docid docid))
;; note: this maintaining the hash with the markers makes things slow
;; when there are many (say > 1000) headers. this seems to be mostly
;; in the use of markers. we use those to find messages when they need
;; to be updated.
(puthash docid (copy-marker point t) mu4e-msg-map)))))) (puthash docid (copy-marker point t) mu4e-msg-map))))))
(defun mu4e-hdrs-remove-header (docid point) (defun mu4e-hdrs-remove-header (docid point)
"Remove header with DOCID at POINT." "Remove header with DOCID at POINT."
(with-current-buffer mu4e-hdrs-buffer (with-current-buffer mu4e-hdrs-buffer
@ -609,14 +616,17 @@ start editing it. COMPOSE-TYPE is either `reply', `forward' or
;;; interactive functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; interactive functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun mu4e-ignore-marks () (defun mu4e-ignore-marks ()
(let* "If there are still marks in the header list, warn the user."
((num (if mu4e-marks-map
(hash-table-count mu4e-marks-map)) (let*
(unmark (or (= 0 num) ((num
(y-or-n-p (hash-table-count mu4e-marks-map))
(format "Sure you want to unmark %d message(s)?" num))))) (unmark (or (= 0 num)
(message nil) (y-or-n-p
unmark)) (format "Sure you want to unmark %d message(s)?" num)))))
(message nil)
unmark))
t)
(defun mu4e-search (expr) (defun mu4e-search (expr)
"Start a new mu search. If prefix ARG is nil, limit the number of "Start a new mu search. If prefix ARG is nil, limit the number of