回答:
確かに、これは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
これにより、送信メッセージのフィールドが解析され、対応するBBDBエントリの作成が提案されます
(bbdb-mua-auto-update-init 'message)
ていない理由(bbdb-mua-auto-update-init 'message 'gnus)
です。前者はmessage-send-hook
(発信メッセージのみ)をフックし、後者はgnus-article-prepare-hook
(すべての表示された記事、したがって着信記事も)フックします
gnus-article-prepare-hook
発生を排除することをお勧めしますbbdb-mua-auto-update
(これらは構成の他の部分から発生している可能性があり、おそらく別の呼び出しでbbdb-mua-auto-update-init
)
私は自動ではありませんが、ここで簡単な1つのキーに入れたい場合は、それをどのように行うことができますか?
(defun my-gnus-bbdb-snarf-sender ()
(interactive)
(gnus-with-article-buffer
(let ((from (mail-fetch-field "from")))
(bbdb-snarf from 'mail))))
そしてgnus-summary-hookのフックをキーに追加します、例えば:
(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)
送信者をBBDBに直接追加するために、それをquote 'キーボードにバインドします
message-sent-hook
ますか?