projects
/
elisp
/
wanderlust.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
22b98e8
)
* wl-addrbook.el (wl-summary-addrbook-add): Use `with-current-buffer' instead of...
author
kaoru
<kaoru>
Wed, 6 Jan 2010 11:16:26 +0000
(11:16 +0000)
committer
kaoru
<kaoru>
Wed, 6 Jan 2010 11:16:26 +0000
(11:16 +0000)
utils/ChangeLog
patch
|
blob
|
history
utils/wl-addrbook.el
patch
|
blob
|
history
diff --git
a/utils/ChangeLog
b/utils/ChangeLog
index
3217402
..
d0f205a
100644
(file)
--- a/
utils/ChangeLog
+++ b/
utils/ChangeLog
@@
-1,3
+1,8
@@
+2010-01-06 TAKAHASHI Kaoru <kaoru@kaisei.org>
+
+ * wl-addrbook.el (wl-summary-addrbook-add): Use
+ `with-current-buffer' instead of `save-excursion' & `set-buffer'.
+
2008-04-22 TAKAHASHI Kaoru <kaoru@kaisei.org>
* ptexinfmt.el: Fix Comments.
2008-04-22 TAKAHASHI Kaoru <kaoru@kaisei.org>
* ptexinfmt.el: Fix Comments.
diff --git
a/utils/wl-addrbook.el
b/utils/wl-addrbook.el
index
5a8c3a9
..
b553230
100644
(file)
--- a/
utils/wl-addrbook.el
+++ b/
utils/wl-addrbook.el
@@
-400,8
+400,7
@@
it will add an alias."
(wl-summary-redisplay)
(let ((buf wl-message-buffer)
from shortname address addrs name)
(wl-summary-redisplay)
(let ((buf wl-message-buffer)
from shortname address addrs name)
- (save-excursion
- (set-buffer buf)
+ (with-current-buffer buf
(setq address (std11-field-body "From"))
(if (wl-address-user-mail-address-p address)
(setq address (std11-field-body "To")))
(setq address (std11-field-body "From"))
(if (wl-address-user-mail-address-p address)
(setq address (std11-field-body "To")))