branch: externals/autocrypt
commit c9d7c13f0d2c9329b444952a791dc6873cf1a1cd
Author: Philip K <[email protected]>
Commit: Philip K <[email protected]>
Translate mu4e implementation to methods
---
autocrypt-mu4e.el | 29 +++++++++++++++++++++--------
1 file changed, 21 insertions(+), 8 deletions(-)
diff --git a/autocrypt-mu4e.el b/autocrypt-mu4e.el
index ad092ab123..e4854eae5e 100644
--- a/autocrypt-mu4e.el
+++ b/autocrypt-mu4e.el
@@ -24,28 +24,41 @@
(require 'mu4e)
-;;;###autoload
-(cl-defmethod autocrypt-mode-hook ((_mode (derived-mode mu4e-main-mode)))
- "Return the hook to install autocrypt."
- 'gnus-view-mode-hook)
+;;; XXX: mu4e seems to share no common mode, and the `derived-mode'
+;;; specializer supports only one mode (currently). Therefore
+;;; the method definitions have to be duplicated.
-(defun autocrypt-mu4e-install ()
+(cl-defmethod autocrypt-install ((_mode (derived-mode mu4e-main-mode)))
"Install autocrypt hooks for mu4e."
(add-hook 'mu4e-view-mode-hook #'autocrypt-process-header)
(add-hook 'mu4e-compose-mode-hook #'autocrypt-compose-setup))
-(defun autocrypt-mu4e-uninstall ()
+(cl-defmethod autocrypt-uninstall ((_mode (derived-mode mu4e-main-mode)))
"Remove autocrypt hooks for mu4e."
(remove-hook 'mu4e-view-mode-hook #'autocrypt-process-header)
(remove-hook 'mu4e-compose-mode-hook #'autocrypt-compose-setup))
-(defun autocrypt-mu4e-header (field)
- "Ask mu4e to return header FIELD."
+(cl-defmethod autocrypt-get-header ((_mode (derived-mode mu4e-main-mode))
+ header)
+ "Ask mu4e to return HEADER."
(save-window-excursion
(with-current-buffer (mu4e-view-raw-message)
(prog1 (mail-fetch-field field)
(kill-buffer (current-buffer))))))
+(cl-defmethod autocrypt-install ((_mode (derived-mode mu4e-view-mode)))
+ "Install autocrypt hooks for mu4e."
+ (autocrypt-install 'mu4e-main-mode))
+
+(cl-defmethod autocrypt-uninstall ((_mode (derived-mode mu4e-view-mode)))
+ "Remove autocrypt hooks for mu4e."
+ (autocrypt-uninstall 'mu4e-main-mode))
+
+(cl-defmethod autocrypt-get-header ((_mode (derived-mode mu4e-view-mode))
+ header)
+ "Ask mu4e to return HEADER."
+ (autocrypt-get-header 'mu4e-main-mode header))
+
(provide 'autocrypt-mu4e)
;;; autocrypt-mu4e.el ends here
