|
@@ -185,8 +185,8 @@ using `rsync' or `scp'.")
|
|
(mapcar
|
|
(mapcar
|
|
(lambda (f)
|
|
(lambda (f)
|
|
(cond
|
|
(cond
|
|
- ((eq f 'org-agenda-files) (org-agenda-files
|
|
|
|
- t include-archives))
|
|
|
|
|
|
+ ((eq f 'org-agenda-files)
|
|
|
|
+ (org-agenda-files t include-archives))
|
|
((eq f 'org-agenda-text-search-extra-files)
|
|
((eq f 'org-agenda-text-search-extra-files)
|
|
(delq 'agenda-archives
|
|
(delq 'agenda-archives
|
|
(copy-sequence
|
|
(copy-sequence
|