From 194779b7ca46b1abb45a4c15832e03848c768518 Mon Sep 17 00:00:00 2001 From: keiichi Date: Thu, 23 Dec 1999 11:20:04 +0000 Subject: [PATCH] (gnus-bbdb/update-record): Fix timing of `save-restriction'. --- lisp/gnus-bbdb.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/gnus-bbdb.el b/lisp/gnus-bbdb.el index be73903..181f8db 100644 --- a/lisp/gnus-bbdb.el +++ b/lisp/gnus-bbdb.el @@ -54,9 +54,9 @@ the user confirms the creation." (if bbdb-use-pop-up (gnus-bbdb/pop-up-bbdb-buffer offer-to-create) (save-excursion - (save-restriction - (let (from) - (set-buffer gnus-original-article-buffer) + (let (from) + (set-buffer gnus-original-article-buffer) + (save-restriction (widen) (narrow-to-region (point-min) (progn (goto-char (point-min)) @@ -80,7 +80,7 @@ the user confirms the creation." (or (bbdb-invoke-hook-for-value bbdb/news-auto-create-p) offer-to-create) - offer-to-create))))))) + offer-to-create)))))) ) ;;;###autoload (defun gnus-bbdb/annotate-sender (string &optional replace) -- 1.7.10.4