From 6c12101c8c01cf69067a0f0c78edd45b36ed753b 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 --- org-contacts.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/org-contacts.el b/org-contacts.el index 63ba005..9b08d67 100644 --- a/org-contacts.el +++ b/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