;; Patch from FUKUI-san.

(gnus-bbdb/update-record): Fix to fetch last mail field.

diff --git a/ChangeLog b/ChangeLog
index 5cea70d..e374e4f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-06-13  Hirokazu FUKUI  <hfukui@sannet.ne.jp>
+
+       * lisp/gnus-bbdb.el(gnus-bbdb/update-record): Fix to fetch last
+       mail field.
+
 2000-06-09  Katsumi Yamaoka <yamaoka@jpl.org>
 
        * lisp/gnus.el (gnus-news-group-p): Sync with Gnus.

diff --git a/lisp/gnus-bbdb.el b/lisp/gnus-bbdb.el
index 119e3bf..45cca0a 100644 (file)
--- a/lisp/gnus-bbdb.el
+++ b/lisp/gnus-bbdb.el
@@ -63,7 +63,7 @@ the user confirms the creation."
                            (progn (goto-char (point-min))
                                   (or (search-forward "\n\n" nil t)
                                       (error "message unexists"))
-                                  (- (point) 2)))
+                                  (1- (point))))
          (when (setq from (mail-fetch-field "from"))
            (setq from (gnus-bbdb/extract-address-components
                        (gnus-bbdb/decode-field-body from 'From))))