/usr/share/emacs/site-lisp/bbdb3/bbdb-gnus.el is in bbdb3 3.2-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | ;;; bbdb-gnus.el --- BBDB interface to Gnus -*- lexical-binding: t -*-
;; Copyright (C) 2010-2017 Free Software Foundation, Inc.
;; This file is part of the Insidious Big Brother Database (aka BBDB),
;; BBDB 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.
;; BBDB 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 BBDB. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;; This file contains the BBDB interface to Gnus.
;;; See the BBDB info manual for documentation.
;;; Code:
(require 'bbdb)
(require 'bbdb-com)
(require 'bbdb-mua)
(require 'gnus)
;;; Insinuation
;;;###autoload
(defun bbdb-insinuate-gnus ()
"Hook BBDB into Gnus.
Do not call this in your init file. Use `bbdb-initialize'."
;; `bbdb-mua-display-sender' fails in *Article* buffers, where
;; `gnus-article-read-summary-keys' provides an additional wrapper
;; that restores the window configuration.
(define-key gnus-summary-mode-map ":" 'bbdb-mua-display-sender)
(define-key gnus-article-mode-map ":" 'bbdb-mua-display-sender)
;; For `bbdb-mua-edit-field-sender' it is probably OK if
;;`gnus-article-read-summary-keys' restores the window configuration.
(define-key gnus-summary-mode-map ";" 'bbdb-mua-edit-field-sender)
(define-key gnus-article-mode-map ";" 'bbdb-mua-edit-field-sender)
;; Do we need keybindings for more commands? Suggestions welcome.
;; (define-key gnus-summary-mode-map ":" 'bbdb-mua-display-records)
;; (define-key gnus-summary-mode-map "'" 'bbdb-mua-display-recipients)
;; (define-key gnus-summary-mode-map ";" 'bbdb-mua-edit-field-recipients)
;; Set up user field for use in `gnus-summary-line-format'
;; (1) Big solution: use whole name
(if bbdb-mua-summary-unify-format-letter
(defalias (intern (concat "gnus-user-format-function-"
bbdb-mua-summary-unify-format-letter))
(lambda (header)
(bbdb-mua-summary-unify (mail-header-from header)))))
;; (2) Small solution: a mark for messages whose sender is in BBDB.
(if bbdb-mua-summary-mark-format-letter
(defalias (intern (concat "gnus-user-format-function-"
bbdb-mua-summary-mark-format-letter))
(lambda (header)
(bbdb-mua-summary-mark (mail-header-from header))))))
(provide 'bbdb-gnus)
;;; bbdb-gnus.el ends here
|