Câu trả lời:
Chắc chắn, đây là Emacs! :)
(bbdb-initialize 'gnus 'message)
(bbdb-mua-auto-update-init 'message) ;; use 'gnus for incoming messages too
(setq bbdb-mua-auto-update-p 'query) ;; or 'create to create without asking
Điều này sẽ phân tích các trường trong các tin nhắn gửi đi và đề nghị tạo các mục BBDB tương ứng
(bbdb-mua-auto-update-init 'message)
và không (bbdb-mua-auto-update-init 'message 'gnus)
. Các móc nối trước vào message-send-hook
(chỉ các tin nhắn gửi đi), trong khi các móc nối sau cũng vào gnus-article-prepare-hook
(tất cả các bài viết được hiển thị, do đó cũng có các bài viết đến)
gnus-article-prepare-hook
và loại bỏ bất kỳ sự cố nào xảy ra bbdb-mua-auto-update
(chúng có thể đến từ các phần khác trong cấu hình của bạn, rất có thể là một cuộc gọi khác bbdb-mua-auto-update-init
)
Tôi không có tự động nhưng nếu bạn muốn có nó trong một phím nhanh ở đây, làm thế nào bạn có thể có nó:
(defun my-gnus-bbdb-snarf-sender ()
(interactive)
(gnus-with-article-buffer
(let ((from (mail-fetch-field "from")))
(bbdb-snarf from 'mail))))
và thêm một hook cho gnus-Tóm tắt-hook vào một khóa, ví dụ như:
(defun my-gnus-summary-mode-hook ()
(local-set-key '[(\')] 'my-gnus-bbdb-snarf-sender))
(add-hook 'gnus-summary-mode-hook 'my-gnus-summary-mode-hook)
liên kết nó với bàn phím trích dẫn để thêm người gửi trực tiếp vào BBDB
message-sent-hook
?