emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e: rename msg->message in mu4e-message-changed-hook

This commit is contained in:
djcb 2017-01-15 15:41:16 +02:00
parent e9b71af547
commit 600955eebc
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
mu4e/mu4e-headers.el
View File

@ -368,7 +368,7 @@ headers."
(mu4e~headers-highlight initial-message-at-point)) (mu4e~headers-highlight initial-message-at-point))
;; attempt to highlight the corresponding line and make it visible ;; attempt to highlight the corresponding line and make it visible
(mu4e~headers-highlight docid)) (mu4e~headers-highlight docid))
(run-hooks 'mu4e-msg-changed-hook)))))) (run-hooks 'mu4e-message-changed-hook))))))
(defun mu4e~headers-remove-handler (docid &optional skip-hook) (defun mu4e~headers-remove-handler (docid &optional skip-hook)
"Remove handler, will be called when a message with DOCID has "Remove handler, will be called when a message with DOCID has
@ -376,7 +376,7 @@ been removed from the database. This function will hide the removed
message from the current list of headers. If the message is not message from the current list of headers. If the message is not
present, don't do anything. present, don't do anything.
If SKIP-HOOK is not nil, `mu4e-msg-changed-hook' will be invoked." If SKIP-HOOK is not nil, `mu4e-message-changed-hook' will be invoked."
(when (buffer-live-p mu4e~headers-buffer) (when (buffer-live-p mu4e~headers-buffer)
(with-current-buffer mu4e~headers-buffer (with-current-buffer mu4e~headers-buffer
(mu4e~headers-remove-header docid t) (mu4e~headers-remove-header docid t)
@ -390,7 +390,7 @@ If SKIP-HOOK is not nil, `mu4e-msg-changed-hook' will be invoked."
(ignore-errors (ignore-errors
(kill-buffer-and-window)))) (kill-buffer-and-window))))
(unless skip-hook (unless skip-hook
(run-hooks 'mu4e-msg-changed-hook))))) (run-hooks 'mu4e-message-changed-hook)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -892,8 +892,9 @@ after the end of the search results."
(defun mu4e~headers-do-auto-update () (defun mu4e~headers-do-auto-update ()
"Update the current headers buffer after indexing has brought "Update the current headers buffer after indexing has brought
some changes, `mu4e-headers-auto-update' is non-nil and there is no some changes, `mu4e-headers-auto-update' is non-nil and there is
user-interaction ongoing." no user-interaction ongoing."
(message "DO UPDA")
(when (and mu4e-headers-auto-update ;; must be set (when (and mu4e-headers-auto-update ;; must be set
(zerop (mu4e-mark-marks-num)) ;; non active marks (zerop (mu4e-mark-marks-num)) ;; non active marks
(not (active-minibuffer-window))) ;; no user input (not (active-minibuffer-window))) ;; no user input
@ -911,8 +912,10 @@ user-interaction ongoing."
(set (make-local-variable 'hl-line-face) 'mu4e-header-highlight-face) (set (make-local-variable 'hl-line-face) 'mu4e-header-highlight-face)
;; maybe update the current headers upon indexing changes ;; maybe update the current headers upon indexing changes
(add-hook 'mu4e-index-updated-hook 'mu4e~headers-do-auto-update nil t) (add-hook 'mu4e-index-updated-hook
(add-hook 'mu4e-index-updated-hook (lambda () (run-hooks 'mu4e-msg-changed-hook)) t) 'mu4e~headers-do-auto-update nil t)
(add-hook 'mu4e-index-updated-hook
(lambda () (run-hooks 'mu4e-message-changed-hook)) t)
(setq (setq
truncate-lines t truncate-lines t
buffer-undo-list t ;; don't record undo information buffer-undo-list t ;; don't record undo information

5
mu4e/mu4e-utils.el
View File

@ -632,12 +632,15 @@ This can be used as a simple way to invoke some action when new
messages appear, but note that an update in the index does not messages appear, but note that an update in the index does not
necessarily mean a new message.") necessarily mean a new message.")
(defvar mu4e-msg-changed-hook nil (defvar mu4e-message-changed-hook nil
"Hook run when there is a message changed in db. For new "Hook run when there is a message changed in db. For new
messages, it depends on `mu4e-index-updated-hook'. This can be messages, it depends on `mu4e-index-updated-hook'. This can be
used as a simple way to invoke some action when a message used as a simple way to invoke some action when a message
changed.") changed.")
(make-obsolete-variable 'mu4e-msg-changed-hook
'mu4e-message-changed-hook "0.9.19")
;; some handler functions for server messages ;; some handler functions for server messages
;; ;;
(defun mu4e-info-handler (info) (defun mu4e-info-handler (info)