-
Notifications
You must be signed in to change notification settings - Fork 11
/
Copy pathebdb-rmail.el
98 lines (74 loc) · 3.34 KB
/
ebdb-rmail.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
;;; ebdb-rmail.el --- EBDB interface to Rmail -*- lexical-binding: t; -*-
;; Copyright (C) 2016-2024 Free Software Foundation, Inc.
;; Author: Eric Abrahamsen <[email protected]>
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; EBDB's interaction with the Rmail MUA.
;;; Code:
(require 'ebdb-com)
(require 'ebdb-mua)
(require 'rmail)
(require 'rmailsum)
(require 'mailheader)
(defgroup ebdb-mua-rmail nil
"EBDB customization for rmail."
:group 'ebdb-mua)
(defcustom ebdb-rmail-auto-update-p ebdb-mua-reader-update-p
"Rmail-specific value of `ebdb-mua-auto-update-p'."
:type '(choice (const :tag "do nothing" nil)
(const :tag "search for existing records" existing)
(const :tag "update existing records" update)
(const :tag "query for update or record creation" query)
(const :tag "update or create automatically" create)
(function :tag "User-defined function")))
(defcustom ebdb-rmail-window-size ebdb-default-window-size
"Size of the EBDB buffer when popping up in rmail.
Size should be specified as a float between 0 and 1. Defaults to
the value of `ebdb-default-window-size'."
:type 'float)
(defun ebdb/rmail-new-flag ()
"Returns t if the current message in buffer BUF is new."
(rmail-message-labels-p rmail-current-message ", ?\\(unseen\\),"))
(defun ebdb/rmail-header (header)
"Pull HEADER out of Rmail header."
(with-current-buffer rmail-buffer
(if (fboundp 'rmail-get-header) ; Emacs 23
(rmail-get-header header)
(save-restriction
(with-no-warnings (rmail-narrow-to-non-pruned-header))
(mail-header (intern-soft (downcase header))
(mail-header-extract))))))
(cl-defmethod ebdb-mua-message-header ((header string)
&context (major-mode rmail-mode))
(ebdb/rmail-header header))
(cl-defmethod ebdb-mua-message-header ((header string)
&context (major-mode rmail-summary-mode))
(ebdb/rmail-header header))
(cl-defmethod ebdb-make-buffer-name (&context (major-mode rmail-mode))
(format "*%s-Rmail*" ebdb-buffer-name))
(cl-defmethod ebdb-make-buffer-name (&context (major-mode rmail-summary-mode))
(format "*%s-Rmail*" ebdb-buffer-name))
(cl-defmethod ebdb-popup-buffer (&context (major-mode rmail-summary-mode))
(list (get-buffer-window) ebdb-rmail-window-size))
;;;###autoload
(defun ebdb-insinuate-rmail ()
"Hook EBDB into RMAIL."
(unless ebdb-db-list
(ebdb-load))
(define-key rmail-mode-map ";" ebdb-mua-keymap))
;;;###autoload
(defun ebdb-rmail-auto-update ()
(ebdb-mua-auto-update ebdb-rmail-auto-update-p))
(add-hook 'rmail-mode-hook #'ebdb-insinuate-rmail)
(add-hook 'rmail-show-message-hook #'ebdb-rmail-auto-update)
(provide 'ebdb-rmail)
;;; ebdb-rmail.el ends here