projects
/
elisp
/
wanderlust.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c1d3442
)
* bbdb-wl.el (bbdb-wl-get-addresses-2): Bind unbound local
author
hmurata
<hmurata>
Mon, 28 Jan 2002 13:36:53 +0000
(13:36 +0000)
committer
hmurata
<hmurata>
Mon, 28 Jan 2002 13:36:53 +0000
(13:36 +0000)
variable.
utils/ChangeLog
patch
|
blob
|
history
utils/bbdb-wl.el
patch
|
blob
|
history
diff --git
a/utils/ChangeLog
b/utils/ChangeLog
index
0f3be4a
..
6454558
100644
(file)
--- a/
utils/ChangeLog
+++ b/
utils/ChangeLog
@@
-1,3
+1,8
@@
+2002-01-28 Hiroya Murata <lapis-lazuli@pop06.odn.ne.jp>
+
+ * bbdb-wl.el (bbdb-wl-get-addresses-2): Bind unbound local
+ variable.
+
2002-01-28 Yuuichi Teranishi <teranisi@gohome.org>
* bbdb-wl.el (bbdb-wl-get-addresses-1): New function.
2002-01-28 Yuuichi Teranishi <teranisi@gohome.org>
* bbdb-wl.el (bbdb-wl-get-addresses-1): New function.
diff --git
a/utils/bbdb-wl.el
b/utils/bbdb-wl.el
index
10a73e0
..
e1444bc
100644
(file)
--- a/
utils/bbdb-wl.el
+++ b/
utils/bbdb-wl.el
@@
-183,7
+183,7
@@
For BBDB 2.33 or earlier."
ad (std11-address-string structure))
;; ignore uninteresting addresses, this is kinda gross!
(when (or (not (stringp uninteresting-senders))
ad (std11-address-string structure))
;; ignore uninteresting addresses, this is kinda gross!
(when (or (not (stringp uninteresting-senders))
- (not
+ (not
(or
(and fn (string-match uninteresting-senders fn))
(and ad (string-match uninteresting-senders ad)))))
(or
(and fn (string-match uninteresting-senders fn))
(and ad (string-match uninteresting-senders ad)))))
@@
-205,7
+205,7
@@
For BBDB 2.34 or later."
(let ((headers bbdb-get-addresses-headers)
(uninteresting-senders bbdb-user-mail-names)
addrlist header structures structure fn ad
(let ((headers bbdb-get-addresses-headers)
(uninteresting-senders bbdb-user-mail-names)
addrlist header structures structure fn ad
- header-type header-fields)
+ header-type header-fields header-content)
(while headers
(setq header-type (caar headers)
header-fields (cdar headers))
(while headers
(setq header-type (caar headers)
header-fields (cdar headers))
@@
-225,10
+225,9
@@
For BBDB 2.34 or later."
(decode-mime-charset-string
fn wl-mime-charset))))
ad (std11-address-string structure))
(decode-mime-charset-string
fn wl-mime-charset))))
ad (std11-address-string structure))
-
;; ignore uninteresting addresses, this is kinda gross!
(when (or (not (stringp uninteresting-senders))
;; ignore uninteresting addresses, this is kinda gross!
(when (or (not (stringp uninteresting-senders))
- (not
+ (not
(or
(and fn
(string-match uninteresting-senders fn))
(or
(and fn
(string-match uninteresting-senders fn))