Réponses:
Certainement, c'est 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
Cela analysera les champs dans les messages sortants et suggérera la création des entrées BBDB correspondantes
(bbdb-mua-auto-update-init 'message)
et non (bbdb-mua-auto-update-init 'message 'gnus)
. Le premier se connecte à message-send-hook
(uniquement les messages sortants), tandis que le dernier se connecte également à gnus-article-prepare-hook
(tous les articles affichés, donc les articles entrants aussi)
gnus-article-prepare-hook
et d'éliminer toute occurrence de bbdb-mua-auto-update
(ils pourraient provenir d'autres parties de votre configuration, probablement un autre appel à bbdb-mua-auto-update-init
)
Je n'ai pas automatique, mais si vous vouliez l'avoir dans une touche rapide, voici comment vous pouvez l'avoir:
(defun my-gnus-bbdb-snarf-sender ()
(interactive)
(gnus-with-article-buffer
(let ((from (mail-fetch-field "from")))
(bbdb-snarf from 'mail))))
et ajoutez un crochet pour gnus-summary-hook à une clé, comme par exemple:
(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)
qui le lie au clavier du devis pour ajouter l'expéditeur directement à BBDB
message-sent-hook
?