* 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 1d2b33b..3a24a50 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-13  Kinji Itoh  <kinji-i@ma.neweb.ne.jp>
 
        * Makefile.in (install-package-lisp): Specify EMACS=$(XEMACS).

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)