projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
A new branch wl-2_4 is created.
[elisp/wanderlust.git]
/
wl
/
wl-folder.el
diff --git
a/wl/wl-folder.el
b/wl/wl-folder.el
index
5f75732
..
90c7f7f
100644
(file)
--- a/
wl/wl-folder.el
+++ b/
wl/wl-folder.el
@@
-2038,12
+2038,8
@@
Don't care multi."
'case-ignore)))
(setq toalist (append toalist (cdr (car rules)))))
(setq rules (cdr rules)))
'case-ignore)))
(setq toalist (append toalist (cdr (car rules)))))
(setq rules (cdr rules)))
- (when toalist
- (setq tokey (car (rassoc folder toalist)))
+ (setq tokey (car (rassoc folder toalist)))
;;; (setq histkey (car (rassoc folder wl-refile-alist)))
;;; (setq histkey (car (rassoc folder wl-refile-alist)))
- (elmo-string-matched-member tokey
- wl-subscribed-mailing-list t))
-
;; case-ignore search `wl-subscribed-mailing-list'
(if (stringp tokey)
(list
;; case-ignore search `wl-subscribed-mailing-list'
(if (stringp tokey)
(list
@@
-2679,7
+2675,8
@@
If optional arg exists, don't check any folders."
(defun wl-folder-write-current-folder ()
""
(interactive)
(defun wl-folder-write-current-folder ()
""
(interactive)
- (wl-summary-write-current-folder (wl-folder-entity-name)))
+ (unless (wl-folder-buffer-group-p)
+ (wl-summary-write-current-folder (wl-folder-entity-name))))
(defun wl-folder-mimic-kill-buffer ()
"Kill the current (Folder) buffer with query."
(defun wl-folder-mimic-kill-buffer ()
"Kill the current (Folder) buffer with query."