From 057b14ebe412a6085b5ba61559211d1d2402c16b Mon Sep 17 00:00:00 2001 Message-Id: <057b14ebe412a6085b5ba61559211d1d2402c16b.1309198827.git.markert.michael@googlemail.com> From: Michael Markert Date: Mon, 27 Jun 2011 20:17:53 +0200 Subject: [PATCH 1/2] org-contacts: Use `with-current-buffer' instead of `save-excursion'+`with-current-buffer'. To: emacs-orgmode@gnu.org Signed-off-by: Michael Markert --- contrib/lisp/org-contacts.el | 3 +-- 1 files changed, 1 insertions(+), 2 deletions(-) diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el index 63ba005..9b08d67 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 -- 1.7.5.4