From 0a92b13a49fd8700faf3726b85133dc4f6856640 Mon Sep 17 00:00:00 2001 From: Michael Markert Date: Mon, 27 Jun 2011 20:17:53 +0200 Subject: [PATCH] org-contacts: Use `with-current-buffer' instead of `save-excursion'+`with-current-buffer'. Signed-off-by: Michael Markert Signed-off-by: Julien Danjou --- contrib/lisp/org-contacts.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el index 63ba00520..9b08d674a 100644 --- a/contrib/lisp/org-contacts.el +++ b/contrib/lisp/org-contacts.el @@ -418,8 +418,7 @@ This adds `org-contacts-gnus-check-mail-address' and "Retrieve the content of the `From' header of an email. Works from wl-summary-mode and mime-view-mode - that is while viewing email. Depends on Wanderlust been loaded." - (save-excursion - (set-buffer (org-capture-get :original-buffer)) + (with-current-buffer (org-capture-get :original-buffer) (cond ((eq major-mode 'wl-summary-mode) (when wl-summary-buffer-elmo-folder (elmo-message-field -- 2.11.4.GIT