* bbdb-wl.el (bbdb-wl-get-addresses-2): Bind unbound local

variable.

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.

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))
-                       (not 
+                       (not
                         (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
-           header-type header-fields)
+           header-type header-fields header-content)
        (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))
-               
                ;; ignore uninteresting addresses, this is kinda gross!
                (when (or (not (stringp uninteresting-senders))
-                         (not 
+                         (not
                           (or
                            (and fn
                                 (string-match uninteresting-senders fn))