projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* Version number is increased to 2.11.17.
[elisp/wanderlust.git]
/
elmo
/
elmo-split.el
diff --git
a/elmo/elmo-split.el
b/elmo/elmo-split.el
index
8d90e49
..
db175a4
100644
(file)
--- a/
elmo/elmo-split.el
+++ b/
elmo/elmo-split.el
@@
-117,7
+117,8
@@
Example:
:group 'elmo)
(defcustom elmo-split-default-action 'noop
:group 'elmo)
(defcustom elmo-split-default-action 'noop
- "Default action for messages which pass all rules."
+ "Default action for messages which pass all rules.
+It can be some ACTION as in `elmo-split-rule'."
:type '(choice (const :tag "do not touch" noop)
(const :tag "delete" delete)
(string :tag "folder name")
:type '(choice (const :tag "do not touch" noop)
(const :tag "delete" delete)
(string :tag "folder name")
@@
-293,6
+294,7
@@
If prefix argument ARG is specified, do a reharsal (no harm)."
(elmo-message-fetch folder msg
(elmo-make-fetch-strategy 'entire)
nil (current-buffer) 'unread))
(elmo-message-fetch folder msg
(elmo-make-fetch-strategy 'entire)
nil (current-buffer) 'unread))
+ (run-hooks 'elmo-split-fetch-hook)
(setq elmo-split-message-entity (mime-parse-buffer))
(catch 'terminate
(dolist (rule (append elmo-split-rule default-rule))
(setq elmo-split-message-entity (mime-parse-buffer))
(catch 'terminate
(dolist (rule (append elmo-split-rule default-rule))
@@
-325,7
+327,7
@@
If prefix argument ARG is specified, do a reharsal (no harm)."
action)))
(elmo-folder-create target-folder)))
(elmo-folder-open-internal target-folder)
action)))
(elmo-folder-create target-folder)))
(elmo-folder-open-internal target-folder)
- (elmo-folder-append-buffer target-folder 'unread)
+ (elmo-folder-append-buffer target-folder)
(elmo-folder-close-internal target-folder))
(error (setq failure t)
(incf fcount)))
(elmo-folder-close-internal target-folder))
(error (setq failure t)
(incf fcount)))
@@
-369,7
+371,7
@@
If prefix argument ARG is specified, do a reharsal (no harm)."
" Test: do nothing\n")
((function action)
(format " Test: function:%s\n"
" Test: do nothing\n")
((function action)
(format " Test: function:%s\n"
- (symbol-name action)))
+ (prin1-to-string action)))
(t
" ERROR: wrong action specified\n"))
(cond
(t
" ERROR: wrong action specified\n"))
(cond