[O] [dev] Reduce warnings on org-contacs compilation

[Michael Markert]

Hi,

I noticed two easily fixable compile warnings. The first one tackles the
wl code and the second includes cl on compilation.

Michael


>From 057b14ebe412a6085b5ba61559211d1d2402c16b Mon Sep 17 00:00:00 2001
Message-Id: 
<057b14ebe412a6085b5ba61559211d1d2402c16b.1309198827.git.markert.mich...@googlemail.com>
From: Michael Markert <markert.mich...@googlemail.com>
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 <markert.mich...@googlemail.com>
---
 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


>From 31c1d3a859b5aeb6bb12b68a86c30b8454c7b39c Mon Sep 17 00:00:00 2001
Message-Id: 
<31c1d3a859b5aeb6bb12b68a86c30b8454c7b39c.1309198827.git.markert.mich...@googlemail.com>
In-Reply-To: 
<057b14ebe412a6085b5ba61559211d1d2402c16b.1309198827.git.markert.mich...@googlemail.com>
References: 
<057b14ebe412a6085b5ba61559211d1d2402c16b.1309198827.git.markert.mich...@googlemail.com>
From: Michael Markert <markert.mich...@googlemail.com>
Date: Mon, 27 Jun 2011 20:19:23 +0200
Subject: [PATCH 2/2] org-contacts: Require cl on compilation.
To: emacs-orgmode@gnu.org

Signed-off-by: Michael Markert <markert.mich...@googlemail.com>
---
 contrib/lisp/org-contacts.el |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el
index 9b08d67..f846fe2 100644
--- a/contrib/lisp/org-contacts.el
+++ b/contrib/lisp/org-contacts.el
@@ -36,6 +36,9 @@
 ;;
 ;;; Code:

+(eval-when-compile
+  (require 'cl))
+
 (eval-and-compile
   (require 'org))

--
1.7.5.4

pgpkgVSdRGHgh.pgp
Description: PGP signature