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
ebca42237542
Commit
d54a1055
authored
Jul 23, 2005
by
waider
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
sync with Sourceforge CVS
parent
6886d614012d
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
18 additions
and
15 deletions
+18
-15
lisp/bbdb-sc.el
lisp/bbdb-sc.el
+12
-12
lisp/bbdb-srv.el
lisp/bbdb-srv.el
+6
-3
No files found.
lisp/bbdb-sc.el
View file @
ebca4223
...
...
@@ -2,7 +2,7 @@
;;; This file is an addition to the Insidious Big Brother Database
;;; (aka BBDB), copyright (c) 1991, 1992 Jamie Zawinski
;;; <jwz@
netscape.com
>.
;;; <jwz@
jwz.org
>.
;;;
;;; The Insidious Big Brother Database is free software; you can redistribute
;;; it and/or modify it under the terms of the GNU General Public License as
...
...
@@ -102,15 +102,16 @@ used to compare against citation selected by the user."
(
defun
bbdb/sc-consult-attr
(
from
)
"Extract citing information from BBDB using sc-consult where
FROM is user e-mail address to look for in BBDB."
;; if logged in user sent this, use recipients.
(
let
((
check
(
if
(
or
(
null
from
)
(
string-match
(
bbdb-user-mail-names
)
from
))
(
car
(
cdr
(
mail-extract-address-components
(
or
(
sc-mail-field
"to"
)
from
))))
from
)))
(
if
from
(
let
((
record
(
bbdb-search-simple
nil
from
)))
(
and
record
(
bbdb-record-getprop
record
bbdb/sc-attribution-field
))))))
;; if logged in user sent this, use recipients.
(
let
((
from
(
if
(
or
(
null
from
)
(
string-match
(
bbdb-user-mail-names
)
from
))
(
car
(
cdr
(
mail-extract-address-components
(
or
(
sc-mail-field
"to"
)
from
))))
from
)))
(
if
from
(
let
((
record
(
bbdb-search-simple
nil
from
)))
(
and
record
(
bbdb-record-getprop
record
bbdb/sc-attribution-field
))))))
(
defun
bbdb/sc-set-attr
()
"Add attribute to BBDB."
...
...
@@ -195,8 +196,7 @@ Custom."
(
end
(
setq
sc-mail-headers-end
(
point
))))))
;; insert our hooks - call me from your Emacs initialization file
(
defvar
attribution
nil
)
;; dammit, supercite!
(
defvar
attribution
)
;; dammit, supercite!
;;;###autoload
(
defun
bbdb-insinuate-sc
()
"Call this function to hook BBDB into Supercite."
...
...
lisp/bbdb-srv.el
View file @
ebca4223
;;; -*- Mode:Emacs-Lisp -*-
;;; This file is the part of the Insidious Big Brother Database (aka BBDB),
;;; copyright (c) 1995 Jamie Zawinski <jwz@
netscape.com
>.
;;; copyright (c) 1995 Jamie Zawinski <jwz@
jwz.org
>.
;;; Invoking BBDB from another process, via `gnudoit'.
;;; See the file bbdb.texinfo for documentation.
;;;
...
...
@@ -53,7 +53,7 @@
;;; A trivial application of this is the shell command:
;;;
;;; echo 'From: Jamie Zawinski <jwz@
netscape.com
>' | bbdb-srv.perl
;;; echo 'From: Jamie Zawinski <jwz@
jwz.org
>' | bbdb-srv.perl
;;;
;;; which will cause the corresponding record to be displayed.
;;; A more interesting application of this is:
...
...
@@ -209,6 +209,7 @@ we cons less."
(
prog1
bbdb/srv-itimer-arg
(
setq
bbdb/srv-itimer-arg
nil
)))))
;;;###autoload
(
defun
bbdb/srv-handle-headers-with-delay
(
headers
)
"Just like bbdb/srv-handle-headers, but only updates every few seconds.
This is so that trying to display many records in succession won't queue them
...
...
@@ -225,7 +226,9 @@ requested for a couple of seconds."
nil
))
;;;###autoload
(
fset
'bbdb-srv
'bbdb/srv-handle-headers-with-delay
)
(
defalias
'bbdb-srv
'bbdb/srv-handle-headers-with-delay
)
(
autoload
'bbdb-header-start
"bbdb-hooks"
)
;;;###autoload
(
defun
bbdb/srv-auto-create-mail-news-dispatcher
()
...
...
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