From 1e8db0f8bf6ba81f37fe36653e1b5796a32dd204 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 15 Jan 2001 00:52:20 +0000 Subject: [PATCH] * lisp/gnus-bbdb.el (gnus-bbdb/update-record): Save excursion while `bbdb-annotate-message-sender' is being done. --- ChangeLog | 5 +++++ lisp/gnus-bbdb.el | 15 ++++++++------- 2 files changed, 13 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index 1d2b33b..3a24a50 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-01-15 Keiichi Suzuki + + * lisp/gnus-bbdb.el (gnus-bbdb/update-record): Save excursion + while `bbdb-annotate-message-sender' is being done. + 2001-01-13 Kinji Itoh * Makefile.in (install-package-lisp): Specify EMACS=$(XEMACS). diff --git a/lisp/gnus-bbdb.el b/lisp/gnus-bbdb.el index e39ba6b..9214edf 100644 --- 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) -- 1.7.10.4