projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* check-modules.el (test-shimbun): Check `shimbun-server'.
[elisp/wanderlust.git]
/
wl
/
wl-action.el
diff --git
a/wl/wl-action.el
b/wl/wl-action.el
index
c8aa08d
..
0670d14
100644
(file)
--- a/
wl/wl-action.el
+++ b/
wl/wl-action.el
@@
-66,8
+66,6
@@
Return number if put mark succeed"
visible mark cur-mark)
(when (zerop (elmo-folder-length wl-summary-buffer-elmo-folder))
(error "Set mark failed"))
visible mark cur-mark)
(when (zerop (elmo-folder-length wl-summary-buffer-elmo-folder))
(error "Set mark failed"))
- (unless current
- (error "No message"))
(prog1
(save-excursion
;; Put mark
(prog1
(save-excursion
;; Put mark
@@
-78,6
+76,8
@@
Return number if put mark succeed"
(and (null number) current))
number (or number current)
cur-mark (nth 1 (wl-summary-registered-temp-mark number)))
(and (null number) current))
number (or number current)
cur-mark (nth 1 (wl-summary-registered-temp-mark number)))
+ (unless number
+ (error "No message"))
(if (wl-summary-reserve-temp-mark-p cur-mark)
(when interactive
(error "Already marked as `%s'" cur-mark))
(if (wl-summary-reserve-temp-mark-p cur-mark)
(when interactive
(error "Already marked as `%s'" cur-mark))