Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
xemacs
bbdb
Commits
544ab4e49c8c
Commit
edc7b564
authored
Nov 05, 2004
by
waider
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* sync to master BBDB CVS (no actual changes, just catching up)
parent
7eb46f1184b6
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
18 additions
and
18 deletions
+18
-18
lisp/bbdb-reportmail.el
lisp/bbdb-reportmail.el
+18
-18
No files found.
lisp/bbdb-reportmail.el
View file @
544ab4e4
...
...
@@ -75,9 +75,9 @@
(
defun
bbdb/reportmail-alternate-full-name
(
address
)
(
if
address
(
let
((
entry
(
bbdb-search-simple
nil
address
)))
(
if
entry
(
or
(
bbdb-record-getprop
entry
'mail-name
)
(
bbdb-record-name
entry
))))))
(
if
entry
(
or
(
bbdb-record-getprop
entry
'mail-name
)
(
bbdb-record-name
entry
))))))
(
defadvice
display-time-get-field
(
around
bbdb/reportmail-hack-display-time-get-field
disable
activate
)
...
...
@@ -92,27 +92,27 @@ If no corresponding record can be found, the field value is left unaltered."
;; Call the original display-time-get-field
ad-do-it
(
if
(
or
(
string=
gf-field
"To"
)
(
string=
gf-field
"From"
))
(
setq
ad-return-value
(
or
;; If this message is to me, then do nothing so
;; reportmail can trap this case in
;; display-time-process-new-mail
(
if
(
display-time-member
ad-return-value
(
setq
ad-return-value
(
or
;; If this message is to me, then do nothing so
;; reportmail can trap this case in
;; display-time-process-new-mail
(
if
(
display-time-member
ad-return-value
display-time-my-addresses
)
ad-return-value
nil
)
;; Is the sender/recipient in our BBDB?
(
bbdb/reportmail-alternate-full-name
(
car
(
cdr
(
mail-extract-address-components
ad-return-value
))))
;; Can't find sender/recipient in BBDB; do nothing.
ad-return-value
)
))))
ad-return-value
nil
)
;; Is the sender/recipient in our BBDB?
(
bbdb/reportmail-alternate-full-name
(
car
(
cdr
(
mail-extract-address-components
ad-return-value
))))
;; Can't find sender/recipient in BBDB; do nothing.
ad-return-value
)
))))
;;;###autoload
(
defun
bbdb-insinuate-reportmail
()
"Call this function to hook BBDB into reportmail."
(
ad-enable-advice
'display-time-get-field
'around
'bbdb/reportmail-hack-display-time-get-field
)
'bbdb/reportmail-hack-display-time-get-field
)
(
ad-activate
'display-time-get-field
)
(
message
"Insinuated BBDB into Reportmail."
)
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment