aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

org-contacts: Use with-current-buffer' instead of save-excursion'+`with-current-buffer'.

Browse source 
Signed-off-by: Michael Markert <markert.michael@googlemail.com>
Signed-off-by: Julien Danjou <julien@danjou.info>
This commit is contained in:
Michael Markert 2011-06-27 20:17:53 +02:00 committed by Julien Danjou
parent e585be0859
commit 6c12101c8c
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
org-contacts.el
View file

@ -418,8 +418,7 @@ This adds `org-contacts-gnus-check-mail-address' and
"Retrieve the content of the `From' header of an email. "Retrieve the content of the `From' header of an email.
Works from wl-summary-mode and mime-view-mode - that is while viewing email. Works from wl-summary-mode and mime-view-mode - that is while viewing email.
Depends on Wanderlust been loaded." Depends on Wanderlust been loaded."
(save-excursion (with-current-buffer (org-capture-get :original-buffer)
(set-buffer (org-capture-get :original-buffer))
(cond (cond
((eq major-mode 'wl-summary-mode) (when wl-summary-buffer-elmo-folder ((eq major-mode 'wl-summary-mode) (when wl-summary-buffer-elmo-folder
(elmo-message-field (elmo-message-field