* lisp/gnus-bbdb.el (gnus-bbdb/update-record): Save excursion while

 `bbdb-annotate-message-sender' is being done.

diff --git a/ChangeLog b/ChangeLog
index b0a8267..ee20152 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-15  Keiichi Suzuki  <keiichi@mdcnet.co.jp>
+
+       * lisp/gnus-bbdb.el (gnus-bbdb/update-record): Save excursion
+       while `bbdb-annotate-message-sender' is being done.
+
 2001-01-14  Katsumi Yamaoka <yamaoka@jpl.org>
 
        * lisp/gnus-art.el (gnus-treatment-function-alist): Use backquote.

diff --git a/lisp/gnus-bbdb.el b/lisp/gnus-bbdb.el
index e39ba6b..9214edf 100644 (file)
--- a/lisp/gnus-bbdb.el
+++ b/lisp/gnus-bbdb.el
@@ -48,8 +48,8 @@
 
 ;;;###autoload
 (defun gnus-bbdb/update-record (&optional offer-to-create)
-  "returns the record corresponding to the current GNUS message, creating 
-or modifying it as necessary.  A record will be created if 
+  "returns the record corresponding to the current GNUS message, creating
+or modifying it as necessary.  A record will be created if
 bbdb/news-auto-create-p is non-nil, or if OFFER-TO-CREATE is true and
 the user confirms the creation."
   (if bbdb-use-pop-up
@@ -68,11 +68,12 @@ the user confirms the creation."
                  (gnus-bbdb/extract-address-components
                   (gnus-bbdb/decode-field-body to 'To))))))
       (when from
-       (bbdb-annotate-message-sender from t
-                                     (or (bbdb-invoke-hook-for-value
-                                          bbdb/news-auto-create-p)
-                                         offer-to-create)
-                                     offer-to-create)))))
+       (save-excursion
+         (bbdb-annotate-message-sender from t
+                                       (or (bbdb-invoke-hook-for-value
+                                            bbdb/news-auto-create-p)
+                                           offer-to-create)
+                                       offer-to-create))))))
 
 ;;;###autoload
 (defun gnus-bbdb/annotate-sender (string &optional replace)